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

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

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

Added Files:
	SimpleControls.hs 
Log Message:
Add new example


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

import Graphics.UI.GIO

main = start "Controls" "1.0" SDI [] demo
 
demo :: IO ()
demo = do w <- window []
          nb <- notebook [] w
          
          -- Buttons page
          pg1 <- notebookPage [title =: "Buttons"] nb
          b1pg1 <- button [title =: "Button1", on command =: messageAlert "Button1 clicked"] pg1
          b2pg1 <- button [title =: "Button2", on command =: messageAlert "Button2 clicked"] pg1
          set pg1 [layout =: b1pg1 <<<< b2pg1]
          
          -- page 2
          pg2 <- notebookPage [title =: "Edit"] nb
          lbl  <- label [title =: "Comments"] pg2 
	  edit <- entry [] pg2
	  chk  <- checkBox [title =: "Read only", on command =: set edit [readOnly ~: not]] pg2
          set pg2 [layout =: (lbl <<<< (hglue <<< chk)) ^^^ hfill (vfill (edit))]
          
          -- radio buttons
          rtop    <- radioBox [title =: "top",    on command =: set nb [labelsPosition =: PosTop   ]] w
          rleft   <- radioBox [title =: "left",   on command =: set nb [labelsPosition =: PosLeft  ]] w          
          rbottom <- radioBox [title =: "bottom", on command =: set nb [labelsPosition =: PosBottom]] w
          rright  <- radioBox [title =: "right",  on command =: set nb [labelsPosition =: PosRight ]] w
          setRadioBoxGroup [rtop,rleft,rbottom,rright]

          e <- entry [readOnly =: True, title =: "Hello, world!"] w
          set w [layout =: (vertical [rtop,rleft,rbottom,rright] <<< vfill (hfill nb)) ^^^ hfill e]