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

use include-bitmap

Browse Source 
svn: r1081

original commit: fffe9c8bfce136f84c55c077e6fa906b488a55ec
This commit is contained in:
Matthew Flatt 2005-10-14 13:02:09 +00:00
parent f39b64807e
commit 2253631efa
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mrlib/syntax-browser.ss
View File

@ -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)