# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 996246126 -7200
# Node ID 283c85ffefe02ccaaaf5f92a1a8421d97b86b260
# Parent  aa01951b16cf0318aa19b1da7e978b2d6880f37a
missing nil-check

diff -r aa01951b16cf -r 283c85ffefe0 MenuEditor.st
--- a/MenuEditor.st	Mon Jul 23 17:23:19 2001 +0200
+++ b/MenuEditor.st	Fri Jul 27 17:02:06 2001 +0200
@@ -2056,13 +2056,16 @@
 
     |menu cls|
 
-    (menu := treeView asMenu) allItemsDo:[:anItem|
-        anItem value:nil.
-        anItem enabled:true.
+    menu := treeView asMenu.
+    menu ifNotNil:[
+        (menu := treeView asMenu) allItemsDo:[:anItem|
+            anItem value:nil.
+            anItem enabled:true.
+        ].
+
+        cls := self resolveName:specClass.
+        menu findGuiResourcesIn:cls.
     ].
-
-    cls := self resolveName:specClass.
-    menu findGuiResourcesIn:cls.
     ^ menu
 !