--- a/ApplicationModel.st	Tue Jan 08 12:52:49 2008 +0100
+++ b/ApplicationModel.st	Tue Jan 08 12:53:04 2008 +0100
@@ -935,6 +935,21 @@
      ^ masterApplication actionFor:aKey withValue:aValue
 !
 
+actionFor:aKey withValue:value1 withValue:value2
+    "sent by the builder to ask for an actionBlock for a Button which passes two values. 
+     The argument, aKey comes from an UI-spec for a buttons #action property.
+     Here, a corresponding message is sent to myself,
+     which ought to be defined in the application subclass.
+     Alternatively, a subclass may redefine this method, to provide
+     actionBlocks from a Dictionary or whatever.
+     Typically, a block is returned there."
+
+     (self selfResponsibleFor:aKey) ifTrue:[
+         ^ [self perform:aKey with:value1 with:value2]
+     ].
+     ^ masterApplication actionFor:aKey withValue:value1 withValue:value2
+!
+
 aspectFor:aKey
     "sent by the builder to ask for an aspect (a data model).
      The argument, aKey comes from an UI-spec
@@ -2952,7 +2967,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.237 2007-11-15 15:31:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.238 2008-01-08 11:53:04 cg Exp $'
 ! !
 
 ApplicationModel initialize!