--- 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
     "