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 ---
|
