--- a/CodeCompletionHelpMenuView.st	Sun Jan 24 22:06:01 2016 +0100
+++ b/CodeCompletionHelpMenuView.st	Sun Jan 24 22:57:58 2016 +0100
@@ -20,6 +20,13 @@
 	category:'Interface-Help'
 !
 
+PopUpView subclass:#SimulatedMenuForHTMLView
+	instanceVariableNames:'codeCompletionMenu'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:CodeCompletionHelpMenuView
+!
+
 !CodeCompletionHelpMenuView class methodsFor:'documentation'!
 
 copyright
@@ -85,13 +92,56 @@
 !
 
 showInfoForSelection:newSelection
-    |selector|
+    |selector info|
     
-    Transcript showCR:newSelection.
+    "/ work in progress...
+    
+false ifTrue:[
     newSelection notNil ifTrue:[
         selector := self listAt:newSelection.
-        Transcript showCR:selector.
+        infoPerEntry notNil ifTrue:[
+            info := infoPerEntry at:newSelection.
+        ] ifFalse:[
+            info := 'bla bla bla'.
+        ].
+        info notNil ifTrue:[
+            (self subMenuAt:newSelection) isNil ifTrue:[
+                "/ TODO: install another menu, showing the tooltop
+
+                |infoView htmlView|
+
+                infoView := SimulatedMenuForHTMLView new.
+                htmlView := HTMLView origin:0.0@0.0 corner:1.0@1.0 in:infoView.
+                htmlView contents:info.
+                
+                self subMenuAt:newSelection put:infoView.
+                "/ Transcript showCR:selector.
+                self invalidateLine:newSelection.
+            ].    
+        ].    
     ].
+].
+! !
+
+!CodeCompletionHelpMenuView::SimulatedMenuForHTMLView methodsFor:'menu protocol'!
+
+action:anActionBlock
+    "ignored for now"
+!
+
+haveControl:aBoolean
+    "ignored here"
+!
+
+menuView
+    ^ self
+!
+
+noShadow
+!
+
+superMenu:aMenu
+    "ignored for now"
 ! !
 
 !CodeCompletionHelpMenuView class methodsFor:'documentation'!