[htoolkit-cvs] port/src/Port Controls.hs,1.28,1.29

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv32518/src/Port

Modified Files:
	Controls.hs 
Log Message:
Add support for CheckListBox control


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Controls.hs	24 Nov 2003 22:40:41 -0000	1.28
--- Controls.hs	25 Nov 2003 14:12:22 -0000	1.29
***************
*** 85,94 ****
             , getPopUpSelection, setPopUpSelection
             -- * List box
!            , createListBox, getListBoxRequestSize
             , appendListBoxItem, insertListBoxItem
             , removeListBoxItem, removeAllListBoxItems
             , getListBoxSingleSelection, setListBoxSingleSelection
             , getListBoxItemSelectState, setListBoxItemSelectState
! 	   , getListBoxCurrentItem
             -- * Slider
             , createHorzSlider, createVertSlider, getSliderRequestSize
--- 85,94 ----
             , getPopUpSelection, setPopUpSelection
             -- * List box
!            , createListBox, createCheckListBox, getListBoxRequestSize
             , appendListBoxItem, insertListBoxItem
             , removeListBoxItem, removeAllListBoxItems
             , getListBoxSingleSelection, setListBoxSingleSelection
             , getListBoxItemSelectState, setListBoxItemSelectState
!            , getListBoxCurrentItem
             -- * Slider
             , createHorzSlider, createVertSlider, getSliderRequestSize
***************
*** 96,120 ****
             , getSliderPosition, setSliderPosition
             -- * TrackBar
! 	   , createHorzTrackBar, createVertTrackBar, getTrackBarRequestSize
             -- * ProgressBar
! 	   , createHorzProgressBar, createVertProgressBar, getProgressBarRequestSize
! 	   , setProgressBarFraction, getProgressBarFraction
! 	   -- * CompoundControl
! 	   , createCompoundControl, getCompoundControlRequestSize
! 	   -- * GroupBox
! 	   , createGroupBox, getGroupBoxBordersSize
! 	   , getGroupBoxText, setGroupBoxText
! 	   -- * Notebook
! 	   , createNotebook, getNotebookRequestSize
! 	   , getNotebookLabelsPosition, setNotebookLabelsPosition
! 	   , getNotebookSelection,      setNotebookSelection
! 	   , getNotebookPageCount
! 	   -- * NotebookPage
! 	   , insertNotebookPage
! 	   , getNotebookPageTitle,  setNotebookPageTitle
! 	   , getNotebookPageBitmap, setNotebookPageBitmap
! 	   , getNotebookPagePos
! 	   , destroyNotebookPage
! 	   , getNotebookPageSize
             ) where
  
--- 96,120 ----
             , getSliderPosition, setSliderPosition
             -- * TrackBar
!            , createHorzTrackBar, createVertTrackBar, getTrackBarRequestSize
             -- * ProgressBar
!            , createHorzProgressBar, createVertProgressBar, getProgressBarRequestSize
!            , setProgressBarFraction, getProgressBarFraction
!            -- * CompoundControl
!            , createCompoundControl, getCompoundControlRequestSize
!            -- * GroupBox
!            , createGroupBox, getGroupBoxBordersSize
!            , getGroupBoxText, setGroupBoxText
!            -- * Notebook
!            , createNotebook, getNotebookRequestSize
!            , getNotebookLabelsPosition, setNotebookLabelsPosition
!            , getNotebookSelection,      setNotebookSelection
!            , getNotebookPageCount
!            -- * NotebookPage
!            , insertNotebookPage
!            , getNotebookPageTitle,  setNotebookPageTitle
!            , getNotebookPageBitmap, setNotebookPageBitmap
!            , getNotebookPagePos
!            , destroyNotebookPage
!            , getNotebookPageSize
             ) where
  
***************
*** 334,337 ****
--- 334,344 ----
  -- installed with 'setControlCommandHandler'.
  foreign import ccall "osCreateListBox" createListBox :: WindowHandle -> Bool -> IO WindowHandle
+ 
+ -- | Create a new checklist box. A "checklist box" displays a list of 
+ -- items where each item in the list has a check box next to it.
+ -- The check list box is a similar to the normal list box with multi
+ -- selection allowed. The difference is that the checklist box uses
+ -- check boxes to indicate the selected items.
+ foreign import ccall "osCreateCheckListBox" createCheckListBox :: WindowHandle -> IO WindowHandle
  
  appendListBoxItem :: WindowHandle -> String -> IO ()