more than one item in a menu
| Author |
Message |
bubbles3
|
 Posted: Fri Jun 03, 2005 11:53 am Post subject: more than one item in a menu |
|
|
please help me add more than one item to this menu
| code: | import GUI
View.Set ("screen")
var win := Window.Open ("position:top,center,graphics") %Determins the window ID
colourback (black)
colour (white)
drawfillbox (0, 0, maxx, maxy - 50, black)
var first, second, third, fourth : int % The menus.
var item : array 1 .. 5 of int % The menu items.
var name : array 1 .. 2 of string (4) :=
init ("Open", "---" )
forward proc exitwindow
% Create the menus
first := GUI.CreateMenu ("File")
item (1) := GUI.CreateMenuItem (name (1), exitwindow)
item (2) := GUI.CreateMenuItem (name (2), exitwindow) |
|
|
|
|
|
 |
Sponsor
Sponsor
|
|
|
Tony
|
| Posted: Sat Jun 04, 2005 1:06 pm Post subject: (No subject) |
|
|
Try out
| Turing: |
var name : array 1 .. 3 of string (4) :=
init ("Open", "---","Tony")
|
and then guess where your problem lies. |
|
|
|
|
|
bubbles3
|
| Posted: Mon Jun 06, 2005 11:39 am Post subject: ok thats working, but..... |
|
|
ok i got that working but how to i get the buttons to run another standalone program and run another part of the main program with out running it unless the button is clicked
| code: | drawfillbox (0, 0, maxx, maxy - 50, black)
var first, second, third, fourth : 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)
also how do i get the word print to show up entirley it will only run with prin |
|
|
|
|
|
|
iluvslutz
|
| Posted: Mon Jun 06, 2005 12:23 pm Post subject: (No subject) |
|
|
| ya thats true3redgryujntghngfku,kjhngbfdiujnhbgfrxdwsgerfqsdxjnuhnbg vftdxsty ywq mnjhywqr ejhmntwe ywqr jk3t UYMN jfmnyt6w ymtjk |
|
|
|
|
|
bubbles3
|
| Posted: Mon Jun 06, 2005 12:25 pm Post subject: (No subject) |
|
|
| who the fuck are u and what are u doing? |
|
|
|
|
|
|
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
