Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
nextUpInHier
authorwerner
Wed, 07 Apr 2004 16:23:48 +0200
changeset 1830 78a5cf39dc0e
parent 1829 35409df5492a
child 1831 f5ba45d3d70a
nextUpInHier
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
     "
hg/stx-libtool2