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

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

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