Computer Science Canada

more than one item in a menu
Author:  bubbles3 [ 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)
Author:  Tony [ Sat Jun 04, 2005 1:06 pm ]
Post subject: 
Try out
Turing:

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

and then guess where your problem lies.
Author:  bubbles3 [ 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 
Author:  iluvslutz [ Mon Jun 06, 2005 12:23 pm ]
Post subject: 
ya thats true3redgryujntghngfku,kjhngbfdiujnhbgfrxdwsgerfqsdxjnuhnbg vftdxsty ywq mnjhywqr ejhmntwe ywqr jk3t UYMN jfmnyt6w ymtjk
Author:  bubbles3 [ Mon Jun 06, 2005 12:25 pm ]
Post subject: 
who the fuck are u and what are u doing?

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy