equal
deleted
inserted
replaced
35 " |
35 " |
36 ! |
36 ! |
37 |
37 |
38 version |
38 version |
39 " |
39 " |
40 $Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.2 1995-05-18 23:00:30 claus Exp $ |
40 $Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.3 1995-09-09 02:32:00 claus Exp $ |
41 " |
41 " |
42 ! |
42 ! |
43 |
43 |
44 documentation |
44 documentation |
45 " |
45 " |
99 !ColoredListEntry methodsFor:'drawing'! |
99 !ColoredListEntry methodsFor:'drawing'! |
100 |
100 |
101 displayOn:aGC x:x y:y |
101 displayOn:aGC x:x y:y |
102 "display the receiver on a GC" |
102 "display the receiver on a GC" |
103 |
103 |
|
104 |savedPaint| |
|
105 |
|
106 savedPaint := aGC paint. |
104 aGC paint:color. |
107 aGC paint:color. |
105 aGC displayString:string x:x y:y. |
108 aGC displayString:string x:x y:y. |
|
109 aGC paint:savedPaint |
106 ! ! |
110 ! ! |
107 |
111 |
108 !ColoredListEntry methodsFor:'accessing'! |
112 !ColoredListEntry methodsFor:'accessing'! |
109 |
113 |
110 string:aString color:aColor |
114 string:aString color:aColor |