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

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

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

Modified Files:
	ByeDemo.hs 
Log Message:
Update to the actual version of port


Index: ByeDemo.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/examples/ByeDemo.hs,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** ByeDemo.hs	24 Mar 2003 17:07:12 -0000	1.8
--- ByeDemo.hs	27 Oct 2003 19:56:03 -0000	1.9
***************
*** 11,15 ****
  import Graphics.UI.Port
  
! main = start "Bye!" SDI demo
   
  demo :: IO ()
--- 11,15 ----
  import Graphics.UI.Port
  
! main = start "Bye" "1.0" SDI demo
   
  demo :: IO ()
***************
*** 23,26 ****
--- 23,27 ----
         lsize <- getLabelRequestSize l                 -- get the minimal size of the label
         moveResizeControl l (rectAt (pt 0 0) lsize)    -- position in upperleft corner
+        setControlVisible l True
  
         b <- createButton w
***************
*** 28,37 ****
         bsize <- getButtonRequestSize b                -- get the minimal size of the button
         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
      -- called on the first click with the window, label, and button as arguments.
      bye w l b
        = do setLabelText l "Goodbye"
!            setControlCommandHandler b (destroyWindow w)      -- overwrite the old event handler
--- 29,39 ----
         bsize <- getButtonRequestSize b                -- get the minimal size of the button
         moveResizeControl b (rectAt (pt 0 (sh lsize)) bsize)  -- position under the label
+        setControlVisible b True
  
!        setControlCommandHandler b (bye w l b)         -- register event handler
!        setWindowVisible w True                        -- 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"
!            setControlCommandHandler b halt            -- overwrite the old event handler