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

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

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

Modified Files:
	SimpleControls.hs 
Log Message:
Added GroupBox control. /* Still only for Windows */


Index: SimpleControls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleControls.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** SimpleControls.hs	24 Aug 2003 21:05:17 -0000	1.1
--- SimpleControls.hs	1 Sep 2003 20:27:50 -0000	1.2
***************
*** 11,19 ****
            -- 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 
--- 11,21 ----
            -- Buttons page
            pg1 <- notebookPage [title =: "Buttons"] nb
!           group <- groupBox [title =: "Buttons"] pg1
!           b1pg1 <- button [title =: "Button1", on command =: messageAlert "Button1 clicked"] group
!           b2pg1 <- button [title =: "Button2", on command =: messageAlert "Button2 clicked"] group
!           set group [layout =: b1pg1 <<<< b2pg1]
!           set pg1 [layout =: group]
            
!           -- Edit page
            pg2 <- notebookPage [title =: "Edit"] nb
            lbl  <- label [title =: "Comments"] pg2 
***************
*** 23,33 ****
            
            -- 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]
  
--- 25,37 ----
            
            -- radio buttons
!           group   <- groupBox [title =: "Tabs"] w
!           rtop    <- radioBox [title =: "top",    on command =: set nb [labelsPosition =: PosTop   ]] group
!           rleft   <- radioBox [title =: "left",   on command =: set nb [labelsPosition =: PosLeft  ]] group
!           rbottom <- radioBox [title =: "bottom", on command =: set nb [labelsPosition =: PosBottom]] group
!           rright  <- radioBox [title =: "right",  on command =: set nb [labelsPosition =: PosRight ]] group
            setRadioBoxGroup [rtop,rleft,rbottom,rright]
+           set group [layout =: vertical [rtop,rleft,rbottom,rright]]
  
            e <- entry [readOnly =: True, title =: "Hello, world!"] w
!           set w [layout =: (group <<< vfill (hfill nb)) ^^^ hfill e]