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

bubbles3

Fri Jun 03, 2005 11:53 am


more than one item in a menu

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

please help me add more than one item to this menu

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)


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

Tony

Sat Jun 04, 2005 1:06 pm



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

Try out

var name : array 1 .. 3 of string (4) :=
    init ("Open", "---","Tony")

and then guess where your problem lies.


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

bubbles3

Mon Jun 06, 2005 11:39 am


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
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

Mon Jun 06, 2005 12:23 pm



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

ya thats true3redgryujntghngfku,kjhngbfdiujnhbgfrxdwsgerfqsdxjnuhnbg vftdxsty ywq mnjhywqr ejhmntwe ywqr jk3t UYMN  jfmnyt6w ymtjk


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

bubbles3

Mon Jun 06, 2005 12:25 pm



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

who the fuck are u and what are u doing?