--- a/Label.st	Sat Apr 24 14:49:45 1999 +0200
+++ b/Label.st	Sat Apr 24 15:40:03 1999 +0200
@@ -1234,6 +1234,15 @@
     "Modified: / 28.4.1998 / 17:07:57 / cg"
 ! !
 
+!Label methodsFor:'focus handling'!
+
+wantsFocusWithButtonPress
+    self class == Label ifTrue:[^ false].
+    ^ super wantsFocusWithButtonPress
+
+
+! !
+
 !Label methodsFor:'initialize / release'!
 
 destroy
@@ -1710,5 +1719,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.98 1999-04-23 12:45:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.99 1999-04-24 13:40:03 cg Exp $'
 ! !