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
|
