ImageEditor.st
changeset 3580 ab5cebe669d7
parent 3562 dc310a9c9b19
child 3586 87081b50bb22
equal deleted inserted replaced
3579:a2dc71824029 3580:ab5cebe669d7
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1997-1998 by eXept Software AG
     2  COPYRIGHT (c) 1997-1998 by eXept Software AG
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
  5825     resourceClass notNil ifTrue:[
  5823     resourceClass notNil ifTrue:[
  5826         resourceSelector := imageEditView resourceSelector.
  5824         resourceSelector := imageEditView resourceSelector.
  5827         resourceSelector notNil ifTrue:[
  5825         resourceSelector notNil ifTrue:[
  5828             ^ resources 
  5826             ^ resources 
  5829                     string:(self modified 
  5827                     string:(self modified 
  5830                             ifTrue:['ImageEditor (modified): %1 » %2']
  5828                             ifTrue:['ImageEditor (modified): %1  %2']
  5831                             ifFalse:['ImageEditor: %1 » %2'])
  5829                             ifFalse:['ImageEditor: %1  %2'])
  5832                     with:resourceClass name
  5830                     with:resourceClass name
  5833                     with:resourceSelector
  5831                     with:resourceSelector
  5834         ].
  5832         ].
  5835     ].
  5833     ].
  5836     
  5834     
  5859     resourceClass notNil ifTrue:[
  5857     resourceClass notNil ifTrue:[
  5860         resourceSelector := imageEditView resourceSelector.
  5858         resourceSelector := imageEditView resourceSelector.
  5861         resourceSelector notNil ifTrue:[
  5859         resourceSelector notNil ifTrue:[
  5862             ^ resources 
  5860             ^ resources 
  5863                     string:(self modified 
  5861                     string:(self modified 
  5864                             ifTrue:['Image (modified) from: %1 » %2']
  5862                             ifTrue:['Image (modified) from: %1  %2']
  5865                             ifFalse:['Image from: %1 » %2'])
  5863                             ifFalse:['Image from: %1  %2'])
  5866                     with:resourceClass name
  5864                     with:resourceClass name
  5867                     with:resourceSelector
  5865                     with:resourceSelector
  5868         ].
  5866         ].
  5869     ].
  5867     ].
  5870     
  5868     
  6768         self updateImage.
  6766         self updateImage.
  6769         self updateImagePreView.
  6767         self updateImagePreView.
  6770     ].
  6768     ].
  6771 
  6769 
  6772     "Modified: / 28-08-2017 / 13:05:35 / cg"
  6770     "Modified: / 28-08-2017 / 13:05:35 / cg"
  6773     "Modified: / 27-05-2018 / 12:26:50 / Claus Gittinger"
  6771     "Modified: / 28-07-2018 / 10:35:37 / Claus Gittinger"
  6774 !
  6772 !
  6775 
  6773 
  6776 changeHLSOfColors:colorsToShift
  6774 changeHLSOfColors:colorsToShift
  6777     "interactive Hue/Light/Saturation editing"
  6775     "interactive Hue/Light/Saturation editing"
  6778 
  6776