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

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

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

Added Files:
	Able.hs 
Log Message:
This commit implements instances for Able type class for all kinds of windows and controls.


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

import Graphics.UI.GIO

main = start "Able" SDI [] demo

demo = do
	w1 <- window [title  =: "Slave",  view =: sz 200 100, domain =: sz 200 80]
	ent <- entry  [text =: "Test!"] w1
	btn <- button [text =: "Button"] w1
	set w1 [layout =: (hfix 80 ent <<< btn)]
	w2 <- window [title  =: "Master", view =: sz 200 80,  domain =: sz 200 80]
	bctrl <- button [] w2
	bwnd  <- button [] w2
	set w2 [layout =: (hfill bctrl ^^^ hfill bwnd)]
	enable "Control" bctrl ent
	enable "Window"  bwnd  w1
	return ()
	where
		enable title b w = do
			set w [enabled =: True]
			set b [text =: "Disable " ++ title, on command =: disable title b w]

		disable title b w = do
			set w [enabled =: False]
			set b [text =: "Enable  " ++ title, on command =: enable  title b w]