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

use build-path to construct path segments instead of putting slashes into strings

Browse Source
This commit is contained in:
Robby Findler 2011-12-05 17:59:23 -06:00
parent 1d03e5f711
commit 7a5e90f48f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/icons/private/svg.rkt
View File

@ -22,7 +22,7 @@
(let ([h (for/first ([h (in-list hs)] #:when (height . <= . h)) h)])
(if h h (last hs))))
(define icon-path
(build-path svg-icons-base-path (format "~a/~a/~a.png" category icon-height name)))
(build-path svg-icons-base-path category (format "~a" icon-height) (format "~a.png" name)))
(scale (bitmap icon-path) (/ height icon-height)))
(defproc (load-icon [category string?] [name string?] [height (>=/c 0)]) (is-a?/c bitmap%)