[htoolkit-cvs] port/src/examples ByeDemo.hs,1.3,1.4

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

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

Modified Files:
	ByeDemo.hs 
Log Message:
MDI/SDI interface for Windows


Index: ByeDemo.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/examples/ByeDemo.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ByeDemo.hs	8 Feb 2003 08:39:35 -0000	1.3
--- ByeDemo.hs	10 Feb 2003 22:42:11 -0000	1.4
***************
*** 11,21 ****
  import Graphics.UI.Port
  
! main = do demo    -- setup gui
!           start   -- start event loop
   
  demo :: IO ()
  demo 
    = do w <- createWindow
-        registerWindowDismiss w (closeWindow w)        -- close when the user dismisses the window
         setWindowDomainSize w (sz 0 0)                 -- no scroll bars needed
         setWindowViewSize w (sz 80 40)                 -- guess some size as Port has no layout manager
--- 11,19 ----
  import Graphics.UI.Port
  
! main = start SDI demo
   
  demo :: IO ()
  demo 
    = do w <- createWindow
         setWindowDomainSize w (sz 0 0)                 -- no scroll bars needed
         setWindowViewSize w (sz 80 40)                 -- guess some size as Port has no layout manager