--- /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 $'
+! !
+