select items after pasting
authortz
Tue, 03 Feb 1998 00:04:35 +0100
changeset 559 33365ca6eb1d
parent 558 5b5d08815af4
child 560 d944c6ea5582
select items after pasting
HierarchicalListEditor.st
--- a/HierarchicalListEditor.st	Tue Feb 03 00:01:16 1998 +0100
+++ b/HierarchicalListEditor.st	Tue Feb 03 00:04:35 1998 +0100
@@ -1227,6 +1227,7 @@
     "paste after current selected item"
 
     treeView selectedNodeAdd:CopyBuffer.
+    CopyBuffer isCollection ifFalse: [treeView selectNode: CopyBuffer] ifTrue: [treeView selection: (CopyBuffer collect: [:node| treeView indexOfNode: node])].
     self updateChannels.
     isModified := true