# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1352038180 -3600
# Node ID 5e2872ba0b957e7e7c8db04257aa17cf2f0f6574
# Parent  8e9207531826c01652e30a59df4a6bf8425af499
changed:
        #helpTextFor:at:
        #keyPress:x:y:view:

diff -r 8e9207531826 -r 5e2872ba0b95 FlyByWindowInformation.st
--- a/FlyByWindowInformation.st	Mon Oct 29 13:19:04 2012 +0100
+++ b/FlyByWindowInformation.st	Sun Nov 04 15:09:40 2012 +0100
@@ -130,6 +130,9 @@
         lcKey == $v ifTrue:[
             obj := lastView
         ].
+        lcKey == $g ifTrue:[
+            obj := lastView windowGroup
+        ].
         lcKey == $w ifTrue:[
             lastView notNil ifTrue:[
                 obj := lastView topView
@@ -171,7 +174,7 @@
     ^ Text streamContents:[:s |
         |topViewToInspect applicationToInspect 
          masterApplicationToInspect topApplicationToInspect modelToInspect
-         genComponentNameForApplication|
+         genComponentNameForApplication windowGroupToInspect|
 
         genComponentNameForApplication := 
             [:app :s |
@@ -261,6 +264,9 @@
         topViewToInspect notNil ifTrue:[
             s nextPutLine:'    w to inspect topWindow (W to browse)'.
         ].
+        aView windowGroup notNil ifTrue:[
+            s nextPutLine:'    g to inspect windowGroup'.
+        ].
         modelToInspect notNil ifTrue:[
             s nextPutLine:'    o to inspect model (O to browse)'.
         ].