# HG changeset patch
# User ca
# Date 892553629 -7200
# Node ID 0ead717f3e35f0585815827acec63b35237f9a49
# Parent  5ca0853de0bcb456876e2ebf809dc429a4b774f2
reuse methods provided by the model

diff -r 5ca0853de0bc -r 0ead717f3e35 MenuEditor.st
--- 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