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

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

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