--- a/ChckTggle.st	Sat Mar 22 16:36:50 1997 +0100
+++ b/ChckTggle.st	Sat Mar 22 18:24:49 1997 +0100
@@ -406,6 +406,8 @@
 !
 
 edgeDrawn:which
+    "redraw my logo if it overlaps the edge"
+
     LabelOverMargin ifTrue:[
         (logo notNil and:[logo isImageOrForm]) ifTrue:[
             self paint:fgColor on:bgColor.
@@ -415,11 +417,11 @@
        ]
     ].
 
-    "Modified: 7.3.1997 / 19:54:30 / cg"
+    "Modified: 22.3.1997 / 18:23:50 / cg"
 ! !
 
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.32 1997-03-07 20:17:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.33 1997-03-22 17:24:49 cg Exp $'
 ! !

--- a/CheckToggle.st	Sat Mar 22 16:36:50 1997 +0100
+++ b/CheckToggle.st	Sat Mar 22 18:24:49 1997 +0100
@@ -406,6 +406,8 @@
 !
 
 edgeDrawn:which
+    "redraw my logo if it overlaps the edge"
+
     LabelOverMargin ifTrue:[
         (logo notNil and:[logo isImageOrForm]) ifTrue:[
             self paint:fgColor on:bgColor.
@@ -415,11 +417,11 @@
        ]
     ].
 
-    "Modified: 7.3.1997 / 19:54:30 / cg"
+    "Modified: 22.3.1997 / 18:23:50 / cg"
 ! !
 
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.32 1997-03-07 20:17:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.33 1997-03-22 17:24:49 cg Exp $'
 ! !