added isEmpty to menu query
authorClaus Gittinger <cg@exept.de>
Mon, 17 Jun 2013 16:23:34 +0200
changeset 4611 2d2755dd6efe
parent 4610 dcf585ff2309
child 4612 65b9a2c214f6
added isEmpty to menu query
MenuView.st
--- a/MenuView.st	Mon Jun 17 14:52:56 2013 +0200
+++ b/MenuView.st	Mon Jun 17 16:23:34 2013 +0200
@@ -1165,6 +1165,12 @@
     "Modified: 27.4.1996 / 15:25:16 / cg"
 !
 
+isEmpty
+    "return true, if I have no items"
+
+    ^ list isEmptyOrNil
+!
+
 labelAt:indexOrName put:aString
     "change the label at index to be aString"
 
@@ -2990,10 +2996,10 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.175 2013-04-26 12:59:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.176 2013-06-17 14:23:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.175 2013-04-26 12:59:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.176 2013-06-17 14:23:34 cg Exp $'
 ! !