Path: news.daimi.aau.dk!not-for-mail
From: "Sascha Kimmel" <Sascha_Kimmel@gmx.net>
Newsgroups: comp.lang.beta
Subject: Dynamic menu items and menu actions in guienv
Date: Tue, 14 Apr 1998 01:25:54 +0200 (MET DST)
Organization: DAIMI, Computer Science Dept. at Aarhus University
Lines: 89
Approved: mailtonews@daimi.aau.dk
Distribution: world
Message-ID: <199804132325.BAA24894@noatun.mjolner.dk>
Reply-To: "Sascha Kimmel" <Sascha_Kimmel@gmx.net>
NNTP-Posting-Host: daimi.daimi.aau.dk
Xref: news.daimi.aau.dk comp.lang.beta:11522

Hello!

I have some problems with dynamic menu items.
I want to attach and detach some items from a menu (or rather: attach and
detach menuActions to a certain item) but I could not get it to work:

ORIGIN '~beta/guienv/V1.6/guienv';
--- program: descriptor ---

guienv
(#

	MainWindow:@window
	(#
		menubarType::
         	(#
			FileMenu: @menu
               	(#
				NewItem: @dynamicmenuitem
                 	      (# open::(# do 'New' -> name;'n' -> key  #) #);
				selectNewItem:@menuAction
				(# onSelect::(# do #) #); (* do something *)

				OpenItem: @dynamicmenuitem
                 	      (# open::(# do 'Open' -> name;'o' -> key  #) #);
				selectOpenItem:@menuAction
				(# onSelect::(# do #) #); (* do something *)

				SaveItem: @dynamicmenuitem
                 	      (# open::(# do 'Save' -> name;'s' -> key  #) #);
				selectSaveItem:@menuAction
				(# onSelect::(# do #) #); (* do something *)

				quitItem: @dynamicmenuitem
                   	(# open::(# do 'Exit' -> name;'x' -> key #) #);
				selectQuitItem:@menuAction
				(# onSelect::(# do terminate #) #);

              	 	open::
                    	(#
                    	do 'File' -> name;
				NewItem.open; newItem[] -> append; selectNewItem[]->NewItem.attach;
				OpenItem.open; OpenItem[] -> append; selectOpenItem[]->OpenItem.attach;
				SaveItem.open; SaveItem[] -> append; selectSaveItem[]->SaveItem.attach;
                        quitItem.open; quitItem[] -> append;
selectQuitItem[]->QuitItem.attach;
                    #)

               #);


	open:: (*  menubarType *)
	(# do FileMenu.open; FileMenu[] -> append #)

		#);

		open:: (* MainWindow *)
		(#
  			do
			'TestWindow'->title;
			(440,250) -> size;
			(100,100)->position;
		#);

	#);

do
MainWindow.open;

(* I would like to attach or detach certain menuActions _here_ to/from an
item *)
(* "MainWindow.FileMenu.OpenItem.detach;" will not work *)

#)


Please help me!


Sincerely,
Sascha Kimmel


-------------------------------------------------------
Sascha Kimmel     eMail: Sascha_Kimmel@gmx.net
Germany           ICQ: 9174052