--- a/PopUpMenu.st Thu May 21 03:50:08 1998 +0200
+++ b/PopUpMenu.st Thu May 21 15:36:45 1998 +0200
@@ -430,7 +430,20 @@
!
-itemList:itemList resources:resources receiver:anObject for:aView
+itemList:itemList resources:resources performer:menuPerformer
+ "like labels:selectors:... messages, but expects a single collection,
+ containing items row-wise (i.e. elements are themself arrays, consisting of
+ label [selector [accelerator]]
+ if resources are non-nil, labels are translated using the translations found there.
+ "
+
+ ^ self
+ itemList:itemList resources:resources receiver:menuPerformer for:nil
+
+ "Created: / 21.5.1998 / 15:31:42 / cg"
+!
+
+itemList:itemList resources:resources performer:menuPerformer for:aView
"like labels:selectors:... messages, but expects a single collection,
containing items row-wise (i.e. elements are themself arrays, consisting of
label [selector [accelerator [arg]]]
@@ -477,7 +490,7 @@
selectors:selectors
accelerators:accelerators
args:args
- receiver:anObject
+ receiver:menuPerformer
for:aView
"this is sometimes more convenient:
@@ -501,6 +514,20 @@
p showAtPointer
"
+ "Created: / 21.5.1998 / 15:32:39 / cg"
+!
+
+itemList:itemList resources:resources receiver:menuPerformer for:aView
+ "like labels:selectors:... messages, but expects a single collection,
+ containing items row-wise (i.e. elements are themself arrays, consisting of
+ label [selector [accelerator [arg]]]
+ if resources are non-nil, labels are translated using the translations found there.
+ "
+
+ ^ self
+ itemList:itemList resources:resources performer:menuPerformer for:aView
+
+ "Modified: / 21.5.1998 / 15:33:04 / cg"
!
labels:labels args:args
@@ -1451,5 +1478,5 @@
!PopUpMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.74 1998-05-21 00:00:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.75 1998-05-21 13:36:45 cg Exp $'
! !