[htoolkit-cvs] port/src/Port Controls.hs,1.20,1.21 ToolBar.hs,1.5,1.6

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

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