Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1:/tmp/cvs-serv715/src/examples/simple
Modified Files:
SimpleMenu.hs
Log Message:
Basic support for statusbar
Index: SimpleMenu.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleMenu.hs,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** SimpleMenu.hs 7 Oct 2003 21:39:31 -0000 1.10
--- SimpleMenu.hs 14 Nov 2003 22:36:28 -0000 1.11
***************
*** 4,8 ****
main
! = start "SimpleMenu" "1.0" SDI [] $
do w <- window [view =: sz 200 200]
showWindow w
--- 4,8 ----
main
! = start "SimpleMenu" "1.0" SDI [visibleStatusBar =: True] $
do w <- window [view =: sz 200 200]
showWindow w
|
