From 7553b7f9d4dddc2235c137d41de8ce22547bebe3 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 1 Jul 2015 17:36:37 +0200
Subject: Initial commit

---
 osmenu.icl | 176 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 176 insertions(+)
 create mode 100644 osmenu.icl

(limited to 'osmenu.icl')

diff --git a/osmenu.icl b/osmenu.icl
new file mode 100644
index 0000000..72e3daf
--- /dev/null
+++ b/osmenu.icl
@@ -0,0 +1,176 @@
+implementation module osmenu
+
+
+import	StdBool, StdChar, StdClass, StdInt, StdString
+import	StdMaybe
+from	StdIOCommon			import :: Modifiers
+import	menuCCall_12, menuCrossCall_12
+from	osdocumentinterface	import :: OSMenuBar{..}
+from	ostypes				import :: OSWindowPtr, OSNoWindowPtr
+
+
+//	Types for menus and menu elements:
+::	OSMenuHandle	:== HMENU
+::	OSMenu			:== HMENU
+::	OSMenuItem		:== HITEM
+::	OSMenuSeparator	:== HITEM
+
+//	Dummy values:
+OSNoMenu :== 0
+OSNoMenuItem :== 0
+OSNoMenuSeparator :== 0
+
+
+/*	Initialisation:
+*/
+osInitialiseMenus :: !*OSToolbox -> *OSToolbox
+osInitialiseMenus tb
+	= winInitialiseMenus tb
+
+
+//	Enabling and disabling menus and menu elements:
+
+osDisableMenu :: !Int !OSMenuBar !*OSToolbox -> *OSToolbox
+osDisableMenu zIndex osMenuBar=:{menuBar} tb
+	= winChangeMenuAbility menuBar zIndex False tb
+
+osEnableMenu :: !Int !OSMenuBar !*OSToolbox -> *OSToolbox
+osEnableMenu zIndex osMenuBar=:{menuBar} tb
+	= winChangeMenuAbility menuBar zIndex True tb
+
+osDisableMenuItem :: !OSMenu !OSMenuItem !Int !*OSToolbox -> *OSToolbox
+osDisableMenuItem menuHandle item _ tb
+	= winChangeItemAbility menuHandle item False tb
+
+osEnableMenuItem :: !OSMenu !OSMenuItem !Int !*OSToolbox -> *OSToolbox
+osEnableMenuItem menuHandle item _ tb
+	= winChangeItemAbility menuHandle item True tb
+
+osDisableSubMenu :: !OSMenu !OSMenuItem !Int !*OSToolbox -> *OSToolbox
+osDisableSubMenu menuHandle item _ tb
+	= winChangeItemAbility menuHandle item False tb
+
+osEnableSubMenu	:: !OSMenu !OSMenuItem !Int !*OSToolbox -> *OSToolbox
+osEnableSubMenu menuHandle item _ tb
+	= winChangeItemAbility menuHandle item True tb
+
+
+
+//	Changing and updating the menu bar:
+
+osDrawMenuBar :: !OSMenuBar !*OSToolbox -> *OSToolbox
+osDrawMenuBar {menuWindow,menuClient} tb
+	= winDrawMenuBar menuWindow (if (menuClient==OSNoWindowPtr) 0 menuClient) tb
+
+osMenuBarClear :: !*OSToolbox -> *OSToolbox
+osMenuBarClear tb
+	= tb
+
+osMenuBarSet :: !OSMenuBar !*OSToolbox -> (!OSMenuBar,!*OSToolbox)
+osMenuBarSet menuBar tb
+	= (menuBar,tb)
+	
+osMenuInsert :: !Int !OSMenuNr !{#Char} !OSMenuBar !*OSToolbox -> (!OSMenu,!OSMenuBar,!*OSToolbox)
+osMenuInsert index osMenuNr title menuBar tb
+	# (menu,tb) = winCreatePopupMenuHandle tb
+	= (menu,menuBar,winInsertMenu title True menu menuBar.menuBar index tb)
+	
+osSubMenuInsert :: !Int !OSMenuNr !{#Char} !OSMenu !*OSToolbox -> (!OSMenu, !OSMenu, !*OSToolbox)
+osSubMenuInsert index osMenuNr title parentMenu tb
+	# (menu,tb) = winCreatePopupMenuHandle tb
+	= (menu,parentMenu,winInsertMenu title True menu parentMenu index tb)
+
+osMenuRemove :: !OSMenu !OSMenuBar !*OSToolbox -> (!OSMenuBar, !*OSToolbox)
+osMenuRemove menu menuBar=:{menuBar=hmenu} tb
+	# tb	= winDeleteMenu hmenu menu tb
+	# tb	= winDestroyMenu menu tb
+	= (menuBar,tb)
+
+osSubMenuRemove :: !OSMenu !OSMenu !Int !Int !*OSToolbox -> (!OSMenu,!*OSToolbox)
+osSubMenuRemove submenu hmenu _ _ tb
+	# tb	= winDeleteMenu hmenu submenu tb
+	# tb	= winDestroyMenu submenu tb
+	= (hmenu,tb)
+
+osRemoveMenuShortKey :: !OSWindowPtr !OSMenuItem !*OSToolbox -> *OSToolbox
+osRemoveMenuShortKey framePtr item tb
+	= winRemoveMenuShortKey framePtr item tb
+
+osCreatePopUpMenu :: !*OSToolbox -> (!OSMenu,!*OSToolbox)
+osCreatePopUpMenu tb
+	= winCreatePopupMenuHandle tb
+
+::	OSTrackPopUpMenu									// The result of tracking an item in a PopUpMenu:
+	=	{	ospupItem		:: !OSTrackPopUpMenuResult	//	the item that has been selected
+		,	ospupModifiers	:: !Modifiers				//	the modifiers that have been pressed at selection
+		}
+::	OSTrackPopUpMenuResult								// The item of a pop up menu that has been selected is indicated by:
+	=	PopUpTrackedByIndex	 !Int !Int					//	the parent menu id and the item's index position (used on Mac)
+	|	PopUpTrackedByItemId !Int						//	its identification                               (used on Windows)
+
+osTrackPopUpMenu :: !OSMenu !OSWindowPtr !*OSToolbox -> (!Maybe OSTrackPopUpMenu,!*OSToolbox)
+osTrackPopUpMenu menu framePtr tb
+	# (menuItemID,modifiers,tb)	= winTrackPopupMenu menu framePtr tb
+	| menuItemID==0
+		= (Nothing,tb)
+	| otherwise
+		= (Just {ospupItem=PopUpTrackedByItemId menuItemID,ospupModifiers=modifiers},tb)
+
+
+//	Changing (sub)menus:
+osAppendMenuItem :: !OSMenuBar !Int !OSMenu !{#Char} !Bool !Bool !Char !*OSToolbox -> (!OSMenuItem,!OSMenu,!*OSToolbox)
+osAppendMenuItem {menuWindow} index menu title able mark key tb
+	# title		= if (key <> '\0')
+					(title +++ "\tCtrl+" +++ toString (toUpper key))
+					title
+	# (item,tb)	= winInsertMenuItem title able mark menu index tb
+	| key <> '\0'
+		= (item,menu,winAddMenuShortKey menuWindow item key tb)
+	| otherwise
+		= (item,menu,tb)
+
+osAppendMenuSeparator :: !Int !OSMenu !*OSToolbox -> (!OSMenuSeparator,!OSMenu,!*OSToolbox)
+osAppendMenuSeparator index menu tb
+	# tb	= winInsertSeparator menu index tb
+	= (OSNoMenuSeparator,menu,tb)
+
+osChangeMenuTitle :: !OSMenuBar !OSMenu !{#Char} !*OSToolbox -> *OSToolbox
+osChangeMenuTitle {menuBar} menu title tb
+	= winModifyMenu title menu menuBar tb
+
+osChangeMenuItemTitle :: !OSMenu !OSMenuItem !Int !{#Char} !*OSToolbox -> *OSToolbox
+osChangeMenuItemTitle menu item _ title tb
+	= winModifyMenuItem title item menu tb
+
+osMenuItemCheck :: !Bool !OSMenu !OSMenuItem !Int !Int !*OSToolbox -> *OSToolbox
+osMenuItemCheck check menu item _ _ tb
+	= winChangeMenuItemCheck menu item check tb
+
+osMenuRemoveItem :: !OSMenuItem !Int !OSMenu !*OSToolbox -> (!OSMenu,!*OSToolbox)
+osMenuRemoveItem item _ menu tb
+	= (menu,winRemoveMenuItem menu item tb)
+
+
+//	Validation of (sub)menu (element) attributes:
+
+osValidateMenuItemTitle :: !(Maybe Char) !{#Char} -> {#Char}	// PA: function now includes short key.
+osValidateMenuItemTitle Nothing title
+	= title
+osValidateMenuItemTitle (Just key) title
+	= title +++ "\tCtrl+" +++ toString (toUpper key)
+
+
+/*	Two functions that generate free OS ids for menus and sub menus.
+	If the functions fail, then the Bool result is False, and the Int result is 0. 
+	Do not continue to create the (sub)menu.
+*/
+::	OSMenuNr	:== Int
+::	OSSubMenuNr	:== Int
+
+osNewMenuNr :: !*OSToolbox -> (!Bool,!OSMenuNr,!*OSToolbox)
+osNewMenuNr tb
+	= (True,0,tb)
+
+osNewSubMenuNr :: !*OSToolbox -> (!Bool,!OSSubMenuNr,!*OSToolbox)
+osNewSubMenuNr tb
+	= (True,0,tb)
-- 
cgit v1.2.3