# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1139586993 -3600
# Node ID 1a8b9416db6e08e8c6deaf901c56980b3878cc8b
# Parent  c95484b7da4941554b71e269b757694ea5bbb42a
*** empty log message ***

diff -r c95484b7da49 -r 1a8b9416db6e UIPainter.st
--- a/UIPainter.st	Fri Feb 10 16:19:25 2006 +0100
+++ b/UIPainter.st	Fri Feb 10 16:56:33 2006 +0100
@@ -2956,17 +2956,18 @@
 
         specAndView := self selectedSpecAndView.
         spec := specAndView first.
-
-        usefulReplacementSpecClasses := spec usefulReplacementSpecClasses.
-        usefulReplacementSpecClasses notEmptyOrNil ifTrue:[
-            m addSeparator.
-            usefulReplacementSpecClasses do:[:eachClass |      
-                |item|
-
-                item := MenuItem new label:(resources string:'Replace by %1' with:eachClass userFriendlyName).
-                item value:#replaceWidgetByClass:.
-                item argument:eachClass.
-                m addItem:item.
+        spec notNil ifTrue:[
+            usefulReplacementSpecClasses := spec usefulReplacementSpecClasses.
+            usefulReplacementSpecClasses notEmptyOrNil ifTrue:[
+                m addSeparator.
+                usefulReplacementSpecClasses do:[:eachClass |      
+                    |item|
+
+                    item := MenuItem new label:(resources string:'Replace by %1' with:eachClass userFriendlyName).
+                    item value:#replaceWidgetByClass:.
+                    item argument:eachClass.
+                    m addItem:item.
+                ].
             ].
         ].