[htoolkit-cvs] gio/src/examples/simple SimpleDialog.hs,1.4,1.5

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

Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1:/tmp/cvs-serv7625/src/examples/simple

Modified Files:
	SimpleDialog.hs 
Log Message:
More clever layout algorithm. Added support for stretch/hstretch/vstretch


Index: SimpleDialog.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleDialog.hs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** SimpleDialog.hs	17 Oct 2003 09:00:17 -0000	1.4
--- SimpleDialog.hs	19 Oct 2003 09:33:20 -0000	1.5
***************
*** 14,21 ****
       	b1  <- button [title =: "Modal",    on command =: showDialog True  (Just d)] grp
       	b2  <- button [title =: "Modeless", on command =: showDialog False (Just d)] grp
!      	set grp [layout =: pad 10 (b1 <<<< b2)]
       	chk <- checkBox [title =: "Resizeable", checked =: True, on command =: setResizeableOnOff d] d
!      	bclr <- button [title =: "Set Color", on command =: setColor d] d
!         set d [layout =: pad 10 (center (grp ^^^^ (chk <<<< bclr)))]
          (if b then runDialog else showWindow) d
          where
--- 14,21 ----
       	b1  <- button [title =: "Modal",    on command =: showDialog True  (Just d)] grp
       	b2  <- button [title =: "Modeless", on command =: showDialog False (Just d)] grp
!      	set grp [layout =: pad 10 (hstretch b1 <<<< hstretch b2)]
       	chk <- checkBox [title =: "Resizeable", checked =: True, on command =: setResizeableOnOff d] d
!      	bclr <- button [title =: "Set Background", on command =: setColor d] d
!         set d [layout =: pad 10 (center (hstretch grp ^^^^ (chk <<<< bclr)))]
          (if b then runDialog else showWindow) d
          where