Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv3025/port/src/Port
Modified Files:
Controls.hs ToolBar.hs
Log Message:
Implementation for Countable type class
Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** Controls.hs 30 Aug 2003 22:57:46 -0000 1.20
--- Controls.hs 31 Aug 2003 12:56:25 -0000 1.21
***************
*** 93,96 ****
--- 93,97 ----
, getNotebookLabelsPosition, setNotebookLabelsPosition
, getNotebookSelection, setNotebookSelection
+ , getNotebookPageCount
-- * NotebookPage
, insertNotebookPage
***************
*** 481,484 ****
--- 482,487 ----
= osSetNotebookSelection hwnd (toCInt i)
foreign import ccall osSetNotebookSelection :: WindowHandle -> CInt -> IO ()
+
+ foreign import ccall "osGetNotebookPageCount" getNotebookPageCount :: WindowHandle -> IO Int
insertNotebookPage :: WindowHandle -> Maybe Int -> IO WindowHandle
Index: ToolBar.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/ToolBar.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ToolBar.hs 23 Aug 2003 11:05:58 -0000 1.5
--- ToolBar.hs 31 Aug 2003 12:56:26 -0000 1.6
***************
*** 17,20 ****
--- 17,21 ----
createToolBar
, destroyToolBar
+ , getToolBarButtonCount
, insertToolButton
***************
*** 48,51 ****
--- 49,54 ----
foreign import ccall "osDestroyToolBar" destroyToolBar :: WindowHandle -> IO ()
+
+ foreign import ccall "osGetToolBarButtonCount" getToolBarButtonCount :: WindowHandle -> IO Int
insertToolButton :: WindowHandle -> Maybe Int -> IO ToolHandle
|