[htoolkit-cvs] gio/src/examples/simple SimpleHello.hs,1.5,1.6

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

Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9734/src/examples/simple

Modified Files:
	SimpleHello.hs 
Log Message:
Initial support for Splitter


Index: SimpleHello.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleHello.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** SimpleHello.hs	7 Oct 2003 21:39:31 -0000	1.5
--- SimpleHello.hs	15 May 2004 06:47:45 -0000	1.6
***************
*** 3,5 ****
  import Graphics.UI.GIO
  
! main = start "hello world" "1.0" SDI [] (window [view =: sz 200 200] >>= showWindow)
--- 3,12 ----
  import Graphics.UI.GIO
  
! main = start "hello world" "1.0" SDI [] $ do
! 	w <- window [view =: sz 200 200]
! 	spl <- hSplitter [] w
! 	btnOk     <- button [title =: "Ok"] spl
! 	btnCancel <- button [title =: "Cancel"] spl
! 	set spl [layout =: btnOk ^^^ btnCancel]
! 	set w [layout =: hfill (vfill spl)]
! 	showWindow w