Button.st
changeset 800 0d8a2d42398d
parent 781 51741bd620ab
child 850 11c857edb53b
--- a/Button.st	Fri Jul 19 20:57:13 1996 +0200
+++ b/Button.st	Fri Jul 19 21:13:27 1996 +0200
@@ -1754,6 +1754,8 @@
 
     |extraH extraV|
 
+    "/ If I have an explicit preferredExtent ..
+
     preferredExtent notNil ifTrue:[
         ^ preferredExtent
     ].
@@ -1775,7 +1777,7 @@
 
     ^ super preferredExtent
 
-    "Modified: 29.5.1996 / 12:13:11 / cg"
+    "Modified: 19.7.1996 / 20:43:42 / cg"
 !
 
 specClass
@@ -2013,5 +2015,5 @@
 !Button  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.64 1996-07-05 16:09:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.65 1996-07-19 19:13:27 cg Exp $'
 ! !