--- 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