# HG changeset patch
# User ca
# Date 865504623 -7200
# Node ID d06c043912337f835c1368a269bb154d5ebae0bb
# Parent  1dde784a73d7d947224373c1c5c66c09d9bf2323
generate actions with argument

diff -r 1dde784a73d7 -r d06c04391233 UIPainterView.st
--- a/UIPainterView.st	Thu Jun 05 11:56:09 1997 +0200
+++ b/UIPainterView.st	Thu Jun 05 11:57:03 1997 +0200
@@ -24,15 +24,15 @@
 	privateIn:UIPainterView
 !
 
-MultiSelectionInList subclass:#ListHolder
-	instanceVariableNames:'painter propertyList masterElement disabledChanged'
+UIPainterView::ViewProperty subclass:#GroupProperties
+	instanceVariableNames:'controlledObjects group name'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:UIPainterView
 !
 
-UIPainterView::ViewProperty subclass:#GroupProperties
-	instanceVariableNames:'controlledObjects group name'
+MultiSelectionInList subclass:#ListHolder
+	instanceVariableNames:'painter propertyList masterElement disabledChanged'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:UIPainterView
@@ -528,8 +528,14 @@
 !UIPainterView methodsFor:'generating output'!
 
 generateActionMethodFor:aspect spec:protoSpec inClass:targetClass
+    |args|
+
+
+    (aspect last) == $: ifFalse:[args := '\']
+                         ifTrue:[args := 'anArgument\'].
+
     ^ ('!!' , targetClass name , ' methodsFor:''actions''!!\\' ,
-      aspect , '\' ,
+      aspect , args ,
       '    "automatically generated by UIPainter ..."\' ,
       '\' ,
       '    "action to be added ..."\' ,
@@ -1740,6 +1746,42 @@
     spec name:aName
 ! !
 
+!UIPainterView::GroupProperties methodsFor:'accessing'!
+
+controlledObjects
+    "return the value of the instance variable 'controlledObjects' (automatically generated)"
+
+    ^ controlledObjects!
+
+controlledObjects:something
+    "set the value of the instance variable 'controlledObjects' (automatically generated)"
+
+    controlledObjects := something.!
+
+group
+    "return the value of the instance variable 'group'
+    "
+    ^ group
+!
+
+group:something
+    "set the value of the instance variable 'group'
+    "
+    group := something.
+!
+
+name
+    "return the value of the group name
+    "
+    ^ name
+!
+
+name:aName
+    "set the value of the group name
+    "
+    name := aName
+! !
+
 !UIPainterView::ListHolder class methodsFor:'instance creation'!
 
 for:aPainter
@@ -2073,42 +2115,6 @@
     super selectionIndex:aSel
 ! !
 
-!UIPainterView::GroupProperties methodsFor:'accessing'!
-
-controlledObjects
-    "return the value of the instance variable 'controlledObjects' (automatically generated)"
-
-    ^ controlledObjects!
-
-controlledObjects:something
-    "set the value of the instance variable 'controlledObjects' (automatically generated)"
-
-    controlledObjects := something.!
-
-group
-    "return the value of the instance variable 'group'
-    "
-    ^ group
-!
-
-group:something
-    "set the value of the instance variable 'group'
-    "
-    group := something.
-!
-
-name
-    "return the value of the group name
-    "
-    ^ name
-!
-
-name:aName
-    "set the value of the group name
-    "
-    name := aName
-! !
-
 !UIPainterView class methodsFor:'documentation'!
 
 version