[htoolkit-cvs] gio/src/examples/simple DynamicLayout.hs,NONE,1.1

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

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

Added Files:
	DynamicLayout.hs 
Log Message:
Add example for dynamic layout


--- NEW FILE: DynamicLayout.hs ---
module Main where

import Graphics.UI.GIO

main = start "DynamicLayout" "1.0" SDI [] demo     -- "start" initializes the GUI.

demo :: IO ()
demo = do
          w <- window [pen =: dialogPen, autosize =: False]
          e <- entry [] w
          b <- button [title =: "Ok"] w
	  c <- checkBox [title =: "Simple", on command =:: showHide w (fill e <<< b), checked =: True] w
          showWindow w
          where
                    showHide w lay c = do
                              chk <- get c checked
                              set w [layout =: pad 10 (if chk then pack c else c ^^^^ lay)]