# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1431094176 -7200
# Node ID c973eab410cb6a60934b76e915b2f50e88cc5f19
# Parent  534bd836ae08d6e26a7039604c4da6e202d7a2bb
class: FlyByWindowInformation
changed:
        #helpTextFor:at:
        #keyPress:x:y:view:
 key opens ViewTreeInspector.

diff -r 534bd836ae08 -r c973eab410cb FlyByWindowInformation.st
--- a/FlyByWindowInformation.st	Fri May 08 14:56:14 2015 +0200
+++ b/FlyByWindowInformation.st	Fri May 08 16:09:36 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2008 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libtool2' }"
 
+"{ NameSpace: Smalltalk }"
+
 FlyByHelp subclass:#FlyByWindowInformation
 	instanceVariableNames:'lastApplication lastView cleanupAction finishSemaphore finished'
 	classVariableNames:''
@@ -121,6 +125,11 @@
     key isCharacter ifTrue:[
         lcKey := key asLowercase.
 
+        lcKey == $h ifTrue:[
+            "/ use smalltalk at, to avoid dependency on libTool
+            [ (Smalltalk at:#'Tools::ViewTreeInspectorApplication') openOn:lastView ] fork.
+            ^ true.
+        ].
         lcKey == $a ifTrue:[
             obj := lastApplication
         ].
@@ -262,7 +271,11 @@
 
         s cr.
         s nextPutLine:'Press:'.
-        s nextPutLine:'    ? to show the viewtree'.
+
+        "/ use smalltalk at, to avoid dependency on libTool
+        (Smalltalk at:#'Tools::ViewTreeInspectorApplication') notNil ifTrue:[
+            s nextPutLine:'    ? to show the view''s tree'.
+        ].
         applicationToInspect notNil ifTrue:[
             s nextPutLine:'    a to inspect application (A to browse)'.
             masterApplicationToInspect notNil ifTrue:[
@@ -272,6 +285,7 @@
                 ]
             ].
         ].
+        s nextPutLine:'    h to inspect view''s hierarchy'.
         s nextPutLine:'    v to inspect view (V to browse)'.
         topViewToInspect notNil ifTrue:[
             s nextPutLine:'    w to inspect topWindow (W to browse)'.