--- a/CheckBox.st	Thu Nov 09 16:25:53 2000 +0100
+++ b/CheckBox.st	Thu Nov 09 16:32:12 2000 +0100
@@ -527,10 +527,13 @@
     "Modified: 25.4.1996 / 16:33:08 / cg"
 !
 
-label:aString
+label:aStringOrImageOrForm
     "set the logo; forward to label & resize"
 
-    labelView label:aString.
+    |xlatedLabel|
+
+    xlatedLabel := self defineShortcutAndTranslateLabelStringFrom:aStringOrImageOrForm.
+    labelView label:xlatedLabel.
     self resizeForChangedLabel.
 !
 
@@ -680,7 +683,10 @@
 
     "Created: 10.7.1996 / 11:24:16 / cg"
     "Modified: 10.7.1996 / 11:54:52 / cg"
-! !
+!
+
+performShortcutAction
+    toggleView toggle! !
 
 !CheckBox methodsFor:'focus handling'!
 
@@ -876,5 +882,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.67 2000-08-22 14:14:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.68 2000-11-09 15:32:12 ca Exp $'
 ! !