--- a/CodeCompletionHelpView.st Fri Nov 08 12:48:51 2013 +0100
+++ b/CodeCompletionHelpView.st Fri Nov 08 12:49:41 2013 +0100
@@ -89,19 +89,20 @@
initStyle
"setup viewStyle specifics"
- <resource: #style (#'activeHelp.backgroundColor'
+ <resource: #style (
+ "/ #'activeHelp.backgroundColor'
#'activeHelp.borderWidth'
- #'activeHelp.font'
- #'activeHelp.style')>
+ "/ #'activeHelp.font'
+ )>
|defaultFont|
super initStyle.
- defaultFont := styleSheet fontAt:#'activeHelp.font' default:nil.
- defaultFont notNil ifTrue:[
- self font:defaultFont
- ].
+"/ defaultFont := styleSheet fontAt:#'activeHelp.font' default:nil.
+"/ defaultFont notNil ifTrue:[
+"/ self font:defaultFont
+"/ ].
self borderWidth:(styleSheet at:#'activeHelp.borderWidth' default:1).
@@ -124,6 +125,7 @@
|pref bw|
pref := myView preferredExtent.
+ myView extent:pref.
bw := self borderWidth.
self extent:(pref + (bw * 2)).
myView origin:(bw asPoint).
@@ -161,10 +163,10 @@
!CodeCompletionHelpView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.4 2013-09-03 12:19:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.5 2013-11-08 11:49:41 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.4 2013-09-03 12:19:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.5 2013-11-08 11:49:41 cg Exp $'
! !