--- a/FlyByWindowInformation.st Tue Feb 26 19:13:21 2008 +0100
+++ b/FlyByWindowInformation.st Wed Feb 27 12:11:30 2008 +0100
@@ -60,6 +60,9 @@
key asLowercase == $a ifTrue:[
obj := lastApplication
].
+ key asLowercase == $o ifTrue:[
+ obj := lastView model
+ ].
key asLowercase == $m ifTrue:[
obj := lastApplication masterApplication
].
@@ -88,25 +91,50 @@
lastApplication := aView application.
^ String streamContents:[:s |
- s nextPutLine:('View: ' , aView class name).
+ |topViewToInspect applicationToInspect masterApplicationToInspect modelToInspect|
+
aView topView ~~ aView ifTrue:[
- s nextPutLine:('Topview: ' , aView topView class name).
+ topViewToInspect := aView topView.
].
lastApplication notNil ifTrue:[
- s nextPutLine:('Application: ' , lastApplication class name).
- lastApplication masterApplication notNil ifTrue:[
- s nextPutLine:('Masterapplication: ' , lastApplication masterApplication class name).
+ applicationToInspect := lastApplication.
+ masterApplicationToInspect := lastApplication masterApplication.
+ ].
+ aView model notNil ifTrue:[
+ modelToInspect := aView model.
+ ((modelToInspect == applicationToInspect)
+ or:[ modelToInspect == masterApplicationToInspect ]) ifTrue:[
+ modelToInspect := nil.
].
].
+
+
+ s nextPutLine:('View: ' , aView class name).
+ modelToInspect notNil ifTrue:[
+ s nextPutLine:('Model: ' , modelToInspect class name).
+ ].
+ topViewToInspect notNil ifTrue:[
+ s nextPutLine:('Topview: ' , topViewToInspect class name).
+ ].
+ applicationToInspect notNil ifTrue:[
+ s nextPutLine:('Application: ' , applicationToInspect class name).
+ ].
+ masterApplicationToInspect notNil ifTrue:[
+ s nextPutLine:('Masterapplication: ' , masterApplicationToInspect class name).
+ ].
+
s cr.
s nextPutLine:'Press:'.
s nextPutLine:' v to inspect view (V to browse)'.
- aView topView ~~ aView ifTrue:[
+ modelToInspect notNil ifTrue:[
+ s nextPutLine:' o to inspect model (O to browse)'.
+ ].
+ topViewToInspect notNil ifTrue:[
s nextPutLine:' t to inspect topView (T to browse)'.
].
- lastApplication notNil ifTrue:[
+ applicationToInspect notNil ifTrue:[
s nextPutLine:' a to inspect application (A to browse)'.
- lastApplication masterApplication notNil ifTrue:[
+ masterApplicationToInspect notNil ifTrue:[
s nextPutLine:' m to inspect masterApplication (M to browse)'.
].
].