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:
parent
faba676526
commit
75c774a12e
|
@ -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"
|
||||||
|
|
|
@ -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"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user