Color.st
changeset 3724 e35133b39f25
parent 3665 88c6d39e3da4
child 3726 079d32916a9e
equal deleted inserted replaced
3723:4b88efc2d812 3724:e35133b39f25
  4797      (Color red) mixed:0.8 with:(Color white)
  4797      (Color red) mixed:0.8 with:(Color white)
  4798      (Color red) mixed:0.8 with:(Color black)
  4798      (Color red) mixed:0.8 with:(Color black)
  4799     "
  4799     "
  4800 
  4800 
  4801     "Modified: 10.2.1997 / 22:08:14 / cg"
  4801     "Modified: 10.2.1997 / 22:08:14 / cg"
       
  4802 !
       
  4803 
       
  4804 slightlyDarkened
       
  4805     "return a new color, which is a bit darker than the receiver"
       
  4806 
       
  4807     ^ self blendWith:(self blendWith:Black)
       
  4808 
       
  4809     "
       
  4810      (Color green) inspect
       
  4811      (Color green) darkened inspect
       
  4812      (Color green) slightlyDarkened inspect
       
  4813     "
       
  4814 !
       
  4815 
       
  4816 slightlyLightened
       
  4817     "return a new color, which is a bit lighter than the receiver"
       
  4818 
       
  4819     ^ self blendWith:(self blendWith:White)
       
  4820 
       
  4821     "
       
  4822      (Color red) inspect
       
  4823      (Color red) lightened inspect
       
  4824      (Color red) slightlyLightened inspect
       
  4825     "
  4802 ! !
  4826 ! !
  4803 
  4827 
  4804 !Color methodsFor:'instance release'!
  4828 !Color methodsFor:'instance release'!
  4805 
  4829 
  4806 executor
  4830 executor
  5181 ! !
  5205 ! !
  5182 
  5206 
  5183 !Color class methodsFor:'documentation'!
  5207 !Color class methodsFor:'documentation'!
  5184 
  5208 
  5185 version
  5209 version
  5186     ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.169 2002-07-24 15:04:52 stefan Exp $'
  5210     ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.170 2002-09-06 14:30:00 cg Exp $'
  5187 ! !
  5211 ! !
  5188 Color initialize!
  5212 Color initialize!