From e7ae508e52ba5c7cd3489ae16c88ebfe87eee487 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 27 Mar 2002 19:16:36 +0000 Subject: [PATCH] .. original commit: 9b2ebb140b3ef544c596c8eb67070e1f61656b10 --- collects/framework/private/icon.ss | 4 ++-- collects/framework/private/panel.ss | 1 + collects/framework/private/scheme.ss | 3 ++- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/icon.ss b/collects/framework/private/icon.ss index 17c99a7c..5b51fce9 100644 --- a/collects/framework/private/icon.ss +++ b/collects/framework/private/icon.ss @@ -32,8 +32,8 @@ [f (lambda () (let ([bitmap (make-object bitmap% p type)]) - (set! f (lambda () bitmap)) - bitmap))]) + (set! f (lambda () bitmap)) + bitmap))]) (unless (file-exists? p) (fprintf (current-error-port) "WARNING: couldn't find ~a~n" p)) (lambda () diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss index e06a7dea..bc5443d7 100644 --- a/collects/framework/private/panel.ss +++ b/collects/framework/private/panel.ss @@ -267,6 +267,7 @@ cursor-gaps)]) (set-cursor (and (or gap resizing-y) + (send (icon:get-up/down-cursor) ok?) (icon:get-up/down-cursor))) (cond [(and gap (send evt button-down? 'left)) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 2295a6b9..5eba5eb5 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -556,7 +556,8 @@ left right (if error? mismatch-color match-color) - (icon:get-paren-highlight-bitmap) + (and (send (icon:get-paren-highlight-bitmap) ok?) + (icon:get-paren-highlight-bitmap)) (= there here left))]) (set! clear-old-locations (let ([old clear-old-locations])