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