Color.st
changeset 3935 c025aa0417cd
parent 3931 417757ef9695
child 3956 74f5434f3e38
equal deleted inserted replaced
3934:9226f49c99d5 3935:c025aa0417cd
  4898     "do nothing here, for compatibility with Image/Form"
  4898     "do nothing here, for compatibility with Image/Form"
  4899 ! !
  4899 ! !
  4900 
  4900 
  4901 !Color methodsFor:'printing & storing'!
  4901 !Color methodsFor:'printing & storing'!
  4902 
  4902 
       
  4903 encodingVectorFor:aspect
       
  4904     red isNil ifTrue:[
       
  4905         ^ Array with:(#colorId->colorId)
       
  4906     ].
       
  4907     ^ Array with:(#red->self red) with:(#green->self green) with:(#blue->self blue)
       
  4908 !
       
  4909 
  4903 printOn:aStream
  4910 printOn:aStream
  4904     "append a string representing of the receiver
  4911     "append a string representing of the receiver
  4905      to the argument, aStream"
  4912      to the argument, aStream"
  4906 
  4913 
  4907     self storeOn:aStream
  4914     self storeOn:aStream
  5256 ! !
  5263 ! !
  5257 
  5264 
  5258 !Color class methodsFor:'documentation'!
  5265 !Color class methodsFor:'documentation'!
  5259 
  5266 
  5260 version
  5267 version
  5261     ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.184 2003-09-12 10:24:05 cg Exp $'
  5268     ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.185 2003-09-25 14:42:10 tm Exp $'
  5262 ! !
  5269 ! !
  5263 
  5270 
  5264 Color initialize!
  5271 Color initialize!