--- a/NewLauncher.st	Tue Nov 03 16:04:54 2009 +0100
+++ b/NewLauncher.st	Tue Nov 03 17:31:49 2009 +0100
@@ -769,6 +769,8 @@
 #windowsViewTreeAllViews
 'Display the widget hierarchies of all ST/X windows (on this display).'
 
+#flyByWindowInformation
+'Show flyby info about the window under the pointer. Easy access to View, Application and Model.'
 )
 ! !
 
@@ -2981,6 +2983,8 @@
             label: 'FlyBy Window Information'
             itemValue: showFlyByWindowInformation
             translateLabel: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary viewInspect22x22Icon 'FlyBy Window Information')
+            activeHelpKey: flyByWindowInformation
           )
          (MenuItem
             label: '-'
@@ -4667,9 +4671,9 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.397 2009-11-03 15:04:54 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.398 2009-11-03 16:31:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.397 2009-11-03 15:04:54 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.398 2009-11-03 16:31:49 cg Exp $'
 ! !