[htoolkit-cvs] gio/src/examples/worm Main.hs,1.5,1.6 logo.bmp,1.1,NONE

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

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

Modified Files:
	Main.hs 
Removed Files:
	logo.bmp 
Log Message:
Create sepparate directory for images and move logo.bmp from worm directory 
to the new directory.


Index: Main.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/worm/Main.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Main.hs	1 Jul 2003 20:22:01 -0000	1.5
--- Main.hs	13 Jul 2003 08:15:41 -0000	1.6
***************
*** 62,66 ****
                  , on paint   =: onPaint ref
                  , on dismiss =: halt
-                 , resizeable =: False
                  ]
  
--- 62,65 ----
***************
*** 70,74 ****
  
      set mplay [on command =: onPlay ref mnew mopts mplay mexit tm w]
!     set mnew [on command =: onNew ref w]
  
  onPaint ref can _ _ = do
--- 69,75 ----
  
      set mplay [on command =: onPlay ref mnew mopts mplay mexit tm w]
!     set mnew [on command =: onNew ref w >> set w [resizeable =: False]]
! 
!     --set w [resizeable =: False]
  
  onPaint ref can _ _ = do
***************
*** 108,114 ****
  
  onAbout = do
!     logo <- readBitmap "logo.bmp" []
!     runAboutDialog "Worm" "1.0" 
!                    "(C) Krasimir Angelov, 2003" 
                     "The Worm is an example program\nfreely distributed with HToolkit"
                     [] [] [] logo Nothing
--- 109,115 ----
  
  onAbout = do
!     logo <- readBitmap "../images/logo.bmp" []
!     runAboutDialog "Worm" "1.0"
!                    "(C) Krasimir Angelov, 2003"
                     "The Worm is an example program\nfreely distributed with HToolkit"
                     [] [] [] logo Nothing

--- logo.bmp DELETED ---