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

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

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

Added Files:
	Counter.hs 
Log Message:
Add Counter example (ported from ObjectIO)


--- NEW FILE: Counter.hs ---
module Main (main) where

import Graphics.UI.GIO

main = start "Counter" "1.0" SDI [] $ do
	w <- window []
	ent <- entry [readOnly =: True, tooltip =: "Counter Value", title =: "0"] w
	bplus  <- button [title =: "-", tooltip =: "Decrement Value", on command =: upd (\x->x-1) ent] w
	bminus <- button [title =: "+", tooltip =: "Increment Value", on command =: upd (\x->x+1) ent] w
	set w [layout =: hfill ent ^^^ hcenter (pad 5 (fill bplus <<< fill bminus))]
	where
		upd f ent = set ent [title ~: show . f . read]