equal
deleted
inserted
replaced
416 ]. |
416 ]. |
417 currentHelpView notNil ifTrue:[ |
417 currentHelpView notNil ifTrue:[ |
418 self hideHelp |
418 self hideHelp |
419 ]. |
419 ]. |
420 |
420 |
|
421 Transcript showCR:helpTextShown storeString. |
|
422 helpTextShown isEmptyOrNil ifTrue:[^ self]. |
|
423 |
421 org := view originRelativeTo:nil. |
424 org := view originRelativeTo:nil. |
422 currentFrame := org extent:view extent. |
425 currentFrame := org extent:view extent. |
423 org := org + (view extent // 2). |
426 org := org + (view extent // 2). |
424 |
427 |
425 dev := view graphicsDevice. |
428 dev := view graphicsDevice. |