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

use 'png for arrow bitmaps, drop redundant with-handlers

Browse Source 
svn: r1083

original commit: e2e6516a84ea49e3b81b0df8d6c115f8f873d6c6
This commit is contained in:
Matthew Flatt 2005-10-14 14:08:40 +00:00
parent 1162fa10a0
commit 4c452a36a8
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/frame.ss
View File

@ -2288,10 +2288,8 @@
(with-handlers ([exn:fail:filesystem? (with-handlers ([exn:fail:filesystem?
(λ (x) #f)]) (λ (x) #f)])
(let ([fw (collection-path "framework")]) (let ([fw (collection-path "framework")])
(with-handlers ([exn:fail:filesystem? (or (directory-exists? (build-path fw ".svn"))
(λ (x) #f)]) (directory-exists? (build-path fw "CVS")))))))
(or (directory-exists? (build-path fw ".svn"))
(directory-exists? (build-path fw "CVS"))))))))
(define bday-click-canvas% (define bday-click-canvas%
(class canvas% (class canvas%

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

@ -441,10 +441,10 @@ needed to really make this work:
(define (set-box/f! b v) (when (box? b) (set-box! b v))) (define (set-box/f! b v) (when (box? b) (set-box! b v)))
(define down-bitmap (include-bitmap (lib "turn-down.png" "icons"))) (define down-bitmap (include-bitmap (lib "turn-down.png" "icons") 'png))
(define up-bitmap (include-bitmap (lib "turn-up.png" "icons"))) (define up-bitmap (include-bitmap (lib "turn-up.png" "icons") 'png))
(define down-click-bitmap (include-bitmap (lib "turn-down-click.png" "icons"))) (define down-click-bitmap (include-bitmap (lib "turn-down-click.png" "icons") 'png))
(define up-click-bitmap (include-bitmap (lib "turn-up-click.png" "icons"))) (define up-click-bitmap (include-bitmap (lib "turn-up-click.png" "icons") 'png))
(define arrow-snip-height (define arrow-snip-height
(max 10 (max 10
(send up-bitmap get-height) (send up-bitmap get-height)