Hide internal fields in color% and point%.

2012-04-24 10:00:18 -04:00 · 2012-04-24 10:00:18 -04:00 · 1207ca77c4
commit 1207ca77c4
parent ba8684cb63
2 changed files with 3 additions and 1 deletions
--- a/collects/racket/draw/private/color.rkt
+++ b/collects/racket/draw/private/color.rkt
@ -12,7 +12,7 @@
         color->immutable-color)

 (define-local-member-name
-  r g b)
+  r g b a)

 (defclass color% object%
  (field [r 0]
--- a/collects/racket/draw/private/point.rkt
+++ b/collects/racket/draw/private/point.rkt
@ -5,6 +5,8 @@
 (provide point% point-x point-y
         list-of-pair-of-real?)

+(define-local-member-name x y)
+
 (define point%
  (class object%
    (init-field [x 0.0]