equal
deleted
inserted
replaced
179 |
179 |
180 #(#FullSpec |
180 #(#FullSpec |
181 #window: |
181 #window: |
182 #(#WindowSpec |
182 #(#WindowSpec |
183 #name: 'Hierarchical List Editor' |
183 #name: 'Hierarchical List Editor' |
184 #layout: #(#LayoutFrame 229 0 389 0 703 0 701 0) |
184 #layout: #(#LayoutFrame 223 0 340 0 692 0 669 0) |
185 #label: 'Hierarchical List Editor' |
185 #label: 'Hierarchical List Editor' |
186 #min: #(#Point 10 10) |
186 #min: #(#Point 450 280) |
187 #max: #(#Point 1160 870) |
187 #max: #(#Point 1152 900) |
188 #bounds: #(#Rectangle 229 389 704 702) |
188 #bounds: #(#Rectangle 223 340 693 670) |
189 #menu: #menu |
189 #menu: #menu |
190 #usePreferredExtent: false |
190 #usePreferredExtent: false |
191 ) |
191 ) |
192 #component: |
192 #component: |
193 #(#SpecCollection |
193 #(#SpecCollection |
381 ) nil |
381 ) nil |
382 nil |
382 nil |
383 ) |
383 ) |
384 ) |
384 ) |
385 #(#MenuItem |
385 #(#MenuItem |
386 #label: 'History' |
|
387 #submenuChannel: #menuHistory |
|
388 ) |
|
389 #(#MenuItem |
|
390 #label: 'Settings' |
386 #label: 'Settings' |
391 #submenu: |
387 #submenu: |
392 #(#Menu |
388 #(#Menu |
393 |
389 |
394 #( |
390 #( |
397 #submenuChannel: #menuFont |
393 #submenuChannel: #menuFont |
398 ) |
394 ) |
399 ) nil |
395 ) nil |
400 nil |
396 nil |
401 ) |
397 ) |
|
398 ) |
|
399 #(#MenuItem |
|
400 #label: 'History' |
|
401 #submenuChannel: #menuHistory |
402 ) |
402 ) |
403 #(#MenuItem |
403 #(#MenuItem |
404 #label: 'Help' |
404 #label: 'Help' |
405 #startGroup: #right |
405 #startGroup: #right |
406 #submenuChannel: #menuHelp |
406 #submenuChannel: #menuHelp |
930 doCopy |
930 doCopy |
931 "copy current selected nodes into copy buffer" |
931 "copy current selected nodes into copy buffer" |
932 |
932 |
933 self class clipboard: OrderedCollection new. |
933 self class clipboard: OrderedCollection new. |
934 treeView selectedNodesDo:[:aNode| self class clipboard add: aNode copy]. |
934 treeView selectedNodesDo:[:aNode| self class clipboard add: aNode copy]. |
935 self updateChannels |
935 self updateAllToolInstances |
936 ! |
936 ! |
937 |
937 |
938 doCreateChild |
938 doCreateChild |
939 "create a child within selected parent" |
939 "create a child within selected parent" |
940 |
940 |
981 [ |
981 [ |
982 self doCopy. |
982 self doCopy. |
983 selection := treeView selection asSortedCollection. |
983 selection := treeView selection asSortedCollection. |
984 treeView selectedNodesRemove. |
984 treeView selectedNodesRemove. |
985 treeView selection: selection first - 1. |
985 treeView selection: selection first - 1. |
986 self updateChannels. |
986 self updateAllToolInstances. |
987 modified := true |
987 modified := true |
988 ] |
988 ] |
989 ! |
989 ! |
990 |
990 |
991 doDelete |
991 doDelete |