# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1135164886 -3600
# Node ID 0050e38370edf726f143110f4fb6da9f868aba49
# Parent  bbdc2721ec0b2bb2274c4eb249e7888421935b66
comment

diff -r bbdc2721ec0b -r 0050e38370ed CheckBox.st
--- a/CheckBox.st	Thu Dec 15 22:45:59 2005 +0100
+++ b/CheckBox.st	Wed Dec 21 12:34:46 2005 +0100
@@ -692,10 +692,12 @@
 !
 
 keyPress:aKey x:x y:y
+    "forward some key-events to my toggle-button"
+
     aKey == Character space ifTrue:[
-	self hasFocus ifTrue:[
-	    ^ toggleView toggle
-	]
+        self hasFocus ifTrue:[
+            ^ toggleView toggle
+        ]
     ].
     super keyPress:aKey x:x y:y
 
@@ -920,5 +922,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.74 2004-11-24 09:41:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.75 2005-12-21 11:34:46 cg Exp $'
 ! !
diff -r bbdc2721ec0b -r 0050e38370ed ComboView.st
--- a/ComboView.st	Thu Dec 15 22:45:59 2005 +0100
+++ b/ComboView.st	Wed Dec 21 12:34:46 2005 +0100
@@ -438,10 +438,11 @@
 !
 
 keyPress:key x:x y:y
+    "pull the menu on space and return keys"
+
     <resource: #keyboard (#Return)>
 
-    (key == Character space
-    or:[key == #Return]) ifTrue:[
+    (key == Character space or:[key == #Return]) ifTrue:[
         self pullMenu.
         ^ self.
     ].
@@ -695,5 +696,5 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.77 2005-01-28 11:28:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.78 2005-12-21 11:34:41 cg Exp $'
 ! !