[htoolkit-cvs] port/src/Port Controls.hs,1.24,1.25

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

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

Modified Files:
	Controls.hs 
Log Message:
add getControlVisible function


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Controls.hs	7 Oct 2003 21:59:25 -0000	1.24
--- Controls.hs	9 Oct 2003 07:56:44 -0000	1.25
***************
*** 44,48 ****
             , getControlFrame
             , setControlEnabled, getControlEnabled
!            , setControlVisible
             , setControlTip,     getControlTip
             -- * Label
--- 44,48 ----
             , getControlFrame
             , setControlEnabled, getControlEnabled
!            , setControlVisible, getControlVisible
             , setControlTip,     getControlTip
             -- * Label
***************
*** 138,141 ****
--- 138,142 ----
  
  foreign import ccall unsafe "osSetControlVisible" setControlVisible :: WindowHandle -> Bool -> IO ()
+ foreign import ccall unsafe "osGetControlVisible" getControlVisible :: WindowHandle -> IO Bool
  
  getControlTip :: WindowHandle -> IO String