Add immutable constructors for color%, brush%, pen%

- Make set-immutable a local method and document
    is-immutable? as a public method
  - Add some racket/draw tests

original commit: 8db45eb55788d63383334c93694e8e26a2e1108c
This commit is contained in:
Asumu Takikawa 2012-05-01 20:31:31 -04:00
parent faba676526
commit 75c774a12e
2 changed files with 4 additions and 2 deletions

View File

@ -4,7 +4,8 @@
racket/class racket/class
racket/draw racket/draw
racket/draw/private/gl-context racket/draw/private/gl-context
(except-in racket/draw/private/color color%) (except-in racket/draw/private/color
color% make-immutable-color)
(only-in racket/draw/private/bitmap quartz-bitmap%) (only-in racket/draw/private/bitmap quartz-bitmap%)
"pool.rkt" "pool.rkt"
"utils.rkt" "utils.rkt"

View File

@ -3,7 +3,8 @@
racket/class racket/class
racket/draw racket/draw
ffi/unsafe/alloc ffi/unsafe/alloc
(except-in racket/draw/private/color color%) (except-in racket/draw/private/color
color% make-immutable-color)
racket/draw/private/local racket/draw/private/local
"../common/backing-dc.rkt" "../common/backing-dc.rkt"
"../common/canvas-mixin.rkt" "../common/canvas-mixin.rkt"