equal
deleted
inserted
replaced
243 ! |
243 ! |
244 |
244 |
245 showHelp:aHelpText for:view |
245 showHelp:aHelpText for:view |
246 "show the help text for aView" |
246 "show the help text for aView" |
247 |
247 |
248 |org p v dev| |
248 |wg org p v dev| |
249 |
249 |
250 view windowGroup isInModalLoop ifTrue:[ |
250 (wg := view windowGroup) notNil ifTrue:[ |
|
251 wg isInModalLoop ifTrue:[ |
251 "/ Transcript showCR:'1'. |
252 "/ Transcript showCR:'1'. |
252 view windowGroup isModal ifFalse:[ |
253 wg isModal ifFalse:[ |
253 "/ Transcript showCR:'2'. |
254 "/ Transcript showCR:'2'. |
254 ^ self |
255 ^ self |
|
256 ]. |
255 ]. |
257 ]. |
256 ]. |
258 ]. |
257 |
259 |
258 view == currentView ifTrue:[ |
260 view == currentView ifTrue:[ |
259 lastHelpText = aHelpText ifTrue:[ |
261 lastHelpText = aHelpText ifTrue:[ |
329 ! ! |
331 ! ! |
330 |
332 |
331 !FlyByHelp class methodsFor:'documentation'! |
333 !FlyByHelp class methodsFor:'documentation'! |
332 |
334 |
333 version |
335 version |
334 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.26 2009-05-02 09:17:58 cg Exp $' |
336 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.27 2009-05-06 13:21:12 cg Exp $' |
335 ! ! |
337 ! ! |
336 |
338 |
337 FlyByHelp initialize! |
339 FlyByHelp initialize! |