[htoolkit-cvs] gio/src/examples/simple SimpleMenu.hs,1.7,1.8

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

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

Modified Files:
	SimpleMenu.hs 
Log Message:
formatting


Index: SimpleMenu.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleMenu.hs,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** SimpleMenu.hs	21 Jun 2003 10:14:47 -0000	1.7
--- SimpleMenu.hs	12 Jul 2003 08:08:49 -0000	1.8
***************
*** 12,31 ****
  
         fm  <- menu [title =: "&File"] mainMenu
!        menuitem [title =: "&New"
!                 ,accel =: KeyChar '\^N'
!                 ,on command =: messageAlert "NEW"
!                 ,menuicon =: Just bmpNew
                  ] fm
         menuitem [title =: "&Open"
!                 ,accel =: KeyChar '\^O'
                  , on command =: messageAlert "OPEN"
!                 , menuicon =: Just bmpOpen
                  ] fm
         menuitem [title =: "&Close"] fm       
         menuline fm
!        menuitem [title =: "&Save"
!                 ,accel =: KeyChar '\^S'
!                 ,on command =: messageAlert "SAVE"
!                 , menuicon =: Just bmpSave
                  ] fm
         menuline fm
--- 12,31 ----
  
         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"
!                 , icon =: Just bmpSave
                  ] fm
         menuline fm