--- 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