# HG changeset patch
# User ca
# Date 1218206626 -7200
# Node ID 07ab2bdac066d8f40cec94d0e3c4f02196d64aa3
# Parent  042e31fded4f53bdea1985613bb2ba530e0a032b
changed #doAskAndReplaceWidgetBy

diff -r 042e31fded4f -r 07ab2bdac066 UIPainter.st
--- 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:'-')).
     ].