--- 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)'.