Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 10 Feb 2006 16:56:33 +0100
changeset 1968 1a8b9416db6e
parent 1967 c95484b7da49
child 1969 f1763f6f4500
*** empty log message ***
UIPainter.st file | annotate | diff | comparison | revisions 
--- 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.
+                ].
             ].
         ].
hg/stx-libtool2