ImageEditor.st
changeset 3650 2fa5225d8d65
parent 3644 61d49e748c1f
child 3653 f66208efcf4b
equal deleted inserted replaced
3649:a51fab5fab19 3650:2fa5225d8d65
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1997-1998 by eXept Software AG
     4  COPYRIGHT (c) 1997-1998 by eXept Software AG
     3               All Rights Reserved
     5               All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
  4698 
  4700 
  4699     "Created: / 05-09-2017 / 00:32:55 / cg"
  4701     "Created: / 05-09-2017 / 00:32:55 / cg"
  4700 !
  4702 !
  4701 
  4703 
  4702 alphaVisibleHolder
  4704 alphaVisibleHolder
  4703     |holder|
  4705     ^ builder booleanValueAspectFor:#alphaVisibleHolder
  4704 
       
  4705     (holder := builder bindingAt:#alphaVisibleHolder) isNil ifTrue:[
       
  4706         builder aspectAt:#alphaVisibleHolder put:(holder := false asValue).
       
  4707     ].
       
  4708     ^ holder
       
  4709 
  4706 
  4710     "Created: / 05-09-2017 / 00:35:36 / cg"
  4707     "Created: / 05-09-2017 / 00:35:36 / cg"
       
  4708     "Modified: / 09-03-2019 / 21:10:52 / Claus Gittinger"
  4711 !
  4709 !
  4712 
  4710 
  4713 canAddColorToColormap
  4711 canAddColorToColormap
  4714     |img|
  4712     |img|
  4715     
  4713     
  4819 
  4817 
  4820     "Created: / 17-02-2017 / 14:38:04 / cg"
  4818     "Created: / 17-02-2017 / 14:38:04 / cg"
  4821 !
  4819 !
  4822 
  4820 
  4823 cropBoxVisibleHolder
  4821 cropBoxVisibleHolder
  4824     |holder|
  4822     ^ builder booleanValueAspectFor:#cropBoxVisibleHolder
  4825 
       
  4826     (holder := builder bindingAt:#cropBoxVisibleHolder) isNil ifTrue:[
       
  4827         builder aspectAt:#cropBoxVisibleHolder put:(holder := false asValue).
       
  4828     ].
       
  4829     ^ holder
       
  4830 
  4823 
  4831     "Created: / 03-02-2017 / 11:20:13 / cg"
  4824     "Created: / 03-02-2017 / 11:20:13 / cg"
       
  4825     "Modified: / 09-03-2019 / 21:11:00 / Claus Gittinger"
  4832 !
  4826 !
  4833 
  4827 
  4834 cropLeftAmount
  4828 cropLeftAmount
  4835     ^ builder valueAspectFor:'cropLeftAmount' initialValue:1
  4829     ^ builder valueAspectFor:'cropLeftAmount' initialValue:1
  4836 
  4830 
  4882 
  4876 
  4883     "Created: / 23-02-2017 / 10:18:33 / cg"
  4877     "Created: / 23-02-2017 / 10:18:33 / cg"
  4884 !
  4878 !
  4885 
  4879 
  4886 floodFillBoxVisibleHolder
  4880 floodFillBoxVisibleHolder
  4887     |holder|
  4881     ^ builder booleanValueAspectFor:#floodFillBoxVisibleHolder
  4888 
       
  4889     (holder := builder bindingAt:#floodFillBoxVisibleHolder) isNil ifTrue:[
       
  4890         builder aspectAt:#floodFillBoxVisibleHolder put:(holder := false asValue).
       
  4891     ].
       
  4892     ^ holder
       
  4893 
  4882 
  4894     "Created: / 19-02-2017 / 15:28:40 / cg"
  4883     "Created: / 19-02-2017 / 15:28:40 / cg"
       
  4884     "Modified: / 09-03-2019 / 21:11:11 / Claus Gittinger"
  4895 !
  4885 !
  4896 
  4886 
  4897 floodFillMaxHueError
  4887 floodFillMaxHueError
  4898     |holder|
  4888     |holder|
  4899 
  4889 
  5825     resourceClass notNil ifTrue:[
  5815     resourceClass notNil ifTrue:[
  5826         resourceSelector := imageEditView resourceSelector.
  5816         resourceSelector := imageEditView resourceSelector.
  5827         resourceSelector notNil ifTrue:[
  5817         resourceSelector notNil ifTrue:[
  5828             ^ resources 
  5818             ^ resources 
  5829                     string:(self modified 
  5819                     string:(self modified 
  5830                             ifTrue:['ImageEditor (modified): %1 » %2']
  5820                             ifTrue:['ImageEditor (modified): %1 » %2']
  5831                             ifFalse:['ImageEditor: %1 » %2'])
  5821                             ifFalse:['ImageEditor: %1 » %2'])
  5832                     with:resourceClass name
  5822                     with:resourceClass name
  5833                     with:resourceSelector
  5823                     with:resourceSelector
  5834         ].
  5824         ].
  5835     ].
  5825     ].
  5836     
  5826     
  5859     resourceClass notNil ifTrue:[
  5849     resourceClass notNil ifTrue:[
  5860         resourceSelector := imageEditView resourceSelector.
  5850         resourceSelector := imageEditView resourceSelector.
  5861         resourceSelector notNil ifTrue:[
  5851         resourceSelector notNil ifTrue:[
  5862             ^ resources 
  5852             ^ resources 
  5863                     string:(self modified 
  5853                     string:(self modified 
  5864                             ifTrue:['Image (modified) from: %1 » %2']
  5854                             ifTrue:['Image (modified) from: %1 » %2']
  5865                             ifFalse:['Image from: %1 » %2'])
  5855                             ifFalse:['Image from: %1 » %2'])
  5866                     with:resourceClass name
  5856                     with:resourceClass name
  5867                     with:resourceSelector
  5857                     with:resourceSelector
  5868         ].
  5858         ].
  5869     ].
  5859     ].
  5870     
  5860     
  6059 !
  6049 !
  6060 
  6050 
  6061 imageIsLoadedHolder
  6051 imageIsLoadedHolder
  6062     "returns whether an image is loaded as value holder"
  6052     "returns whether an image is loaded as value holder"
  6063 
  6053 
  6064     |holder|
  6054     ^ builder booleanValueAspectFor:#imageIsLoadedHolder
  6065 
       
  6066     (holder := builder bindingAt:#imageIsLoaded) isNil ifTrue:[
       
  6067         builder aspectAt:#imageIsLoaded put:(holder :=  false asValue).
       
  6068     ].
       
  6069     ^ holder
       
  6070 
  6055 
  6071     "Created: / 04-07-2010 / 10:15:38 / cg"
  6056     "Created: / 04-07-2010 / 10:15:38 / cg"
       
  6057     "Modified: / 09-03-2019 / 21:11:20 / Claus Gittinger"
  6072 ! !
  6058 ! !
  6073 
  6059 
  6074 !ImageEditor methodsFor:'menu item visibility'!
  6060 !ImageEditor methodsFor:'menu item visibility'!
  6075 
  6061 
  6076 isNotStandAloneAndMethodSaveAndLoadMenuItemsVisible
  6062 isNotStandAloneAndMethodSaveAndLoadMenuItemsVisible