From 75c774a12e128980bed939af9d1d19f21eed79b2 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Tue, 1 May 2012 20:31:31 -0400 Subject: [PATCH] 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 --- collects/mred/private/wx/cocoa/canvas.rkt | 3 ++- collects/mred/private/wx/gtk/canvas.rkt | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wx/cocoa/canvas.rkt b/collects/mred/private/wx/cocoa/canvas.rkt index e023ebe7..434c113d 100644 --- a/collects/mred/private/wx/cocoa/canvas.rkt +++ b/collects/mred/private/wx/cocoa/canvas.rkt @@ -4,7 +4,8 @@ racket/class racket/draw 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%) "pool.rkt" "utils.rkt" diff --git a/collects/mred/private/wx/gtk/canvas.rkt b/collects/mred/private/wx/gtk/canvas.rkt index fc8b44ff..80adf564 100644 --- a/collects/mred/private/wx/gtk/canvas.rkt +++ b/collects/mred/private/wx/gtk/canvas.rkt @@ -3,7 +3,8 @@ racket/class racket/draw ffi/unsafe/alloc - (except-in racket/draw/private/color color%) + (except-in racket/draw/private/color + color% make-immutable-color) racket/draw/private/local "../common/backing-dc.rkt" "../common/canvas-mixin.rkt"