[htoolkit-cvs] port/src/Port Controls.hs,1.10,1.11

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

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

Modified Files:
	Controls.hs 
Log Message:
Added implementation for tooltips


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Controls.hs	26 Mar 2003 17:11:48 -0000	1.10
--- Controls.hs	26 Mar 2003 19:20:18 -0000	1.11
***************
*** 32,35 ****
--- 32,36 ----
             , getControlFrame
             , setControlEnabled, getControlEnabled
+            , setControlTip,     getControlTip
             -- * Label
             , createLabel, getLabelRequestSize
***************
*** 89,92 ****
--- 90,103 ----
  foreign import ccall unsafe "osSetControlEnabled" setControlEnabled :: WindowHandle -> Bool -> IO ()
  foreign import ccall unsafe "osGetControlEnabled" getControlEnabled :: WindowHandle -> IO Bool
+ 
+ getControlTip :: WindowHandle -> IO String
+ getControlTip hwnd
+   = resultCString (osGetControlTip hwnd)
+ foreign import ccall osGetControlTip :: WindowHandle -> IO CString
+ 
+ setControlTip :: WindowHandle -> String -> IO ()
+ setControlTip hwnd txt
+   = withCString txt (osSetControlTip hwnd)
+ foreign import ccall osSetControlTip :: WindowHandle -> CString -> IO ()
  
  -----------------------------------------------------------------------------------------