[htoolkit-cvs] port/src/Port Controls.hs,1.13,1.14

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

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

Modified Files:
	Controls.hs 
Log Message:
Complete implementation for ListBox for GTK/Gnome.


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Controls.hs	27 Mar 2003 13:36:21 -0000	1.13
--- Controls.hs	10 Jul 2003 19:39:56 -0000	1.14
***************
*** 70,73 ****
--- 70,74 ----
             , getListBoxSingleSelection, setListBoxSingleSelection
             , getListBoxItemSelectState, setListBoxItemSelectState
+ 	   , getListBoxCurrentItem
             -- * Slider
             , createHorzSlider, createVertSlider, getSliderRequestSize
***************
*** 296,301 ****
  foreign import ccall osSetListBoxItemSelectState :: WindowHandle -> CInt -> CBool -> IO ()
  
  -----------------------------------------------------------------------------------------
! --  Popup  
  -----------------------------------------------------------------------------------------
  -- | Create a  new popup box.
--- 297,304 ----
  foreign import ccall osSetListBoxItemSelectState :: WindowHandle -> CInt -> CBool -> IO ()
  
+ foreign import ccall "osGetListBoxCurrentItem" getListBoxCurrentItem :: WindowHandle -> IO Int
+ 
  -----------------------------------------------------------------------------------------
! --  Popup
  -----------------------------------------------------------------------------------------
  -- | Create a  new popup box.