Image.st
changeset 7494 70c399ea367b
parent 7484 ac97ca090d0c
child 7511 ce7b0b92416e
equal deleted inserted replaced
7493:59db55fd753a 7494:70c399ea367b
  5581     maskedPixelsAre0 == true ifTrue:[^ self].   "/ already cleared
  5581     maskedPixelsAre0 == true ifTrue:[^ self].   "/ already cleared
  5582     mask isNil ifTrue:[^ self].         "/ no mask
  5582     mask isNil ifTrue:[^ self].         "/ no mask
  5583     deviceForm isNil ifTrue:[^ self].   "/ no device rep.
  5583     deviceForm isNil ifTrue:[^ self].   "/ no device rep.
  5584     mask depth ~~ 1 ifTrue:[^ self].    "/ not done with alpha masks
  5584     mask depth ~~ 1 ifTrue:[^ self].    "/ not done with alpha masks
  5585 
  5585 
  5586     deviceForm
  5586     deviceForm clearMaskedPixels:(mask asFormOn:device).
  5587 	foreground:Color allColor background:Color noColor function:#and;
       
  5588 	copyPlaneFrom:(mask asFormOn:device) x:0 y:0 toX:0 y:0 width:width height:height.
       
  5589 
       
  5590 "/    deviceForm clearMaskedPixels:(mask asFormOn:device).
       
  5591     maskedPixelsAre0 := true.
  5587     maskedPixelsAre0 := true.
  5592 
  5588 
  5593 
  5589 
  5594     "Created: 12.4.1997 / 12:18:05 / cg"
  5590     "Created: 12.4.1997 / 12:18:05 / cg"
  5595     "Modified: 12.4.1997 / 12:20:19 / cg"
  5591     "Modified: 12.4.1997 / 12:20:19 / cg"
  6752 
  6748 
  6753 skipInstvarIndexInDeepCopy:index
  6749 skipInstvarIndexInDeepCopy:index
  6754     "a helper for deepCopy; only indices for which this method returns
  6750     "a helper for deepCopy; only indices for which this method returns
  6755      false are copied in a deep copy."
  6751      false are copied in a deep copy."
  6756 
  6752 
  6757     index == 17 ifTrue:[
  6753     "
  6758 	^ true "/ skip device
  6754         self allInstanceVariableNames indexOf:#device
  6759     ].
  6755     "
  6760     index == 18 ifTrue:[
  6756 
  6761 	^ true "/ skip deviceForm
  6757     index == 13 ifTrue:[
  6762     ].
  6758         ^ true "/ skip device
  6763     index == 19 ifTrue:[
  6759     ].
  6764 	^ true "/ skip monoDeviceForm
  6760     index == 14 ifTrue:[
  6765     ].
  6761         ^ true "/ skip deviceForm
  6766     index == 20 ifTrue:[
  6762     ].
  6767 	^ true "/ skip fullColorDeviceForm
  6763     index == 15 ifTrue:[
       
  6764         ^ true "/ skip monoDeviceForm
  6768     ].
  6765     ].
  6769     ^ false
  6766     ^ false
  6770 ! !
  6767 ! !
  6771 
  6768 
  6772 !Image methodsFor:'displaying'!
  6769 !Image methodsFor:'displaying'!