suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change copy-from to return this.

Browse Source 
closes PR 11609
This commit is contained in:
Robby Findler 2011-01-11 13:29:59 -06:00
parent fc39113895
commit 997a2be686
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/racket/draw/private/color.rkt
View File

@ -70,7 +70,8 @@
(def/public (copy-from [color% c]) (def/public (copy-from [color% c])
(if immutable? (if immutable?
(error (method-name 'color% 'copy-from) "object is immutable") (error (method-name 'color% 'copy-from) "object is immutable")
(set (color-red c) (color-green c) (color-blue c) (color-alpha c))))) (begin (set (color-red c) (color-green c) (color-blue c) (color-alpha c))
this)))
(define color-red (class-field-accessor color% r)) (define color-red (class-field-accessor color% r))
(define color-green (class-field-accessor color% g)) (define color-green (class-field-accessor color% g))