# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1571079327 -7200
# Node ID 025b0f16d5154c99f0ce0119afc639061cc0d668
# Parent  511f14f879b87de65eb8e0edff9e8ee9a07117f2
#FEATURE by exept
class: FlyByHelp
changed: #openDeveloperMenuFor:at:

diff -r 511f14f879b8 -r 025b0f16d515 FlyByHelp.st
--- a/FlyByHelp.st	Sun Oct 13 23:30:10 2019 +0200
+++ b/FlyByHelp.st	Mon Oct 14 20:55:27 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -18,7 +16,7 @@
 ActiveHelp subclass:#FlyByHelp
 	instanceVariableNames:'currentFrame currentView currentHelpView showProcess closeProcess
 		helpTextProcess'
-	classVariableNames:'MaxNumberOfLines MaxNumberOfColumns'
+	classVariableNames:'MaxNumberOfColumns MaxNumberOfLines'
 	poolDictionaries:''
 	category:'Interface-Help'
 !
@@ -255,11 +253,12 @@
         i enabled:(app notNil).
         m addItem:(i := MenuItem label:('Inspect View (%1)' bindWith:aView className) itemValue:[ aView inspect ]).
         m addItem:(i := MenuItem label:('Inspect Model (%1)' bindWith:aView model className) itemValue:[ aView model inspect ]).
-        i enabled:(aView model notNil).
-            
+        i enabled:(aView model notNil).            
         menuItem notNil ifTrue:[
             m addItem:(MenuItem label: 'Inspect Menuitem' itemValue:[ menuItem inspect ]).
         ].
+        m addSeparator. 
+        m addItem:(i := MenuItem label:('Open ViewTree ') itemValue:[ Tools::ViewTreeInspectorApplication openOn:aView ]).
         
         m showAtPointer.
     ].
@@ -361,7 +360,7 @@
             ^ false
         ].
         Smalltalk isStandAloneApp ifFalse:[
-            key == $§ ifTrue:[
+            key == $§ ifTrue:[
                 "/ generate a line suitable for the resources file (a null translation)
                 "/ into the clipboard; makes it easy to add missing translations to a .rs file,
                 "/ by pressing paragraph whenever you see an untranslated helptext