HierarchicalListEditor.st
changeset 747 c76003b74d7b
parent 736 6db5efc5df90
child 882 d06b7fd56f47
--- a/HierarchicalListEditor.st	Mon Mar 30 14:09:39 1998 +0200
+++ b/HierarchicalListEditor.st	Mon Mar 30 14:34:43 1998 +0200
@@ -181,11 +181,11 @@
           #window: 
            #(#WindowSpec
               #name: 'Hierarchical List Editor'
-              #layout: #(#LayoutFrame 229 0 389 0 703 0 701 0)
+              #layout: #(#LayoutFrame 223 0 340 0 692 0 669 0)
               #label: 'Hierarchical List Editor'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1160 870)
-              #bounds: #(#Rectangle 229 389 704 702)
+              #min: #(#Point 450 280)
+              #max: #(#Point 1152 900)
+              #bounds: #(#Rectangle 223 340 693 670)
               #menu: #menu
               #usePreferredExtent: false
           )
@@ -383,10 +383,6 @@
                 )
             )
              #(#MenuItem
-                #label: 'History'
-                #submenuChannel: #menuHistory
-            )
-             #(#MenuItem
                 #label: 'Settings'
                 #submenu: 
                  #(#Menu
@@ -401,6 +397,10 @@
                 )
             )
              #(#MenuItem
+                #label: 'History'
+                #submenuChannel: #menuHistory
+            )
+             #(#MenuItem
                 #label: 'Help'
                 #startGroup: #right
                 #submenuChannel: #menuHelp
@@ -932,7 +932,7 @@
 
     self class clipboard: OrderedCollection new.
     treeView selectedNodesDo:[:aNode| self class clipboard add: aNode copy].
-    self updateChannels
+    self updateAllToolInstances
 !
 
 doCreateChild
@@ -983,7 +983,7 @@
         selection := treeView selection asSortedCollection.
         treeView selectedNodesRemove.
         treeView selection: selection first - 1.
-        self updateChannels.
+        self updateAllToolInstances.
         modified := true
     ]
 !