[htoolkit-cvs] port/src/examples ByeDemo.hs,1.4,1.5

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

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