--- a/UIPainter.st Fri Aug 08 16:43:31 2008 +0200
+++ b/UIPainter.st Fri Aug 08 16:43:46 2008 +0200
@@ -4432,13 +4432,16 @@
!
doAskAndReplaceWidgetBy
- |widgetClass list common|
+ |widgetClass list common selectedSpec|
+
+ selectedSpec := self selectedSpec.
+ selectedSpec isNil ifTrue:[^ self].
list := UISpecification allSubclasses
select:[:cls | Error handle:[ false ] do:[ cls viewClass notNil]].
list sort:[:a :b | a name < b name].
- common := self selectedSpec class commonReplacementClasses.
+ common := selectedSpec class commonReplacementClasses.
common notEmpty ifTrue:[
list addAllFirst:(common , (Array with:'-')).
].