[htoolkit-cvs] gio/src/Graphics/UI/GIO Menu.hs,1.6,1.7

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv29834/src/Graphics/UI/GIO

Modified Files:
	Menu.hs 
Log Message:
Implement class Able for Menu


Index: Menu.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Menu.hs,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Menu.hs	23 Apr 2003 21:48:47 -0000	1.6
--- Menu.hs	8 Jun 2003 11:27:42 -0000	1.7
***************
*** 58,62 ****
  menu :: [Prop Menu] -> Menu -> IO Menu
  menu = menuAt Nothing
!        
  instance Titled Menu where
    title = newAttr (Lib.getMenuLabel . hmenu) (Lib.setMenuLabel . hmenu)
--- 58,65 ----
  menu :: [Prop Menu] -> Menu -> IO Menu
  menu = menuAt Nothing
! 
! instance Able Menu where
!   enabled   = newAttr (Lib.getMenuItemEnabled . hmenu) (Lib.setMenuItemEnabled . hmenu)
! 
  instance Titled Menu where
    title = newAttr (Lib.getMenuLabel . hmenu) (Lib.setMenuLabel . hmenu)