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

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

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

Modified Files:
	SimpleMenu.hs 
Log Message:
Updated example


Index: SimpleMenu.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleMenu.hs,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** SimpleMenu.hs	15 Nov 2003 10:53:23 -0000	1.12
--- SimpleMenu.hs	22 Nov 2003 10:50:41 -0000	1.13
***************
*** 11,14 ****
--- 11,19 ----
         bmpOpen <- readBitmap "res/open.bmp" []
         bmpSave <- readBitmap "res/save.bmp" []
+        
+        set sb [visible =: True]
+        indicator [title =: "Click Me", on command =: messageAlert "CLICK!"] sb
+        icolor <- indicator [title =: "NONE"] sb
+        itrans <- indicator [title =: "NORM"] sb
  
         fm  <- menu [title =: "&File"] mainMenu
***************
*** 45,69 ****
                   , 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
            chk <- get tgl checked
!           messageAlert (if chk then "TRANSPARENT ON" else "TRANSPARENT OFF")
  
--- 50,72 ----
                   , tooltip =: "Set transparency on/off"
                   , accel =: KeyChar '\^T'
!                  , on command =:: onToggleTransparent itrans
                   ] mColor
         menuline mColor
         mRed   <- menuRadioItem [ title =: "&Red"
                                 , tooltip =: "Select red color"
!                                , on command =: set icolor [title =: "RED"]
                                 ] mColor
         mGreen <- menuRadioItem [ title =: "&Green"
                                 , tooltip =: "Select green color"
!                                , on command =: set icolor [title =: "GREEN"]
                                 ] mColor
         mBlue  <- menuRadioItem [ title =: "&Blue"
                                 , tooltip =: "Select blue color"
!                                , on command =: set icolor [title =: "BLUE"]
                                 ] mColor
         setMenuRadioGroup [mRed, mGreen, mBlue]
      where
!        onToggleTransparent itrans tgl = do
            chk <- get tgl checked
!           set itrans [title =: (if chk then "TRANSPARENT" else "NORM")]