[htoolkit-cvs] gio/src/Graphics/UI/GIO Controls.hs,1.23,1.24

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv8978/src/Graphics/UI/GIO

Modified Files:
	Controls.hs 
Log Message:
Comments


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Controls.hs	24 Aug 2003 13:57:34 -0000	1.23
--- Controls.hs	24 Aug 2003 14:21:01 -0000	1.24
***************
*** 66,72 ****
--- 66,84 ----
                                 
                                 -- ** CheckBox
+                                -- | A check box consists of a square box and a label, that indicates a choice 
+                                -- the user can make by selecting the check. Each CheckBox has two states: 
+                                -- checked (a check mark inside the box) or cleared (no check mark). The
+                                -- state is controled from the 'checked' attribute. Repeatedly clicking a 
+                                -- check box toggles it from checked to cleared and back again.
                                 , CheckBox, checkBox
                                 
                                 -- ** RadioBox
+                                -- | A radio button consists of a round button and a label that indicates a 
+                                -- choice the user can make by selecting the button. An application typically 
+                                -- uses radio buttons in a group box to permit the user to choose from a set 
+                                -- of mutually exclusive options. The group is defined with 'setRadioBoxGroup'
+                                -- function. When the user selects an radio button from group then the system 
+                                -- automatically sets its check state to 'checked' and clears all other 
+                                -- buttons within the same group.
                                 , RadioBox, radioBox, setRadioBoxGroup
                                 
***************
*** 77,81 ****
                                 -- | A notebook control is analogous to the dividers in a real notebook.
                                 -- By using a notebook control, an application can define multiple pages for 
!                                -- the same area of a window or dialog box.
                                 , Notebook, notebook, labelsPosition, selectedPage
                                 , NotebookPage, notebookPageAt, notebookPage
--- 89,95 ----
                                 -- | A notebook control is analogous to the dividers in a real notebook.
                                 -- By using a notebook control, an application can define multiple pages for 
!                                -- the same area of a window or dialog box. Each page is represented from 
!                                -- 'NotebookPage' type and is created from 'notebookPageAt' or 'notebookPage'
!                                -- function.
                                 , Notebook, notebook, labelsPosition, selectedPage
                                 , NotebookPage, notebookPageAt, notebookPage
***************
*** 708,712 ****
  instance SingleSelect Notebook where
    selected = newStdAttr nbhandle Port.getNotebookSelection Port.setNotebookSelection
!   
  selectedPage :: Attr Notebook NotebookPage
  selectedPage = newAttr getPage setPage
--- 722,727 ----
  instance SingleSelect Notebook where
    selected = newStdAttr nbhandle Port.getNotebookSelection Port.setNotebookSelection
! 
! -- | The selected page in the notebook
  selectedPage :: Attr Notebook NotebookPage
  selectedPage = newAttr getPage setPage
***************
*** 721,725 ****
  			Port.setNotebookSelection (nbhandle w)index
  
! -- | A notebook page control.
  data NotebookPage = NotebookPage
  	{ pghandle :: !WindowHandle
--- 736,740 ----
  			Port.setNotebookSelection (nbhandle w)index
  
! -- | A notebook page.
  data NotebookPage = NotebookPage
  	{ pghandle :: !WindowHandle
***************
*** 739,742 ****
--- 754,758 ----
         return pg
  
+ -- | Appends a new page in the notebook.
  notebookPage :: [Prop NotebookPage] -> Notebook -> IO NotebookPage
  notebookPage = notebookPageAt Nothing