--- a/Tools__CodeViewService.st	Thu Dec 04 18:04:35 2014 +0100
+++ b/Tools__CodeViewService.st	Thu Dec 04 18:39:35 2014 +0100
@@ -202,6 +202,8 @@
 !CodeViewService methodsFor:'accessing'!
 
 annotationAtLine:lineNr
+    "return the annotation for a given line - if any"
+
     ^ nil
 !
 
@@ -367,6 +369,12 @@
 !CodeViewService methodsFor:'help'!
 
 flyByHelpTextAtLine:aLineNr
+    |a|
+
+    a := self annotationAtLine:aLineNr.
+    a notNil ifTrue:[
+        ^ a helpTextFor:codeView.
+    ].
     ^ nil
 ! !
 
@@ -470,11 +478,15 @@
 
 !CodeViewService class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeViewService.st,v 1.20 2014-12-04 17:39:35 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeViewService.st,v 1.19 2014-12-04 02:00:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeViewService.st,v 1.20 2014-12-04 17:39:35 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeViewService.st,v 1.19 2014-12-04 02:00:43 cg Exp $'
+    ^ '$Id: Tools__CodeViewService.st,v 1.20 2014-12-04 17:39:35 cg Exp $'
 ! !