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