equal
deleted
inserted
replaced
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 |org p v dev| |
249 |
249 |
|
250 view windowGroup isInModalLoop ifTrue:[ |
|
251 "/ Transcript showCR:'1'. |
|
252 view windowGroup isModal ifFalse:[ |
|
253 "/ Transcript showCR:'2'. |
|
254 ^ self |
|
255 ]. |
|
256 ]. |
|
257 |
250 view == currentView ifTrue:[ |
258 view == currentView ifTrue:[ |
251 lastHelpText = aHelpText ifTrue:[ |
259 lastHelpText = aHelpText ifTrue:[ |
252 ^ self |
260 ^ self |
253 ] |
261 ] |
254 ]. |
262 ]. |
321 ! ! |
329 ! ! |
322 |
330 |
323 !FlyByHelp class methodsFor:'documentation'! |
331 !FlyByHelp class methodsFor:'documentation'! |
324 |
332 |
325 version |
333 version |
326 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.25 2009-03-11 00:50:55 cg Exp $' |
334 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.26 2009-05-02 09:17:58 cg Exp $' |
327 ! ! |
335 ! ! |
328 |
336 |
329 FlyByHelp initialize! |
337 FlyByHelp initialize! |