class: MenuItem
authorClaus Gittinger <cg@exept.de>
Tue, 08 Jul 2014 14:49:22 +0200
changeset 3353 6a6ab96a3720
parent 3352 244d68f2382e
child 3354 a7fd7d764bd0
class: MenuItem comment/format in: #enabled: changed: #label:itemValue:argument: #label:itemValue:enabled:
MenuItem.st
--- a/MenuItem.st	Tue Jul 08 14:42:00 2014 +0200
+++ b/MenuItem.st	Tue Jul 08 14:49:22 2014 +0200
@@ -93,7 +93,8 @@
 !
 
 label:labelString itemValue:selectorOrValue argument:messageArg
-    "create and return a new menuItem, given its label and value"
+    "create and return a new menuItem, given its label and value
+     and an argument to be passed with the action"
 
     ^ (self new) 
         label:labelString; 
@@ -104,7 +105,9 @@
 !
 
 label:labelString itemValue:selectorOrValue enabled:enabledHolder
-    "create and return a new menuItem, given its label and value"
+    "create and return a new menuItem, given its label, value
+     and enabled holder, which can be a boolean, a boolean valueHolder,
+     a block or a selector (to be sent to the application)"
 
     ^ (self new) 
         label:labelString itemValue:selectorOrValue enabled:enabledHolder
@@ -485,6 +488,8 @@
 !
 
 label:labelString itemValue:selectorOrBlock argument:something
+    "define label, value and an argument to be passed with the action"
+
     label := labelString.
     itemValue := selectorOrBlock.
     argument := something
@@ -493,6 +498,10 @@
 !
 
 label:labelString itemValue:selectorOrBlock enabled:enabledHolder
+    "define label, value
+     and enabled holder, which can be a boolean, a boolean valueHolder,
+     a block or a selector (to be sent to the application)"
+
     label := labelString.
     itemValue := selectorOrBlock.
     enabled := enabledHolder
@@ -702,7 +711,8 @@
 !
 
 enabled:enabledHolder
-    "a boolean, valueHolder or block"
+    "enabledHolder can be a boolean, a boolean valueHolder,
+     a block or a selector (to be sent to the application)"
 
     enabled := enabledHolder
 !
@@ -1165,10 +1175,10 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.107 2014-07-08 12:42:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.108 2014-07-08 12:49:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.107 2014-07-08 12:42:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.108 2014-07-08 12:49:22 cg Exp $'
 ! !