Author |
Message |
Lt.Riggs
|
Posted: 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... |
|
|
|
|
|
|
Sponsor Sponsor
|
|
|
Tony
|
Posted: Wed May 18, 2005 10:50 am Post subject: (No subject) |
|
|
try
Turing: |
process my_background
loop
exit when GUI.ProcessEvent
end loop
end my_background
fork my_background
%rest of program
|
|
|
|
|
|
|
Lt.Riggs
|
Posted: Wed May 18, 2005 11:12 am Post subject: (No subject) |
|
|
Thanks for the help |
|
|
|
|
|
Guy 1.1
|
Posted: 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] |
|
|
|
|
|
jamonathin
|
Posted: Wed May 18, 2005 11:42 am Post subject: (No 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. |
|
|
|
|
|
Lt.Riggs
|
Posted: Wed May 18, 2005 3:32 pm Post subject: (No 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 |
|
|
|
|
|
|