equal
deleted
inserted
replaced
176 ]. |
176 ]. |
177 devClr isNil ifTrue:[ |
177 devClr isNil ifTrue:[ |
178 round == 1 ifTrue:[ |
178 round == 1 ifTrue:[ |
179 'Color [info]: collect garbage to reclaim colors' infoPrintCR. |
179 'Color [info]: collect garbage to reclaim colors' infoPrintCR. |
180 ObjectMemory performLowSpaceCleanup. |
180 ObjectMemory performLowSpaceCleanup. |
181 ObjectMemory garbageCollect. |
181 ObjectMemory garbageCollect; finalize. |
182 round := 2. |
182 round := 2. |
183 devClr := clr exactOn:aDevice. |
183 devClr := clr exactOn:aDevice. |
184 ]. |
184 ]. |
185 ]. |
185 ]. |
186 devClr isNil ifTrue:[ |
186 devClr isNil ifTrue:[ |
3770 |
3770 |
3771 "Created: 14.6.1996 / 20:13:22 / cg" |
3771 "Created: 14.6.1996 / 20:13:22 / cg" |
3772 "Modified: 11.7.1996 / 18:20:14 / cg" |
3772 "Modified: 11.7.1996 / 18:20:14 / cg" |
3773 ! ! |
3773 ! ! |
3774 |
3774 |
3775 |
|
3776 !Color methodsFor:'Compatibility-ST80'! |
3775 !Color methodsFor:'Compatibility-ST80'! |
3777 |
3776 |
3778 asDevicePaintOn:aDevice |
3777 asDevicePaintOn:aDevice |
3779 "ST-80 compatibility: an alias for on:. |
3778 "ST-80 compatibility: an alias for on:. |
3780 create a new Color representing the same color as |
3779 create a new Color representing the same color as |
5556 ! ! |
5555 ! ! |
5557 |
5556 |
5558 !Color class methodsFor:'documentation'! |
5557 !Color class methodsFor:'documentation'! |
5559 |
5558 |
5560 version |
5559 version |
5561 ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.218 2009-10-24 15:33:27 cg Exp $' |
5560 ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.219 2010-02-09 13:40:38 stefan Exp $' |
5562 ! |
5561 ! |
5563 |
5562 |
5564 version_CVS |
5563 version_CVS |
5565 ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.218 2009-10-24 15:33:27 cg Exp $' |
5564 ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.219 2010-02-09 13:40:38 stefan Exp $' |
5566 ! ! |
5565 ! ! |
5567 |
5566 |
5568 Color initialize! |
5567 Color initialize! |