checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 21 May 1998 15:36:45 +0200
changeset 1543 74f627922fea
parent 1542 5778dd813273
child 1544 bb7e168dd651
checkin from browser
PopUpMenu.st
--- 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 $'
 ! !