Tools__ViewTreeApplication.st
changeset 3014 05208490cea6
parent 3000 7b530cc76688
child 3017 d971763e5d03
     1.1 --- a/Tools__ViewTreeApplication.st	Tue Jun 04 14:31:52 2013 +0200
     1.2 +++ b/Tools__ViewTreeApplication.st	Wed Jun 05 14:50:51 2013 +0200
     1.3 @@ -761,6 +761,17 @@
     1.4      app := self new.
     1.5      app open.
     1.6      app doPickView.
     1.7 +!
     1.8 +
     1.9 +openOn:aView
    1.10 +    "show a particular window's topView hierarchy,
    1.11 +     select the given view"
    1.12 +
    1.13 +    |app|
    1.14 +
    1.15 +    app := self new.
    1.16 +    app open.
    1.17 +    app showWindow:aView.
    1.18  ! !
    1.19  
    1.20  !ViewTreeInspectorApplication methodsFor:'actions'!
    1.21 @@ -1779,9 +1790,7 @@
    1.22          ^ self
    1.23      ].
    1.24  
    1.25 -    model catchEvents:true.
    1.26 -    self setRootItem:(ViewTreeItem buildViewsFrom:topWindow).
    1.27 -    self selectView:clickedView.
    1.28 +    self showWindow:clickedView
    1.29  !
    1.30  
    1.31  doRedraw
    1.32 @@ -1855,6 +1864,19 @@
    1.33  
    1.34  openDocumentation
    1.35      HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#VIEWTREEINSPECTOR'
    1.36 +!
    1.37 +
    1.38 +showWindow:aView
    1.39 +    "show a particular window's topView hierarchy,
    1.40 +     select the given view"
    1.41 +
    1.42 +    | topWindow |
    1.43 +
    1.44 +    topWindow := aView topView.
    1.45 +
    1.46 +    model catchEvents:true.
    1.47 +    self setRootItem:(ViewTreeItem buildViewsFrom:topWindow).
    1.48 +    self selectView:aView.
    1.49  ! !
    1.50  
    1.51  !ViewTreeInspectorApplication::MenuDesc class methodsFor:'building'!