[htoolkit-cvs] gio/src/examples/simple SimpleMenu.hs,1.11,1.12

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

Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1:/tmp/cvs-serv4336/src/examples/simple

Modified Files:
	SimpleMenu.hs 
Log Message:
Update example after last changes


Index: SimpleMenu.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleMenu.hs,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** SimpleMenu.hs	14 Nov 2003 22:36:28 -0000	1.11
--- SimpleMenu.hs	15 Nov 2003 10:53:23 -0000	1.12
***************
*** 4,8 ****
  
  main
!   = start "SimpleMenu" "1.0" SDI [visibleStatusBar =: True] $
      do w <- window [view =: sz 200 200]
         showWindow w
--- 4,8 ----
  
  main
!   = start "SimpleMenu" "1.0" SDI [] $
      do w <- window [view =: sz 200 200]
         showWindow w
***************
*** 14,29 ****
         fm  <- menu [title =: "&File"] mainMenu
         menuitem [ title =: "&New"
                  , accel =: KeyChar '\^N'
                  , on command =: messageAlert "NEW"
                  , icon =: Just bmpNew
                  ] fm
!        menuitem [title =: "&Open"
                  , accel =: KeyChar '\^O'
                  , on command =: messageAlert "OPEN"
                  , icon =: Just bmpOpen
                  ] fm
!        menuitem [title =: "&Close"] fm       
         menuline fm
         menuitem [ title =: "&Save"
                  , accel =: KeyChar '\^S'
                  , on command =: messageAlert "SAVE"
--- 14,34 ----
         fm  <- menu [title =: "&File"] mainMenu
         menuitem [ title =: "&New"
+                 , tooltip =: "Create a new document"
                  , accel =: KeyChar '\^N'
                  , on command =: messageAlert "NEW"
                  , icon =: Just bmpNew
                  ] fm
!        menuitem [ title =: "&Open"
!                 , tooltip =: "Open an existing document"
                  , accel =: KeyChar '\^O'
                  , on command =: messageAlert "OPEN"
                  , icon =: Just bmpOpen
                  ] fm
!        menuitem [ title =: "&Close"
!                 , tooltip =: "Close the active document"
!                 ] fm       
         menuline fm
         menuitem [ title =: "&Save"
+                 , tooltip =: "Save the active document"
                  , accel =: KeyChar '\^S'
                  , on command =: messageAlert "SAVE"
***************
*** 31,43 ****
                  ] fm
         menuline fm
!        menuitem [title =: "&Exit", on command =: halt] fm
  
         mColor <- menu [title =: "&Color"] mainMenu
!        menucheck [title =: "&Transparent", accel =: KeyChar '\^T', on command =:: onToggleTransparent] mColor
         menuline mColor
!        mRed   <- menuRadioItem [title =: "&Red",   on command =: messageAlert "RED COLOR"  ] mColor
!        mGreen <- menuRadioItem [title =: "&Green", on command =: messageAlert "GREEN COLOR"] mColor
!        mBlue  <- menuRadioItem [title =: "&Blue",  on command =: messageAlert "BLUE COLOR" ] mColor
         setMenuRadioGroup [mRed, mGreen, mBlue]
      where
         onToggleTransparent tgl = do
--- 36,66 ----
                  ] fm
         menuline fm
!        menuitem [ title =: "&Exit"
!                 , tooltip =: "Quit the application"
!                 , on command =: halt
!                 ] fm
  
         mColor <- menu [title =: "&Color"] mainMenu
!        menucheck [ title =: "&Transparent"
!                  , tooltip =: "Set transparency on/off"
!                  , accel =: KeyChar '\^T'
!                  , on command =:: onToggleTransparent
!                  ] mColor
         menuline mColor
!        mRed   <- menuRadioItem [ title =: "&Red"
!                                , tooltip =: "Select red color"
!                                , on command =: messageAlert "RED COLOR"
!                                ] mColor
!        mGreen <- menuRadioItem [ title =: "&Green"
!                                , tooltip =: "Select green color"
!                                , on command =: messageAlert "GREEN COLOR"
!                                ] mColor
!        mBlue  <- menuRadioItem [ title =: "&Blue"
!                                , tooltip =: "Select blue color"
!                                , on command =: messageAlert "BLUE COLOR"
!                                ] mColor
         setMenuRadioGroup [mRed, mGreen, mBlue]
+        
+        set sb [visible =: True]
      where
         onToggleTransparent tgl = do