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
|
