Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv30880/port/src/Port
Modified Files:
Controls.hs
Log Message:
Implement readOnly and visible attributes for Entry control
Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Controls.hs 26 Mar 2003 15:39:47 -0000 1.9
--- Controls.hs 26 Mar 2003 17:11:48 -0000 1.10
***************
*** 40,44 ****
-- * Edit box
, createEdit, getEditRequestSize
! , getEditText, setEditText
-- * Check box
, createCheckBox, getCheckBoxRequestSize
--- 40,46 ----
-- * Edit box
, createEdit, getEditRequestSize
! , getEditText, setEditText
! , getEditReadOnly, setEditReadOnly
! , getEditVisibility,setEditVisibility
-- * Check box
, createCheckBox, getCheckBoxRequestSize
***************
*** 182,185 ****
--- 184,193 ----
= withCString txt $ \ctxt -> osSetEditText hwnd ctxt
foreign import ccall osSetEditText :: WindowHandle -> CString -> IO ()
+
+ foreign import ccall "osSetEditReadOnly" setEditReadOnly :: WindowHandle -> Bool -> IO ()
+ foreign import ccall "osGetEditReadOnly" getEditReadOnly :: WindowHandle -> IO Bool
+
+ foreign import ccall "osSetEditVisibility" setEditVisibility :: WindowHandle -> Bool -> IO ()
+ foreign import ccall "osGetEditVisibility" getEditVisibility :: WindowHandle -> IO Bool
-----------------------------------------------------------------------------------------
|
