--- 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)'.
].