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

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

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

Added Files:
	SimpleDialog.hs 
Log Message:
Add dialogs sample


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

import Graphics.UI.GIO
import Control.Monad(when)

main
  = start SDI [title =: "Simple dialogs"] $ do
      fm  <- menu [title =: "&Open"] mainMenu
      menuitem [title =: "Modal Dialog",    on command =: showDialog True  Nothing] fm
      menuitem [title =: "Modeless Dialog", on command =: showDialog False Nothing]  fm
  where
     showDialog b parent = do
     	d <- dialog [title =: "Dialog", frame =: Rect 100 100 500 500] parent
     	b1 <- button [text =: "Open Modal Dialog",    on command =: showDialog True  (Just d)] d
     	b2 <- button [text =: "Open Modeless Dialog", on command =: showDialog False (Just d)] d
        set d [layout =: pad 10 (center (b1 <<< b2))]
        when b (runDialog d)