[htoolkit-cvs] gio/src/examples/simple BitmapViewer.hs,1.5,1.6

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

Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1:/tmp/cvs-serv7023/gio/src/examples/simple

Modified Files:
	BitmapViewer.hs 
Log Message:
Update example after changes in CommonDialog API


Index: BitmapViewer.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/BitmapViewer.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** BitmapViewer.hs	26 Apr 2003 10:00:50 -0000	1.5
--- BitmapViewer.hs	26 Apr 2003 21:05:44 -0000	1.6
***************
*** 22,26 ****
      cmdopen mclose
        = do codes <- getAvailableCodecs
!            fnames <- runInputFilesDialog "Open" (codecsToFilesFilter codes)
             mapM_ (openBitmapWindow mclose) fnames
  
--- 22,26 ----
      cmdopen mclose
        = do codes <- getAvailableCodecs
!            fnames <- runInputFilesDialog "Open" (codecsToFilesFilter codes) Nothing
             mapM_ (openBitmapWindow mclose) fnames