[htoolkit-cvs] port/src/examples ByeDemo.hs,1.5,1.6

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

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

Modified Files:
	ByeDemo.hs 
Log Message:
set AppName as default title for toplevel windows.


Index: ByeDemo.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/examples/ByeDemo.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ByeDemo.hs	3 Mar 2003 00:17:14 -0000	1.5
--- ByeDemo.hs	3 Mar 2003 00:45:15 -0000	1.6
***************
*** 11,15 ****
  import Graphics.UI.Port
  
! main = start "ByeDemo" SDI demo
   
  demo :: IO ()
--- 11,15 ----
  import Graphics.UI.Port
  
! main = start "Bye!" SDI demo
   
  demo :: IO ()
***************
*** 18,22 ****
         setWindowDomainSize w (sz 0 0)                 -- no scroll bars needed
         setWindowViewSize w (sz 80 40)                 -- guess some size as Port has no layout manager
-        setWindowTitle w "Bye!"                        -- set the title bar text
         
         l <- createLabel w
--- 18,21 ----