[htoolkit-cvs] gio/src/Graphics/UI/GIO Controls.hs,1.5,1.6

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv30880/gio/src/Graphics/UI/GIO

Modified Files:
	Controls.hs 
Log Message:
Implement readOnly and visible attributes for Entry control


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Controls.hs	26 Mar 2003 15:39:46 -0000	1.5
--- Controls.hs	26 Mar 2003 17:11:47 -0000	1.6
***************
*** 15,19 ****
                                   Button, button
                                 , Label, label 
!                                , Entry, entry
                                 , Popup, popup
                                 , CheckGroup, checkGroup, checkLayout
--- 15,19 ----
                                   Button, button
                                 , Label, label 
!                                , Entry, entry, readOnly, visible
                                 , Popup, popup
                                 , CheckGroup, checkGroup, checkLayout
***************
*** 135,139 ****
    pack w
      = stdPack (eparent w) (Port.getEditRequestSize (ehandle w)) (Port.moveResizeControl (ehandle w))
!              
  
  {--------------------------------------------------------------------
--- 135,146 ----
    pack w
      = stdPack (eparent w) (Port.getEditRequestSize (ehandle w)) (Port.moveResizeControl (ehandle w))
!     
! -- | Determines if the user can edit the text in the editable widget or not. 
! readOnly :: Attr Entry Bool    
! readOnly = newAttr (Port.getEditReadOnly . ehandle) (Port.setEditReadOnly . ehandle)
! 
! -- | Determines if the user can edit the text in the editable widget or not. 
! visible :: Attr Entry Bool    
! visible = newAttr (Port.getEditVisibility . ehandle) (Port.setEditVisibility . ehandle)
  
  {--------------------------------------------------------------------