From 2253631efac3b7f1bcfe934a147b1f067ef56f5a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 14 Oct 2005 13:02:09 +0000 Subject: [PATCH] use include-bitmap svn: r1081 original commit: fffe9c8bfce136f84c55c077e6fa906b488a55ec --- collects/mrlib/syntax-browser.ss | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/mrlib/syntax-browser.ss b/collects/mrlib/syntax-browser.ss index ac1274bc..1288ae42 100644 --- a/collects/mrlib/syntax-browser.ss +++ b/collects/mrlib/syntax-browser.ss @@ -13,7 +13,8 @@ needed to really make this work: (lib "class.ss") (lib "mred.ss" "mred") (lib "match.ss") - (lib "string.ss")) + (lib "string.ss") + "include-bitmap.ss") (provide render-syntax/snip render-syntax/window snip-class) @@ -440,10 +441,10 @@ needed to really make this work: (define (set-box/f! b v) (when (box? b) (set-box! b v))) - (define down-bitmap (make-object bitmap% (build-path (collection-path "icons") "turn-down.png"))) - (define up-bitmap (make-object bitmap% (build-path (collection-path "icons") "turn-up.png"))) - (define down-click-bitmap (make-object bitmap% (build-path (collection-path "icons") "turn-down-click.png"))) - (define up-click-bitmap (make-object bitmap% (build-path (collection-path "icons") "turn-up-click.png"))) + (define down-bitmap (include-bitmap (lib "turn-down.png" "icons"))) + (define up-bitmap (include-bitmap (lib "turn-up.png" "icons"))) + (define down-click-bitmap (include-bitmap (lib "turn-down-click.png" "icons"))) + (define up-click-bitmap (include-bitmap (lib "turn-up-click.png" "icons"))) (define arrow-snip-height (max 10 (send up-bitmap get-height)