FlyByWindowInformation.st
changeset 2939 5e2872ba0b95
parent 2847 65280fe44707
child 2943 e7d181ac8f06
--- 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)'.
         ].