CodeCompletionHelpView.st
changeset 13448 8f3c88862f5a
parent 12908 a46f2cc73003
child 13476 9e09d2a0bf7c
--- a/CodeCompletionHelpView.st	Sun Sep 01 00:40:03 2013 +0200
+++ b/CodeCompletionHelpView.st	Sun Sep 01 01:44:18 2013 +0200
@@ -121,11 +121,12 @@
 resizeToFit
     "resize myself to make the component view fit"
 
-    |pref|
+    |pref bw|
 
     pref := myView preferredExtent.
-    self extent:(pref + (self borderWidth * 2)).
-    myView origin:(self borderWidth asPoint).
+    bw := self borderWidth.
+    self extent:(pref + (bw * 2)).
+    myView origin:(bw asPoint).
 
     "Modified: 28.6.1997 / 14:23:49 / cg"
 ! !
@@ -138,15 +139,25 @@
     ^ true
 
     "Modified: 12.5.1996 / 21:58:12 / cg"
+!
+
+wantsFocusWithButtonPress
+    "DEFINITELY not, because if we do so,
+     the editView looses focus on click, and sends me to hell
+     in its lost focus handling!!
+     So I will be terminated by a buttonPress, before I get a chance to handle the buttonRelease
+     (in which I fire my action)"
+
+    ^ false
 ! !
 
 !CodeCompletionHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.1 2013-06-14 14:29:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.2 2013-08-31 23:44:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.1 2013-06-14 14:29:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.2 2013-08-31 23:44:18 cg Exp $'
 ! !