equal
deleted
inserted
replaced
24 |
24 |
25 Color comment:' |
25 Color comment:' |
26 COPYRIGHT (c) 1992 by Claus Gittinger |
26 COPYRIGHT (c) 1992 by Claus Gittinger |
27 All Rights Reserved |
27 All Rights Reserved |
28 |
28 |
29 $Header: /cvs/stx/stx/libview/Color.st,v 1.26 1995-05-03 00:01:23 claus Exp $ |
29 $Header: /cvs/stx/stx/libview/Color.st,v 1.27 1995-06-06 04:05:00 claus Exp $ |
30 '! |
30 '! |
31 |
31 |
32 !Color class methodsFor:'documentation'! |
32 !Color class methodsFor:'documentation'! |
33 |
33 |
34 copyright |
34 copyright |
45 " |
45 " |
46 ! |
46 ! |
47 |
47 |
48 version |
48 version |
49 " |
49 " |
50 $Header: /cvs/stx/stx/libview/Color.st,v 1.26 1995-05-03 00:01:23 claus Exp $ |
50 $Header: /cvs/stx/stx/libview/Color.st,v 1.27 1995-06-06 04:05:00 claus Exp $ |
51 " |
51 " |
52 ! |
52 ! |
53 |
53 |
54 documentation |
54 documentation |
55 " |
55 " |
226 1 to:nB do:[:sB | |
226 1 to:nB do:[:sB | |
227 blue := dB * (sB - 1). |
227 blue := dB * (sB - 1). |
228 clr := (self red:red green:green blue:blue) exactOn:Display. |
228 clr := (self red:red green:green blue:blue) exactOn:Display. |
229 clr isNil ifTrue:[ |
229 clr isNil ifTrue:[ |
230 round == 0 ifTrue:[ |
230 round == 0 ifTrue:[ |
231 'COLOR: collect garbage to reclaim colors' errorPrintNL. |
231 'COLOR: collect garbage to reclaim colors' infoPrintNL. |
232 ObjectMemory garbageCollect. |
232 ObjectMemory garbageCollect. |
233 round := 1. |
233 round := 1. |
234 ]. |
234 ]. |
235 clr := (self red:red green:green blue:blue) exactOn:Display. |
235 clr := (self red:red green:green blue:blue) exactOn:Display. |
236 ]. |
236 ]. |