author | tz |
Tue, 03 Feb 1998 00:04:35 +0100 | |
changeset 559 | 33365ca6eb1d |
parent 558 | 5b5d08815af4 |
child 560 | d944c6ea5582 |
--- 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