Update of /cvsroot/htoolkit/port/src/examples
In directory sc8-pr-cvs1:/tmp/cvs-serv26918/src/examples
Modified Files:
ByeDemo.hs
Log Message:
Update example after last changes in the Port library
Index: ByeDemo.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/examples/ByeDemo.hs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ByeDemo.hs 10 Feb 2003 22:42:11 -0000 1.4
--- ByeDemo.hs 3 Mar 2003 00:17:14 -0000 1.5
***************
*** 11,15 ****
import Graphics.UI.Port
! main = start SDI demo
demo :: IO ()
--- 11,15 ----
import Graphics.UI.Port
! main = start "ByeDemo" SDI demo
demo :: IO ()
***************
*** 36,38 ****
bye w l b
= do setLabelText l "Goodbye"
! registerButtonClick b (closeWindow w) -- overwrite the old event handler
--- 36,38 ----
bye w l b
= do setLabelText l "Goodbye"
! registerButtonClick b (destroyWindow w) -- overwrite the old event handler
|
