--- a/MenuPanel.st	Sat Mar 13 16:51:04 1999 +0100
+++ b/MenuPanel.st	Sat Mar 13 16:52:47 1999 +0100
@@ -2564,6 +2564,8 @@
 !MenuPanel methodsFor:'help'!
 
 helpText
+    "return the helpText for the currently selected item (empty if none)"
+
     |appl item key|
 
     (item := self selection) notNil ifTrue:[
@@ -2579,9 +2581,12 @@
 !
 
 helpTextAt:aPoint
+    "return the helpText for aPoint (i.e. when mouse-pointer is moved over an item).
+     If there is a selection, that items helpText is used (ignoreing the given point).
+     "
+
     |menu point item key appl|
 
-Transcript showCR:drawableId address.
     selection notNil ifTrue:[
         ^ self helpText
     ].
@@ -5386,6 +5391,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.144 1999-03-13 15:51:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.145 1999-03-13 15:52:47 cg Exp $'
 ! !
 MenuPanel initialize!