--- a/Menu.st	Wed Oct 14 19:01:53 2009 +0200
+++ b/Menu.st	Wed Oct 14 23:14:57 2009 +0200
@@ -182,6 +182,14 @@
 
 !Menu methodsFor:'Compatibility-Squeak'!
 
+add:label target:target selector:selector
+    self addItem:(MenuItem label:label value:[target perform:selector]).
+!
+
+balloonTextForLastItem:aString
+    items last helpText:aString
+!
+
 labels:labels lines:lines selections:selections
     |labelArray|
 
@@ -1174,5 +1182,9 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.72 2009-09-28 09:25:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.73 2009-10-14 21:14:57 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.73 2009-10-14 21:14:57 cg Exp $'
 ! !