added #enabled.
authorca
Fri, 21 Feb 1997 20:17:00 +0100
changeset 299 740258e44b3c
parent 298 88cb01678b87
child 300 de23beb3af66
added #enabled.
CheckBox.st
--- a/CheckBox.st	Fri Feb 21 20:14:45 1997 +0100
+++ b/CheckBox.st	Fri Feb 21 20:17:00 1997 +0100
@@ -334,6 +334,13 @@
     "Modified: 25.4.1996 / 16:31:40 / cg"
 !
 
+enabled
+    "return true, if the checkBox is enabled.
+     forwarded to toggle"
+
+    ^ toggleView enabled.
+!
+
 pressAction:aBlock
     "set the pressAction; forwarded to the toggle"
 
@@ -648,5 +655,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.37 1997-01-22 17:17:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.38 1997-02-21 19:17:00 ca Exp $'
 ! !