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. |
421 "/ Transcript showCR:helpTextShown storeString. |
422 helpTextShown isEmptyOrNil ifTrue:[^ self]. |
422 helpTextShown isEmptyOrNil ifTrue:[^ self]. |
423 |
423 |
424 org := view originRelativeTo:nil. |
424 org := view originRelativeTo:nil. |
425 currentFrame := org extent:view extent. |
425 currentFrame := org extent:view extent. |
426 org := org + (view extent // 2). |
426 org := org + (view extent // 2). |