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 ()
-----------------------------------------------------------------------------------------
|
