[htoolkit-cvs] gio/src/Graphics/UI/GIO Controls.hs,1.42,1.43

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

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

Modified Files:
	Controls.hs 
Log Message:
Add an instance of Able for DateEntry


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -d -r1.42 -r1.43
*** Controls.hs	25 Nov 2003 14:17:56 -0000	1.42
--- Controls.hs	25 Nov 2003 15:57:48 -0000	1.43
***************
*** 287,290 ****
--- 287,293 ----
      return de
  
+ instance Able DateEntry where
+   enabled = newStdAttr dehandle Port.getControlEnabled Port.setControlEnabled
+ 
  instance Tipped DateEntry where
    tooltip = newStdAttr dehandle Port.getControlTip Port.setControlTip