# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1204110690 -3600
# Node ID e65082256c4619141b81b82578670ade4e60ed85
# Parent  c60fe56ab5bf036301c6f1f75a5077913105cf96
*** empty log message ***

diff -r c60fe56ab5bf -r e65082256c46 FlyByWindowInformation.st
--- 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)'.
             ].
         ].