121 lcKey == $t ifTrue:[ |
125 lcKey == $t ifTrue:[ |
122 obj := lastView topView |
126 obj := lastView topView |
123 ]. |
127 ]. |
124 obj notNil ifTrue:[ |
128 obj notNil ifTrue:[ |
125 key isLowercase ifTrue:[ |
129 key isLowercase ifTrue:[ |
126 action := [ obj inspect ]. |
130 objToInspect := obj |
127 ] ifFalse:[ |
131 ] ifFalse:[ |
128 action := [ obj browse ]. |
132 objToBrowse := obj |
129 ]. |
133 ]. |
130 action forkAt:8. |
134 ]. |
131 ]. |
135 ]. |
|
136 |
|
137 objToInspect notNil ifTrue:[ |
|
138 [ objToInspect inspect ] forkAt:(Processor userSchedulingPriority). |
|
139 ]. |
|
140 objToBrowse notNil ifTrue:[ |
|
141 [ objToBrowse browse ] forkAt:(Processor userSchedulingPriority). |
132 ]. |
142 ]. |
133 |
143 |
134 ^ true |
144 ^ true |
|
145 |
|
146 "Modified: / 12-11-2010 / 11:38:23 / cg" |
135 ! ! |
147 ! ! |
136 |
148 |
137 !FlyByWindowInformation methodsFor:'help texts'! |
149 !FlyByWindowInformation methodsFor:'help texts'! |
138 |
150 |
139 helpTextFor:aView at:aPointOrNil |
151 helpTextFor:aView at:aPointOrNil |
209 "/ identity it as component |
221 "/ identity it as component |
210 |
222 |
211 s cr. |
223 s cr. |
212 s nextPutLine:'Press:'. |
224 s nextPutLine:'Press:'. |
213 s nextPutLine:' ? to show the viewtree'. |
225 s nextPutLine:' ? to show the viewtree'. |
214 s nextPutLine:' v to inspect view (V to browse)'. |
|
215 modelToInspect notNil ifTrue:[ |
|
216 s nextPutLine:' o to inspect model (O to browse)'. |
|
217 ]. |
|
218 topViewToInspect notNil ifTrue:[ |
|
219 s nextPutLine:' t to inspect topView (T to browse)'. |
|
220 ]. |
|
221 applicationToInspect notNil ifTrue:[ |
226 applicationToInspect notNil ifTrue:[ |
222 s nextPutLine:' a to inspect application (A to browse)'. |
227 s nextPutLine:' a to inspect application (A to browse)'. |
223 masterApplicationToInspect notNil ifTrue:[ |
228 masterApplicationToInspect notNil ifTrue:[ |
224 s nextPutLine:' m to inspect masterApplication (M to browse)'. |
229 s nextPutLine:' m to inspect masterApplication (M to browse)'. |
225 ]. |
230 ]. |
226 ]. |
231 ]. |
227 s nextPutAll:'ESC or button to leave flyBy-info mode.'. |
232 s nextPutLine:' v to inspect view (V to browse)'. |
|
233 topViewToInspect notNil ifTrue:[ |
|
234 s nextPutLine:' t to inspect topView (T to browse)'. |
|
235 ]. |
|
236 modelToInspect notNil ifTrue:[ |
|
237 s nextPutLine:' o to inspect model (O to browse)'. |
|
238 ]. |
|
239 s cr. |
|
240 s nextPutLine:'RETURN to browse application.'. |
|
241 s nextPutAll:'ESC or click to leave flyBy-info mode.'. |
228 ] |
242 ] |
229 |
243 |
230 " |
244 " |
231 self shownInformationOfViewUnderMouseUntilButtonIsPressed |
245 self shownInformationOfViewUnderMouseUntilButtonIsPressed |
232 " |
246 " |
|
247 |
|
248 "Modified: / 12-11-2010 / 11:39:34 / cg" |
233 ! ! |
249 ! ! |
234 |
250 |
235 !FlyByWindowInformation methodsFor:'private'! |
251 !FlyByWindowInformation methodsFor:'private'! |
236 |
252 |
237 targetViewInitiatesHelpViaSensor |
253 targetViewInitiatesHelpViaSensor |