Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 please help with menu
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
bubbles3




PostPosted: Fri Jun 10, 2005 11:35 am   Post subject: please help with menu

im trying to make this menu print, save, restart the program, and exit as well as diplay text when a button is pressed any help would be great
code:
import GUI
View.Set ("screen:center: max:max")
var win := Window.Open (" max,max,graphics")
colourback (black)
colour (white)
var first, second : int
var item : array 1 .. 10 of int
var name : array 1 .. 10 of string (4) :=
    init ("New", "---", "Open", "---", "Save", "---", "Prin", "---", "Exit", "---")
var name2 : array 1 .. 1 of string (4) :=
    init ("Info")
forward proc exitwindow

first := GUI.CreateMenu ("File")
item (1) := GUI.CreateMenuItem (name (1), exitwindow)
item (2) := GUI.CreateMenuItem (name (2), exitwindow)
item (3) := GUI.CreateMenuItem (name (3), exitwindow)
item (4) := GUI.CreateMenuItem (name (4), exitwindow)
item (5) := GUI.CreateMenuItem (name (5), exitwindow)
item (6) := GUI.CreateMenuItem (name (6), exitwindow)
item (7) := GUI.CreateMenuItem (name (7), exitwindow)
item (8) := GUI.CreateMenuItem (name (8), exitwindow)
item (9) := GUI.CreateMenuItem (name (9), exitwindow)

second := GUI.CreateMenu ("Help")
item (10) := GUI.CreateMenuItem (name2 (1), exitwindow)

process my_background
    loop
        exit when GUI.ProcessEvent
    end loop
end my_background
fork my_background
body proc exitwindow
    Window.Close (win)

end exitwindow
Sponsor
Sponsor
Sponsor
sponsor
bubbles3




PostPosted: Fri Jun 10, 2005 11:37 am   Post subject: (No subject)

PLEASE Embarassed Embarassed Sad Sad Question Question
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 2 Posts ]
Jump to:   


Style:  
Search: