HierarchicalListEditor.st
changeset 559 33365ca6eb1d
parent 558 5b5d08815af4
child 562 f16b2ca2be5b
--- 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