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