suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use include-bitmap for frame icon

Browse Source 
svn: r1438
This commit is contained in:
Matthew Flatt 2005-11-29 14:51:42 +00:00
parent 9c06c927c4
commit e35276ff82
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/slideshow/viewer.ss
View File

@ -11,6 +11,7 @@
(lib "utils.ss" "texpict") (lib "utils.ss" "texpict")
(lib "math.ss") (lib "math.ss")
(lib "list.ss") (lib "list.ss")
(lib "include-bitmap.ss" "mrlib")
"sig.ss" "sig.ss"
"core.ss" "core.ss"
"util.ss") "util.ss")
@ -1059,8 +1060,13 @@
(refresh-page) (refresh-page)
(let* ([bm (make-object bitmap% (build-path (collection-path "slideshow") "slideshow.png"))] (define slideshow-bm
[mbm (make-object bitmap% (build-path (collection-path "slideshow") "mask.xbm"))]) (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?) (when (send bm ok?)
(send f set-icon bm (and (send mbm ok?) mbm) 'both))) (send f set-icon bm (and (send mbm ok?) mbm) 'both)))