diff -r 53aca0dc22d1 -r a46f2cc73003 CodeCompletionHelpView.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/CodeCompletionHelpView.st	Fri Jun 14 16:29:52 2013 +0200
@@ -0,0 +1,152 @@
+"
+ COPYRIGHT (c) 2013 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+"{ Package: 'stx:libtool' }"
+
+View subclass:#CodeCompletionHelpView
+	instanceVariableNames:'myView'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Help'
+!
+
+!CodeCompletionHelpView class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 2013 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+documentation
+"
+    used with codecompletion suggestions
+
+    [author:]
+        Claus Gittinger
+
+    [See also:]
+        ActiveHelp
+"
+! !
+
+!CodeCompletionHelpView class methodsFor:'instance creation'!
+
+with:aView
+    "create a talking-view wrapping some other view"
+
+    ^ self new withView:aView
+
+    "
+     (ActiveHelpView with:(TextView new)) realize
+     (ActiveHelpView with:(TextView new)) open
+     (ActiveHelpView with:(Button label:'ok')) open
+    "
+
+    "Modified: 27.4.1996 / 15:14:18 / cg"
+! !
+
+!CodeCompletionHelpView methodsFor:'accessing'!
+
+withView:aView
+    "set the component view"
+
+    |fg|
+
+    (aView isKindOf:Label) ifTrue:[
+        aView viewBackground:viewBackground.
+        aView backgroundColor:viewBackground.
+        (fg := styleSheet colorAt:#'activeHelp.foregroundColor' default:nil) notNil ifTrue:[
+            aView foregroundColor:fg.    
+        ].
+    ].
+    self addSubView:aView.
+    myView := aView.
+    myView borderWidth:0.
+    myView origin:(0.0@0.0) corner:(1.0@1.0).
+
+    "Modified: 27.4.1996 / 15:16:46 / cg"
+! !
+
+!CodeCompletionHelpView methodsFor:'initialization'!
+
+initStyle
+    "setup viewStyle specifics"
+
+    <resource: #style (#'activeHelp.backgroundColor'
+                       #'activeHelp.borderWidth'
+                       #'activeHelp.font'
+                       #'activeHelp.style')>
+
+    |defaultFont|
+
+    super initStyle.
+
+    defaultFont := styleSheet fontAt:#'activeHelp.font' default:nil.
+    defaultFont notNil ifTrue:[
+        self font:defaultFont
+    ].
+
+    self borderWidth:(styleSheet at:#'activeHelp.borderWidth' default:1).
+
+    "Modified: / 26.10.1997 / 17:02:09 / cg"
+!
+
+realize
+    self create.
+    "/ self computeShape.
+    self enableMotionEvents.
+    self enableButtonMotionEvents.
+    super realize
+! !
+
+!CodeCompletionHelpView methodsFor:'private'!
+
+resizeToFit
+    "resize myself to make the component view fit"
+
+    |pref|
+
+    pref := myView preferredExtent.
+    self extent:(pref + (self borderWidth * 2)).
+    myView origin:(self borderWidth asPoint).
+
+    "Modified: 28.6.1997 / 14:23:49 / cg"
+! !
+
+!CodeCompletionHelpView methodsFor:'queries'!
+
+isPopUpView
+    "return true - I am a popUp type of view (no decoration, pop-to-top)"
+
+    ^ true
+
+    "Modified: 12.5.1996 / 21:58:12 / cg"
+! !
+
+!CodeCompletionHelpView class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.1 2013-06-14 14:29:52 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.1 2013-06-14 14:29:52 cg Exp $'
+! !
+