--- 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
!