ImageEditView.st
changeset 3730 3f07e7082aff
parent 3729 6f6cfc8bb8cf
child 3762 1baf6a044dd2
equal deleted inserted replaced
3729:6f6cfc8bb8cf 3730:3f07e7082aff
    15 	instanceVariableNames:'magnification imageReaderClass resourceClass resourceSelector
    15 	instanceVariableNames:'magnification imageReaderClass resourceClass resourceSelector
    16 		mouseKeyColorMode undoImages modifiedHolder editMode
    16 		mouseKeyColorMode undoImages modifiedHolder editMode
    17 		lastPastePoint imageInfoHolder activityInfoHolder
    17 		lastPastePoint imageInfoHolder activityInfoHolder
    18 		pickedColorHolder drawingColors drawingPixels drawingColorHolders
    18 		pickedColorHolder drawingColors drawingPixels drawingColorHolders
    19 		drawingPixelHolders clickInfoCallBack penWidth sprayProcess
    19 		drawingPixelHolders clickInfoCallBack penWidth sprayProcess
    20 		sprayPosition spraySpot'
    20 		sprayPosition spraySpot drawingAlpha'
    21 	classVariableNames:'Clipboard ClipboardMagnified LastMagnification
    21 	classVariableNames:'Clipboard ClipboardMagnified LastMagnification
    22 		GridMagnificationLimit MaxUndos LastSaveDirectory LastSaveClass
    22 		GridMagnificationLimit MaxUndos LastSaveDirectory LastSaveClass
    23 		EditModePoint EditModeBox EditModeFilledBox EditModeFill
    23 		EditModePoint EditModeBox EditModeFilledBox EditModeFill
    24 		EditModeCopy EditModePasteUnder EditModePaste
    24 		EditModeCopy EditModePasteUnder EditModePaste
    25 		EditModePasteWithMask EditModeSpecialOperation EditModeSpray
    25 		EditModePasteWithMask EditModeSpecialOperation EditModeSpray
   317         resourceSelector := aStringOrSymbol asSymbol
   317         resourceSelector := aStringOrSymbol asSymbol
   318     ]
   318     ]
   319 !
   319 !
   320 
   320 
   321 selectedColor
   321 selectedColor
   322     ^ (drawingColorHolders at:mouseKeyColorMode) value
   322     |clr|
       
   323 
       
   324     clr := (drawingColorHolders at:mouseKeyColorMode) value.
       
   325     image hasAlphaChannel ifTrue:[
       
   326         ^ (TranslucentColor 
       
   327                 scaledRed:clr scaledRed
       
   328                 scaledGreen:clr scaledGreen
       
   329                 scaledBlue:clr scaledBlue)
       
   330                 alpha:(drawingAlpha ? 1.0)
       
   331     ].
       
   332     ^ clr
   323 !
   333 !
   324 
   334 
   325 selectedColor: aColor
   335 selectedColor: aColor
   326     (drawingColorHolders at:mouseKeyColorMode) value:aColor
   336     (drawingColorHolders at:mouseKeyColorMode) value:aColor
   327 !
   337 !
  2640 ! !
  2650 ! !
  2641 
  2651 
  2642 !ImageEditView class methodsFor:'documentation'!
  2652 !ImageEditView class methodsFor:'documentation'!
  2643 
  2653 
  2644 version
  2654 version
  2645     ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.234 2009-08-07 16:35:33 cg Exp $'
  2655     ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.235 2009-08-07 16:53:19 cg Exp $'
  2646 ! !
  2656 ! !
  2647 
  2657 
  2648 ImageEditView initialize!
  2658 ImageEditView initialize!