author | werner |
Wed, 07 Apr 2004 16:23:48 +0200 | |
changeset 1830 | 78a5cf39dc0e |
parent 1829 | 35409df5492a |
child 1831 | f5ba45d3d70a |
UIPainterView.st | file | annotate | diff | comparison | revisions |
--- a/UIPainterView.st Wed Apr 07 16:04:52 2004 +0200 +++ b/UIPainterView.st Wed Apr 07 16:23:48 2004 +0200 @@ -1815,6 +1815,19 @@ ! +selectNextUpInHierarchy + | sel | + + (sel := self selection) isNil ifTrue:[^self]. + sel isCollection ifTrue:[ + sel := self selection first. + ]. + sel := sel superView. + sel isNil ifTrue:[^self]. + treeView cvsSelection: sel. + self selection: sel. +! + updateSelectionFromModel:aSelOrNil "update selection from a new selection "