[htoolkit-cvs] gio/src/examples/simple BitmapViewer.hs,1.2,1.3

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

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