--- a/UIPainter.st Wed Sep 05 20:24:52 2012 +0200
+++ b/UIPainter.st Wed Sep 05 20:30:07 2012 +0200
@@ -4934,7 +4934,11 @@
selectedSpec isNil ifTrue:[^ self].
list := UISpecification allSubclasses
- select:[:cls | Error handle:[ false ] do:[ cls viewClass notNil]].
+ select:[:cls |
+ [ cls viewClass notNil]
+ on: NotFoundError
+ do:[ false ]
+ ].
list sort:[:a :b | a name < b name].
common := selectedSpec class commonReplacementClasses.
@@ -4951,7 +4955,7 @@
].
self replaceWidgetByClass:widgetClass
- "Modified: / 12-01-2008 / 23:50:25 / cg"
+ "Modified: / 05-09-2012 / 19:31:22 / cg"
!
doBrowseActionMethod:aspectSelector
@@ -5802,17 +5806,18 @@
!
replaceWidgetByClass:aSpecOrWidgetClass
- |specClass oldSpec newSpec painter|
+ |newSpecClass oldSpec newSpec|
(aSpecOrWidgetClass isSubclassOf:UISpecification) ifTrue:[
- specClass := aSpecOrWidgetClass.
+ newSpecClass := aSpecOrWidgetClass.
] ifFalse:[
(aSpecOrWidgetClass isSubclassOf:View) ifTrue:[
- specClass := aSpecOrWidgetClass basicNew specClass.
+ newSpecClass := aSpecOrWidgetClass basicNew specClass.
] ifFalse:[
+ newSpecClass := nil
].
].
- specClass isNil ifTrue:[
+ newSpecClass isNil ifTrue:[
Dialog warn:'Invalid Spec- or View-Class: ' , aSpecOrWidgetClass name.
^ self.
].
@@ -5821,10 +5826,11 @@
^ self
].
oldSpec := self selectedSpec.
- newSpec := specClass cloneFrom:oldSpec.
-
- painter := self painter.
- painter replaceSelectionBy:newSpec.
+ newSpec := newSpecClass cloneFrom:oldSpec.
+
+ self painter replaceSelectionBy:newSpec.
+
+ "Modified: / 05-09-2012 / 19:24:40 / cg"
!
useBackgroundImage