equal
deleted
inserted
replaced
769 selection do:[:idx| |
769 selection do:[:idx| |
770 (node := list at:idx ifAbsent:nil) notNil ifTrue:[ |
770 (node := list at:idx ifAbsent:nil) notNil ifTrue:[ |
771 coll add:node |
771 coll add:node |
772 ] |
772 ] |
773 ]. |
773 ]. |
774 ^ coll notEmpty ifTrue:[coll] ifFalse:[nil] |
774 ^ coll asNilIfEmpty |
775 |
|
776 ! |
775 ! |
777 |
776 |
778 selectedNodesDo:aOneArgBlock |
777 selectedNodesDo:aOneArgBlock |
779 "evaluate the block on eack node selected |
778 "evaluate the block on eack node selected |
780 " |
779 " |
938 ! ! |
937 ! ! |
939 |
938 |
940 !SelectionInTree class methodsFor:'documentation'! |
939 !SelectionInTree class methodsFor:'documentation'! |
941 |
940 |
942 version |
941 version |
943 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.35 2010-02-01 12:20:01 cg Exp $' |
942 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.36 2013-07-13 21:06:39 cg Exp $' |
944 ! |
943 ! |
945 |
944 |
946 version_CVS |
945 version_CVS |
947 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.35 2010-02-01 12:20:01 cg Exp $' |
946 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.36 2013-07-13 21:06:39 cg Exp $' |
948 ! ! |
947 ! ! |
|
948 |