[htoolkit-cvs] gio/src/examples/simple BitmapViewer.hs,1.3,1.4 SimpleMenu.hs,1.4,1.5

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

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