[htoolkit-cvs] gio/src/Graphics/UI/GIO Menu.hs,1.3,1.4

[<kr_...@us...>]

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