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

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

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

Modified Files:
	Controls.hs 
Log Message:
make possible to hide/show controls at any time


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Controls.hs	7 Oct 2003 20:20:42 -0000	1.23
--- Controls.hs	7 Oct 2003 21:59:25 -0000	1.24
***************
*** 44,47 ****
--- 44,48 ----
             , getControlFrame
             , setControlEnabled, getControlEnabled
+            , setControlVisible
             , setControlTip,     getControlTip
             -- * Label
***************
*** 135,138 ****
--- 136,141 ----
  foreign import ccall unsafe "osSetControlEnabled" setControlEnabled :: WindowHandle -> Bool -> IO ()
  foreign import ccall unsafe "osGetControlEnabled" getControlEnabled :: WindowHandle -> IO Bool
+ 
+ foreign import ccall unsafe "osSetControlVisible" setControlVisible :: WindowHandle -> Bool -> IO ()
  
  getControlTip :: WindowHandle -> IO String