Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv30647/gio/src/Graphics/UI/GIO
Modified Files:
Menu.hs
Log Message:
Additional functions for menu item state
Index: Menu.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Menu.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Menu.hs 25 Mar 2003 23:37:03 -0000 1.3
--- Menu.hs 26 Mar 2003 12:59:24 -0000 1.4
***************
*** 77,81 ****
, mtext :: String
, vkey :: Var Key
- , venabled :: Var Bool
}
--- 77,80 ----
***************
*** 85,91 ****
= do mitem <- do hitem <- Lib.addMenuItem (hmenu menu) Lib.KeyNull title
Lib.registerWindowMenu (hwindow menu) hitem
- venabled <- newVar True
vkey <- newVar Lib.KeyNull
! return (MenuItem hitem menu title vkey venabled)
set mitem props
return mitem
--- 84,89 ----
= do mitem <- do hitem <- Lib.addMenuItem (hmenu menu) Lib.KeyNull title
Lib.registerWindowMenu (hwindow menu) hitem
vkey <- newVar Lib.KeyNull
! return (MenuItem hitem menu title vkey)
set mitem props
return mitem
***************
*** 94,100 ****
instance Able MenuItem where
! enabled = newAttr (\w -> getVar (venabled w))
! (\w b -> do Lib.setMenuItemState (hmenu (parent w)) (hitem w) b
! setVar (venabled w) b)
instance Commanding MenuItem where
--- 92,97 ----
instance Able MenuItem where
! enabled = newAttr (\w -> Lib.getMenuItemEnabled (hmenu (parent w)) (hitem w))
! (\w -> Lib.setMenuItemEnabled (hmenu (parent w)) (hitem w))
instance Commanding MenuItem where
|
