From e35276ff825cfca3b294177841bf463e3f943b5b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 29 Nov 2005 14:51:42 +0000 Subject: [PATCH] use include-bitmap for frame icon svn: r1438 --- collects/slideshow/viewer.ss | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/collects/slideshow/viewer.ss b/collects/slideshow/viewer.ss index 5ae8689d24..fff8039faa 100644 --- a/collects/slideshow/viewer.ss +++ b/collects/slideshow/viewer.ss @@ -11,6 +11,7 @@ (lib "utils.ss" "texpict") (lib "math.ss") (lib "list.ss") + (lib "include-bitmap.ss" "mrlib") "sig.ss" "core.ss" "util.ss") @@ -1059,8 +1060,13 @@ (refresh-page) - (let* ([bm (make-object bitmap% (build-path (collection-path "slideshow") "slideshow.png"))] - [mbm (make-object bitmap% (build-path (collection-path "slideshow") "mask.xbm"))]) + (define slideshow-bm + (include-bitmap (lib "slideshow.png" "slideshow"))) + (define slideshow-mbm + (include-bitmap (lib "mask.xbm" "slideshow"))) + + (let* ([bm slideshow-bm] + [mbm slideshow-mbm]) (when (send bm ok?) (send f set-icon bm (and (send mbm ok?) mbm) 'both)))