Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1:/tmp/cvs-serv10597
Modified Files:
BitmapViewer.hs SimpleMenu.hs
Log Message:
update examples
Index: BitmapViewer.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/BitmapViewer.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** BitmapViewer.hs 2 Apr 2003 00:08:45 -0000 1.3
--- BitmapViewer.hs 25 Apr 2003 06:56:28 -0000 1.4
***************
*** 5,13 ****
main
= start MDI [title =: "Bitmap Viewer"] $
! do mfile <- menu "&File" [] mainMenu
! mopen <- menuitem "&Open" [] mfile
! mclose <- menuitem "&Close" [enabled =: False] mfile
menuline mfile
! mexit <- menuitem "&Exit" [on command =: quit >> return ()] mfile
set mopen [on command =: cmdopen mclose]
--- 5,13 ----
main
= start MDI [title =: "Bitmap Viewer"] $
! do mfile <- menu [title =: "&File"] mainMenu
! mopen <- menuitem [title =: "&Open"] mfile
! mclose <- menuitem [title =: "&Close", enabled =: False] mfile
menuline mfile
! mexit <- menuitem [title =: "&Exit", on command =: quit >> return ()] mfile
set mopen [on command =: cmdopen mclose]
Index: SimpleMenu.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleMenu.hs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** SimpleMenu.hs 23 Apr 2003 21:48:48 -0000 1.4
--- SimpleMenu.hs 25 Apr 2003 06:56:28 -0000 1.5
***************
*** 7,13 ****
do w <- window [title =: "Hello world", view =: sz 200 200]
! bmpNew <- readBitmap "new.bmp" []
! bmpOpen <- readBitmap "open.bmp" []
! bmpSave <- readBitmap "save.bmp" []
fm <- menu [title =: "&File"] mainMenu
--- 7,13 ----
do w <- window [title =: "Hello world", view =: sz 200 200]
! bmpNew <- readBitmap "res/new.bmp" []
! bmpOpen <- readBitmap "res/open.bmp" []
! bmpSave <- readBitmap "res/save.bmp" []
fm <- menu [title =: "&File"] mainMenu
|
