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 ----
|
