ComboView.st
changeset 3503 f14e20004081
parent 3495 33b88650f7e1
child 3556 e7d87b5b3cf7
--- a/ComboView.st	Thu Jul 24 14:44:31 2008 +0200
+++ b/ComboView.st	Thu Jul 24 16:29:21 2008 +0200
@@ -554,8 +554,10 @@
 
     "/ although eaten, we still must care for the focus !!
     self wantsFocusWithButtonPress ifTrue:[
-        self windowGroup focusView:self.
-Transcript showCR:self windowGroup focusCameByTab.
+        self windowGroup notNil ifTrue:[
+            self windowGroup focusView:self.
+"/ Transcript showCR:self windowGroup focusCameByTab.
+        ]
     ].
     ^ true
 
@@ -850,5 +852,5 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.94 2008-07-22 20:50:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.95 2008-07-24 14:29:21 mb Exp $'
 ! !