From 45a0c131214bd615d3e8bf0a669b8f3a2cf25d4a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 9 Feb 1999 16:39:38 +0000 Subject: [PATCH] ... original commit: 3d25ef1cbf8bda213007228663a138040ede49cf --- collects/framework/frame.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss index b49a28ea..2936bfab 100644 --- a/collects/framework/frame.ss +++ b/collects/framework/frame.ss @@ -737,7 +737,7 @@ (lambda (p v) (if v (register-gc-blit) - '(unregister-collecting-blit gc-canvas)) + (unregister-collecting-blit gc-canvas)) (send super-root change-children (lambda (l) (if v @@ -748,7 +748,7 @@ (lambda () (super-on-close) (send time-canvas set-editor #f) - '(unregister-collecting-blit gc-canvas) + (unregister-collecting-blit gc-canvas) (close-panel-callback))]) (inherit get-editor) @@ -805,7 +805,7 @@ [offb (icon:get-gc-off-bitmap)]) (when (and (send onb ok?) (send offb ok?)) - '(register-collecting-blit gc-canvas + (register-collecting-blit gc-canvas 0 0 (send onb get-width) (send onb get-height)