--- a/ComboBoxView.st	Thu Apr 15 11:52:55 1999 +0200
+++ b/ComboBoxView.st	Thu Apr 15 18:30:31 1999 +0200
@@ -171,6 +171,25 @@
     "Modified: 28.2.1996 / 15:11:03 / cg"
 ! !
 
+!ComboBoxView methodsFor:'event handling'!
+
+hasKeyboardFocus:aBoolean
+    super hasKeyboardFocus:aBoolean.
+    field hasKeyboardFocus:aBoolean
+!
+
+showFocus:explicit
+    super showFocus:explicit.
+    field showCursor.
+
+!
+
+showNoFocus:explicit
+    super showNoFocus:explicit.
+    field hideCursor.
+
+! !
+
 !ComboBoxView methodsFor:'initialization'!
 
 initializeField
@@ -249,5 +268,5 @@
 !ComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.23 1999-03-25 15:00:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.24 1999-04-15 16:30:31 cg Exp $'
 ! !