--- 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.
+ ].
].
].