equal
deleted
inserted
replaced
217 "append a string representing an expression to reconstruct the receiver |
217 "append a string representing an expression to reconstruct the receiver |
218 to the argument, aStream" |
218 to the argument, aStream" |
219 |
219 |
220 |clsName| |
220 |clsName| |
221 |
221 |
222 clsName := self class name. |
222 clsName := self className. |
223 |
223 |
224 aStream nextPutAll:'(' , clsName , ' red:'. |
224 aStream nextPutAll:'(' , clsName , ' red:'. |
225 (self red) storeOn:aStream. |
225 (self red) storeOn:aStream. |
226 aStream nextPutAll:' green:'. |
226 aStream nextPutAll:' green:'. |
227 (self green) storeOn:aStream. |
227 (self green) storeOn:aStream. |
232 aStream nextPut:$). |
232 aStream nextPut:$). |
233 |
233 |
234 " |
234 " |
235 (self red:100 green:100 blue:0 alpha:1) storeOn:Transcript |
235 (self red:100 green:100 blue:0 alpha:1) storeOn:Transcript |
236 " |
236 " |
|
237 |
|
238 "Modified: / 28-06-2019 / 09:22:11 / Claus Gittinger" |
237 ! ! |
239 ! ! |
238 |
240 |
239 !TranslucentColor methodsFor:'queries'! |
241 !TranslucentColor methodsFor:'queries'! |
240 |
242 |
241 isOpaque |
243 isOpaque |