--- a/CodeCompletionHelpMenuView.st	Wed Jan 20 15:40:01 2016 +0100
+++ b/CodeCompletionHelpMenuView.st	Thu Jan 21 01:54:39 2016 +0100
@@ -11,8 +11,10 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 MenuView subclass:#CodeCompletionHelpMenuView
-	instanceVariableNames:''
+	instanceVariableNames:'infoPerEntry'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Help'
@@ -46,6 +48,12 @@
 "
 ! !
 
+!CodeCompletionHelpMenuView methodsFor:'accessing'!
+
+infoPerEntry:something
+    infoPerEntry := something.
+! !
+
 !CodeCompletionHelpMenuView methodsFor:'initialization'!
 
 initStyle
@@ -56,7 +64,7 @@
     defaultFont notNil ifTrue:[
         self font:defaultFont
     ].
-    self viewBackground:Color orange lightened lightened.
+    self viewBackground:Color orange lightened lightened lightened.
 ! !
 
 !CodeCompletionHelpMenuView methodsFor:'queries'!
@@ -69,13 +77,30 @@
     ^ false
 ! !
 
+!CodeCompletionHelpMenuView methodsFor:'selections'!
+
+setSelection:newSelection
+    super setSelection:newSelection.
+    self showInfoForSelection:newSelection.
+!
+
+showInfoForSelection:newSelection
+    |selector|
+    
+    Transcript showCR:newSelection.
+    newSelection notNil ifTrue:[
+        selector := self listAt:newSelection.
+        Transcript showCR:selector.
+    ].
+! !
+
 !CodeCompletionHelpMenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpMenuView.st,v 1.4 2013-11-08 11:48:51 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpMenuView.st,v 1.4 2013-11-08 11:48:51 cg Exp $'
+    ^ '$Header$'
 ! !