|
From: <kr_...@us...> - 2003-03-24 17:07:16
|
Update of /cvsroot/htoolkit/port/src/examples
In directory sc8-pr-cvs1:/tmp/cvs-serv19196/src/examples
Modified Files:
ByeDemo.hs
Log Message:
Merge PopUpClick, CheckBoxClick, RadioBoxClick, ListBoxClick and ButtonClick to single event named ControlCommand
Index: ByeDemo.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/examples/ByeDemo.hs,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** ByeDemo.hs 24 Mar 2003 16:58:33 -0000 1.7
--- ByeDemo.hs 24 Mar 2003 17:07:12 -0000 1.8
***************
*** 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
--- 29,33 ----
moveResizeControl b (rectAt (pt 0 (sh lsize)) bsize) -- position under the label
! setControlCommandHandler b (bye w l b) -- register event handler
showWindow w -- show it all
where
***************
*** 35,37 ****
bye w l b
= do setLabelText l "Goodbye"
! setButtonClickHandler b (destroyWindow w) -- overwrite the old event handler
--- 35,37 ----
bye w l b
= do setLabelText l "Goodbye"
! setControlCommandHandler b (destroyWindow w) -- overwrite the old event handler
|