--- a/Tools__ViewTreeApplication.st	Tue Jun 04 14:31:52 2013 +0200
+++ b/Tools__ViewTreeApplication.st	Wed Jun 05 14:50:51 2013 +0200
@@ -761,6 +761,17 @@
     app := self new.
     app open.
     app doPickView.
+!
+
+openOn:aView
+    "show a particular window's topView hierarchy,
+     select the given view"
+
+    |app|
+
+    app := self new.
+    app open.
+    app showWindow:aView.
 ! !
 
 !ViewTreeInspectorApplication methodsFor:'actions'!
@@ -1779,9 +1790,7 @@
         ^ self
     ].
 
-    model catchEvents:true.
-    self setRootItem:(ViewTreeItem buildViewsFrom:topWindow).
-    self selectView:clickedView.
+    self showWindow:clickedView
 !
 
 doRedraw
@@ -1855,6 +1864,19 @@
 
 openDocumentation
     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#VIEWTREEINSPECTOR'
+!
+
+showWindow:aView
+    "show a particular window's topView hierarchy,
+     select the given view"
+
+    | topWindow |
+
+    topWindow := aView topView.
+
+    model catchEvents:true.
+    self setRootItem:(ViewTreeItem buildViewsFrom:topWindow).
+    self selectView:aView.
 ! !
 
 !ViewTreeInspectorApplication::MenuDesc class methodsFor:'building'!