Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1:/tmp/cvs-serv6061/gio/src/examples/simple
Modified Files:
BitmapViewer.hs
Log Message:
Update the sample after the last changes in the GIO. The new implementation uses MDI.
Index: BitmapViewer.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/BitmapViewer.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** BitmapViewer.hs 24 Mar 2003 17:19:51 -0000 1.2
--- BitmapViewer.hs 2 Apr 2003 00:08:45 -0000 1.3
***************
*** 4,46 ****
main
! = start SDI $
! do image <- newVar Nothing
! w <- window [title =: "Bitmap viewer", view =: sz 300 300, on paint =: paintImage image]
!
! bar <- menubar [] w
! mfile <- submenu "&File" [] bar
mopen <- menuitem "&Open" [] mfile
mclose <- menuitem "&Close" [enabled =: False] mfile
menuline mfile
! mexit <- menuitem "&Exit" [on command =: close w] mfile
! set w [layout =: bar]
!
! set mopen [on command =: cmdopen w image mclose]
! set mclose [on command =: cmdclose w image mclose]
where
! cmdopen w image mclose
= do mbfname <- runInputFileDialog
case mbfname of
Nothing -> return ()
! Just fname -> do cmdclose w image mclose
! bitmap <- readBitmap fname []
! setVar image (Just bitmap)
! set mclose [enabled =: True]
! sz <- get bitmap size
! set w [domain =: sz]
! repaint w
! cmdclose w image mclose
! = do mbbitmap <- getVar image
! case mbbitmap of
! Nothing -> return ()
! Just bmp -> do setVar image Nothing
! set mclose [enabled =: False]
! repaint w
! return ()
paintImage image can updFrame updAreas
! = do mbbitmap <- getVar image
! case mbbitmap of
! Nothing -> rectangle updFrame [color =: white] can
! Just bm -> bitmap (pt 0 0) bm can
\ No newline at end of file
--- 4,39 ----
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]
! return ()
where
! cmdopen mclose
= do mbfname <- runInputFileDialog
case mbfname of
Nothing -> return ()
! Just fname -> do bitmap <- readBitmap fname []
! bmpSize <- get bitmap size
! w <- window [ title =: fname
! , domain =: bmpSize
! , view =: sz 300 300
! , on paint =: paintImage bitmap
! ]
! set mclose [enabled =: True, on command =: cmdclose w mclose]
! set w [ on activate =: set mclose [enabled =: True, on command =: cmdclose w mclose]
! , on deactivate =: set mclose [enabled =: False, off command]
! ]
! return ()
! cmdclose w mclose
! = do set mclose [enabled =: False, off command]
! dismissWidget w
! return ()
paintImage image can updFrame updAreas
! = do bitmap (pt 0 0) image can
\ No newline at end of file
|
