[htoolkit-cvs] port/src/examples ByeDemo.hs,1.6,1.7

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

Update of /cvsroot/htoolkit/port/src/examples
In directory sc8-pr-cvs1:/tmp/cvs-serv10214/src/examples

Modified Files:
	ByeDemo.hs 
Log Message:
All register/unregister functions for all event types are renamed. The new scheme:

registerXXX -> setXXXHandler
unregisterXXX -> setXXXDefHandler

added getXXXHandler functions



Index: ByeDemo.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/examples/ByeDemo.hs,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** ByeDemo.hs	3 Mar 2003 00:45:15 -0000	1.6
--- ByeDemo.hs	24 Mar 2003 16:58:33 -0000	1.7
***************
*** 29,33 ****
         moveResizeControl b (rectAt (pt 0 (sh lsize)) bsize)  -- position under the label
  
!        registerButtonClick b (bye w l b)              -- register event handler
         showWindow w                                   -- show it all
    where
--- 29,33 ----
         moveResizeControl b (rectAt (pt 0 (sh lsize)) bsize)  -- position under the label
  
!        setButtonClickHandler b (bye w l b)              -- register event handler
         showWindow w                                   -- show it all
    where
***************
*** 35,37 ****
      bye w l b
        = do setLabelText l "Goodbye"
!            registerButtonClick b (destroyWindow w)      -- overwrite the old event handler
--- 35,37 ----
      bye w l b
        = do setLabelText l "Goodbye"
!            setButtonClickHandler b (destroyWindow w)      -- overwrite the old event handler