5495 |
5495 |
5496 defaultInfoLabel |
5496 defaultInfoLabel |
5497 "returns the text shown in the info label, when the mouse is NOT over |
5497 "returns the text shown in the info label, when the mouse is NOT over |
5498 some widget with a help text." |
5498 some widget with a help text." |
5499 |
5499 |
5500 |resourceClass resourceSelector| |
5500 |resourceClass resourceSelector img| |
5501 |
5501 |
5502 resourceClass := imageEditView resourceClass. |
5502 resourceClass := imageEditView resourceClass. |
5503 resourceClass notNil ifTrue:[ |
5503 resourceClass notNil ifTrue:[ |
5504 resourceSelector := imageEditView resourceSelector. |
5504 resourceSelector := imageEditView resourceSelector. |
5505 resourceSelector notNil ifTrue:[ |
5505 resourceSelector notNil ifTrue:[ |
5506 ^ resourceClass name, ' » ', resourceSelector |
5506 ^ resourceClass name, ' » ', resourceSelector |
5507 ]. |
5507 ]. |
5508 ]. |
5508 ]. |
|
5509 |
|
5510 (img := imageEditView image) notNil ifTrue:[ |
|
5511 img fileName notNil ifTrue:[ |
|
5512 ^ resources string:'Image from: %1.' with:(img fileName asFilename baseName). |
|
5513 ]. |
|
5514 ]. |
5509 ^ resources string:'No class and selector defined.' |
5515 ^ resources string:'No class and selector defined.' |
|
5516 |
|
5517 "Modified: / 27-08-2017 / 15:02:52 / cg" |
5510 ! |
5518 ! |
5511 |
5519 |
5512 openDocumentation |
5520 openDocumentation |
5513 "opens the documentation file of the Image Editor" |
5521 "opens the documentation file of the Image Editor" |
5514 |
5522 |