ImageEditor.st
changeset 3465 510f01b982de
parent 3464 9e3d52c9cca3
child 3466 2d5ea09863c6
equal deleted inserted replaced
3464:9e3d52c9cca3 3465:510f01b982de
  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