Computer Science Canada

trying to run this in the backround
Author:  Lt.Riggs [ Wed May 18, 2005 10:43 am ]
Post subject:  trying to run this in the backround
I would like to run this code in the backround of the program for friendly user GUI...
code:
import GUI
View.Set ("screen")
var first: int                 % The menus.
var item : array 1 .. 4of int         % The menu items.
var name : array 1 .. 5 of string (5) :=
    init ("Help?", "Save",  "---", "Load","Quit")

procedure MenuSelected
    for i : 1 .. 4
        if item (i) = GUI.GetEventWidgetID then
            Text.Locate (maxrow, 2)
            put name (i) + " selected               " ..
        end if
    end for
end MenuSelected

% Create the menus
first := GUI.CreateMenu ("File")
item (1) := GUI.CreateMenuItem (name (5), GUI.Quit)
for cnt : 1 .. 4
    item (cnt) := GUI.CreateMenuItem (name (cnt),
        MenuSelected)
end for
loop
    exit when GUI.ProcessEvent
end loop

%rest of the programm...
Author:  Tony [ Wed May 18, 2005 10:50 am ]
Post subject: 
try
Turing:

process my_background
   loop
      exit when GUI.ProcessEvent
   end loop
end my_background

fork my_background

%rest of program
Author:  Lt.Riggs [ Wed May 18, 2005 11:12 am ]
Post subject: 
Thanks for the help
Author:  Guy 1.1 [ Wed May 18, 2005 11:39 am ]
Post subject:  Re: trying to run this in the backround
[mod:02b257dfcf="Hacker Dan"]
This post has been edite due to flaming......
[/mod:02b257dfcf]
Author:  jamonathin [ Wed May 18, 2005 11:42 am ]
Post subject: 
Chances are you two are either the same person, or boyfriend and boyfriend. Why don't you just leave before you make some of the mods angry with you.
Author:  Lt.Riggs [ Wed May 18, 2005 3:32 pm ]
Post subject: 
first of all i dont like that second thing is theres just a bit of competion in class today just becuase we had a bet on whos project would be better in the end...and it looks like my groups doing great..dont know about them...anyhow these 3 people that you have been seeing have been posting stupid idiotic messages on the fourms about me or something about me just to make fun of..and i warn them that if they do any other stupid things they will get it(havent decied what yet)but to make the point straight they are your clasic gr.10 idiots

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy