-----------------------------------

Lt.Riggs

Wed May 18, 2005 10:43 am


trying to run this in the backround

-----------------------------------

I would like to run this code in the backround of the program for friendly user GUI...
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...


-----------------------------------

Tony

Wed May 18, 2005 10:50 am



-----------------------------------

try

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

fork my_background

%rest of program



-----------------------------------

Lt.Riggs

Wed May 18, 2005 11:12 am



-----------------------------------

Thanks for the help


-----------------------------------

Guy 1.1

Wed May 18, 2005 11:39 am


Re: trying to run this in the backround

-----------------------------------


This post has been edite due to flaming......



-----------------------------------

jamonathin

Wed May 18, 2005 11:42 am



-----------------------------------

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

Wed May 18, 2005 3:32 pm



-----------------------------------

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