equal
deleted
inserted
replaced
5038 |
5038 |
5039 magnifiedTo: extent |
5039 magnifiedTo: extent |
5040 "do nothing here, for compatibility with Image/Form" |
5040 "do nothing here, for compatibility with Image/Form" |
5041 ! ! |
5041 ! ! |
5042 |
5042 |
5043 !Color methodsFor:'printing & storing'! |
5043 !Color methodsFor:'object persistency'! |
5044 |
5044 |
5045 elementDescriptorFor:aspect |
5045 elementDescriptorFor:aspect |
|
5046 "support for persistency: |
|
5047 answer the elements to be made persistent with an ObjectCoder" |
|
5048 |
5046 red isNil ifTrue:[ |
5049 red isNil ifTrue:[ |
5047 ^ Array with:(#colorId->colorId) |
5050 ^ Array with:(#colorId->colorId) |
5048 ]. |
5051 ]. |
5049 ^ Array with:(#red->self red) with:(#green->self green) with:(#blue->self blue) |
5052 ^ Array with:(#red->self red) with:(#green->self green) with:(#blue->self blue) |
5050 ! |
5053 ! ! |
|
5054 |
|
5055 !Color methodsFor:'printing & storing'! |
5051 |
5056 |
5052 hex |
5057 hex |
5053 <resource: #obsolete> |
5058 <resource: #obsolete> |
5054 "return a hex-printString as rrggbb;" |
5059 "return a hex-printString as rrggbb;" |
5055 |
5060 |
5448 ! ! |
5453 ! ! |
5449 |
5454 |
5450 !Color class methodsFor:'documentation'! |
5455 !Color class methodsFor:'documentation'! |
5451 |
5456 |
5452 version |
5457 version |
5453 ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.207 2008-01-09 11:41:35 cg Exp $' |
5458 ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.208 2008-01-09 12:11:12 cg Exp $' |
5454 ! ! |
5459 ! ! |
5455 |
5460 |
5456 Color initialize! |
5461 Color initialize! |