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
|
