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.
reuse methods provided by the model
authorca
Tue, 14 Apr 1998 13:33:49 +0200
changeset 775 0ead717f3e35
parent 774 5ca0853de0bc
child 776 1df0525eeec9
reuse methods provided by the model
MenuEditor.st file | annotate | diff | comparison | revisions 
--- 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
hg/stx-libtool2