--- a/UIPainter.st Mon Feb 25 20:18:24 2008 +0100
+++ b/UIPainter.st Mon Feb 25 20:19:32 2008 +0100
@@ -522,6 +522,18 @@
"Modified: / 17-09-2007 / 11:36:33 / cg"
!
+editTableIcon
+ <resource: #programImage>
+
+ ^ SystemBrowser tableColumnsIcon
+!
+
+helpIcon
+ <resource: #programImage>
+
+ ^ Icon helpIcon
+!
+
iconAlignB
"This resource specification was automatically generated
by the ImageEditor of ST/X."
@@ -2522,11 +2534,6 @@
^ self painter hasUndoHistoryHolder
!
-helpIcon
-
- ^Icon helpIcon
-!
-
installAsWebPageVisible
^ true
@@ -4213,10 +4220,9 @@
!
doBrowseAspectMethod:aspectSelector
- "browse or create the aspect method as entered in the field (button beside input filed pressed)"
+ "browse or create the aspect method as entered in the field (button beside input fieled pressed)"
self acceptOrIgnoreSectionModification.
-
self doBrowseAspectMethod:aspectSelector nameAs:aspectSelector
"Modified: / 12-01-2008 / 10:32:15 / cg"
@@ -4236,10 +4242,13 @@
spec := painter specForSelection.
spec isNil ifTrue:[^ self].
aspect := spec perform:aspectSelector.
- aspect isNil ifTrue:[
- Dialog information:(resources
- string:'Please enter a Method name for "%1" first.'
- with:(resources string:aspectNameShown) allBold).
+ aspect isString ifFalse:[
+ "ignore non-strings (list may be an Array)"
+ aspect isNil ifTrue:[
+ Dialog information:(resources
+ string:'Please enter a Method name for "%1" first.'
+ with:(resources string:aspectNameShown) allBold).
+ ].
^ self
].
@@ -4413,6 +4422,36 @@
"Modified: / 4.2.1999 / 15:36:34 / cg"
!
+doEditList:listSelector
+ "browse or create the aspect method as entered in the field (button beside input fieled pressed)"
+
+ |spec list editor|
+
+ self acceptOrIgnoreSectionModification.
+
+ spec := painter specForSelection.
+ spec isNil ifTrue:[^ self].
+
+ "Kludge: subject - fetch the AspectAdaptor behind the TypeConverter"
+ list := (specTool aspectFor:listSelector) subject value.
+ list isNil ifTrue:[
+ list := #()
+ ].
+
+ editor := UIListEditor new.
+ editor
+ informationLabel:'Edit List';
+ list:list;
+ useSymbols:(list notEmpty and:[list conform:[:e| e isSymbol]]); "set use symbols, if all elements are symbols"
+ open.
+
+
+ editor accepted ifTrue:[
+ "Kludge: subject - fetch the AspectAdaptor behind the TypeConverter"
+ (specTool aspectFor:listSelector) subject value:editor list.
+ ].
+!
+
doGenerateAspectMethodFor
|cls code aspectList displayedList selectorsToGenerateCode
doBrowse methods|