[htoolkit-cvs] port/src/examples ByeDemo.hs,1.1,1.2

[<dl...@us...>]

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

Modified Files:
	ByeDemo.hs 
Log Message:
more comments to the demo


Index: ByeDemo.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/examples/ByeDemo.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ByeDemo.hs	31 Jan 2003 21:21:29 -0000	1.1
--- ByeDemo.hs	31 Jan 2003 23:27:24 -0000	1.2
***************
*** 21,41 ****
         registerWindowPaint w (\can upd -> fillRect upd can) -- fill the background with some color
         setWindowDomainSize w (Size 0 0)               -- no scroll bars needed
!        setWindowViewSize w (Size 80 40)              -- guess some size as Port has no layout manager
!        setWindowTitle w "Bye!"
         
         l <- createLabel w
         setLabelText l "Hello World!"
!        lsize <- getLabelRequestSize l                 -- get minimal size
         moveResizeControl l (rectAt (Point 0 0) lsize) -- position in upperleft corner
  
         b <- createButton w
         setButtonText b "Bye"
!        bsize <- getButtonRequestSize b
         moveResizeControl b (rectAt (Point 0 (sh lsize)) bsize)  -- position under the label
  
         registerButtonClick b (bye w l b)              -- register event handler
!        showWindow w
    where
      bye w l b
        = do setLabelText l "Goodbye"
!            registerButtonClick b (closeWindow w)
--- 21,42 ----
         registerWindowPaint w (\can upd -> fillRect upd can) -- fill the background with some color
         setWindowDomainSize w (Size 0 0)               -- no scroll bars needed
!        setWindowViewSize w (Size 80 40)               -- guess some size as Port has no layout manager
!        setWindowTitle w "Bye!"                        -- set the title bar text
         
         l <- createLabel w
         setLabelText l "Hello World!"
!        lsize <- getLabelRequestSize l                 -- get the minimal size of the label
         moveResizeControl l (rectAt (Point 0 0) lsize) -- position in upperleft corner
  
         b <- createButton w
         setButtonText b "Bye"
!        bsize <- getButtonRequestSize b                -- get the minimal size of the button
         moveResizeControl b (rectAt (Point 0 (sh lsize)) bsize)  -- position under the label
  
         registerButtonClick b (bye w l b)              -- register event handler
!        showWindow w                                   -- show it all
    where
+     -- called on the first click with the window, label, and button as arguments.
      bye w l b
        = do setLabelText l "Goodbye"
!            registerButtonClick b (closeWindow w)      -- overwrite the old event handler