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

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

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

Modified Files:
	Controls.hs 
Log Message:
Rename visible attribute to password


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Controls.hs	1 Sep 2003 20:27:49 -0000	1.22
--- Controls.hs	7 Oct 2003 20:20:42 -0000	1.23
***************
*** 57,61 ****
             , getEditText,      setEditText
             , getEditReadOnly,  setEditReadOnly
!            , getEditVisibility,setEditVisibility
             , changeEditBoxFont
             -- * Check box
--- 57,61 ----
             , getEditText,      setEditText
             , getEditReadOnly,  setEditReadOnly
!            , getEditPassword,setEditPassword
             , changeEditBoxFont
             -- * Check box
***************
*** 246,251 ****
  foreign import ccall "osGetEditReadOnly" getEditReadOnly :: WindowHandle -> IO Bool
  
! foreign import ccall "osSetEditVisibility" setEditVisibility :: WindowHandle -> Bool -> IO ()
! foreign import ccall "osGetEditVisibility" getEditVisibility :: WindowHandle -> IO Bool
  
  changeEditBoxFont :: WindowHandle -> Font -> IO ()
--- 246,251 ----
  foreign import ccall "osGetEditReadOnly" getEditReadOnly :: WindowHandle -> IO Bool
  
! foreign import ccall "osSetEditPassword" setEditPassword :: WindowHandle -> Bool -> IO ()
! foreign import ccall "osGetEditPassword" getEditPassword :: WindowHandle -> IO Bool
  
  changeEditBoxFont :: WindowHandle -> Font -> IO ()