[htoolkit-cvs] gio/src/examples/simple SimpleMenu.hs,1.10,1.11

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

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