equal
deleted
inserted
replaced
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 |