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

Hide internal fields in color% and point%.

Browse Source
This commit is contained in:
Asumu Takikawa 2012-04-24 10:00:18 -04:00
parent ba8684cb63
commit 1207ca77c4
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,7 +12,7 @@
color->immutable-color) color->immutable-color)
(define-local-member-name (define-local-member-name
r g b) r g b a)
(defclass color% object% (defclass color% object%
(field [r 0] (field [r 0]

2
collects/racket/draw/private/point.rkt
View File

@ -5,6 +5,8 @@
(provide point% point-x point-y (provide point% point-x point-y
list-of-pair-of-real?) list-of-pair-of-real?)
(define-local-member-name x y)
(define point% (define point%
(class object% (class object%
(init-field [x 0.0] (init-field [x 0.0]