equal
deleted
inserted
replaced
128 ]. |
128 ]. |
129 ]. |
129 ]. |
130 lcKey == $v ifTrue:[ |
130 lcKey == $v ifTrue:[ |
131 obj := lastView |
131 obj := lastView |
132 ]. |
132 ]. |
|
133 lcKey == $g ifTrue:[ |
|
134 obj := lastView windowGroup |
|
135 ]. |
133 lcKey == $w ifTrue:[ |
136 lcKey == $w ifTrue:[ |
134 lastView notNil ifTrue:[ |
137 lastView notNil ifTrue:[ |
135 obj := lastView topView |
138 obj := lastView topView |
136 ] |
139 ] |
137 ]. |
140 ]. |
169 resources := self class classResources. |
172 resources := self class classResources. |
170 |
173 |
171 ^ Text streamContents:[:s | |
174 ^ Text streamContents:[:s | |
172 |topViewToInspect applicationToInspect |
175 |topViewToInspect applicationToInspect |
173 masterApplicationToInspect topApplicationToInspect modelToInspect |
176 masterApplicationToInspect topApplicationToInspect modelToInspect |
174 genComponentNameForApplication| |
177 genComponentNameForApplication windowGroupToInspect| |
175 |
178 |
176 genComponentNameForApplication := |
179 genComponentNameForApplication := |
177 [:app :s | |
180 [:app :s | |
178 (app notNil |
181 (app notNil |
179 and:[ app builder notNil ]) ifTrue:[ |
182 and:[ app builder notNil ]) ifTrue:[ |
259 ]. |
262 ]. |
260 s nextPutLine:' v to inspect view (V to browse)'. |
263 s nextPutLine:' v to inspect view (V to browse)'. |
261 topViewToInspect notNil ifTrue:[ |
264 topViewToInspect notNil ifTrue:[ |
262 s nextPutLine:' w to inspect topWindow (W to browse)'. |
265 s nextPutLine:' w to inspect topWindow (W to browse)'. |
263 ]. |
266 ]. |
|
267 aView windowGroup notNil ifTrue:[ |
|
268 s nextPutLine:' g to inspect windowGroup'. |
|
269 ]. |
264 modelToInspect notNil ifTrue:[ |
270 modelToInspect notNil ifTrue:[ |
265 s nextPutLine:' o to inspect model (O to browse)'. |
271 s nextPutLine:' o to inspect model (O to browse)'. |
266 ]. |
272 ]. |
267 s cr. |
273 s cr. |
268 s nextPutLine:'RETURN to browse application.'. |
274 s nextPutLine:'RETURN to browse application.'. |