equal
deleted
inserted
replaced
118 or:[ modelToInspect == masterApplicationToInspect ]) ifTrue:[ |
118 or:[ modelToInspect == masterApplicationToInspect ]) ifTrue:[ |
119 modelToInspect := nil. |
119 modelToInspect := nil. |
120 ]. |
120 ]. |
121 ]. |
121 ]. |
122 |
122 |
123 |
|
124 s nextPutLine:('View: ' , aView class name, ' "',aView name printString,'"'). |
123 s nextPutLine:('View: ' , aView class name, ' "',aView name printString,'"'). |
125 modelToInspect notNil ifTrue:[ |
124 modelToInspect notNil ifTrue:[ |
126 s nextPutLine:('Model: ' , modelToInspect class name). |
125 s nextPutLine:('Model: ' , modelToInspect class name). |
127 ]. |
126 ]. |
128 topViewToInspect notNil ifTrue:[ |
127 topViewToInspect notNil ifTrue:[ |
149 s nextPutLine:' a to inspect application (A to browse)'. |
148 s nextPutLine:' a to inspect application (A to browse)'. |
150 masterApplicationToInspect notNil ifTrue:[ |
149 masterApplicationToInspect notNil ifTrue:[ |
151 s nextPutLine:' m to inspect masterApplication (M to browse)'. |
150 s nextPutLine:' m to inspect masterApplication (M to browse)'. |
152 ]. |
151 ]. |
153 ]. |
152 ]. |
154 s nextPutAll:' ESC or button to leave'. |
153 s nextPutAll:'ESC or button to leave flyBy-info mode.'. |
155 ] |
154 ] |
156 |
155 |
157 " |
156 " |
158 self shownInformationOfViewUnderMouseUntilButtonIsPressed |
157 self shownInformationOfViewUnderMouseUntilButtonIsPressed |
159 " |
158 " |