MenuEditor.st
changeset 775 0ead717f3e35
parent 764 5722b94330ef
child 804 b66537045e04
--- a/MenuEditor.st	Tue Apr 14 13:32:46 1998 +0200
+++ b/MenuEditor.st	Tue Apr 14 13:33:49 1998 +0200
@@ -2408,11 +2408,7 @@
     model root: firstNode.
 
     firstNode hasChildren ifFalse:[
-        |firstChildNode|              
-        firstChildNode := self nodeLabel:'Item 1'.   
-        firstChildNode parent: firstNode.
-        firstNode add: firstChildNode.
-        model recomputeList
+        model add:(self nodeLabel:'Item 1') below:firstNode
     ].
 
 
@@ -2431,8 +2427,6 @@
     ].
     node expand.
     model root:node.
-
-    model recomputeList
 !
 
 menuItem:anItem