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

clean up some tests

Browse Source 
svn: r16350

original commit: 110ea411d1ce43a1a813972d861095f7175a728d
This commit is contained in:
Matthew Flatt 2009-10-17 14:50:52 +00:00
parent 2397cbad2d
commit 05873b8c54
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/mred/blits.ss
View File

@ -1,3 +1,4 @@
#lang scheme/gui
(define ok-frame (make-object frame% "Ok")) (define ok-frame (make-object frame% "Ok"))
(define ok-panel #f) (define ok-panel #f)
@ -57,14 +58,14 @@
(define targets (define targets
(list (list
(build-path (collection-path "frtime") "clock.png") (build-path (collection-path "frtime") "tool" "clock.png")
(self-mask (build-path (collection-path "frtime") "clock.png")) (self-mask (build-path (collection-path "frtime") "tool" "clock.png"))
(build-path (collection-path "icons") "foot-up.png") (build-path (collection-path "icons") "foot-up.png")
(build-path (collection-path "icons") "mred.xbm") (build-path (collection-path "icons") "mred.xbm")
(self-mask (build-path (collection-path "icons") "mred.xbm")) (self-mask (build-path (collection-path "icons") "mred.xbm"))
(plus-mask (build-path (collection-path "icons") "mred.xbm") (plus-mask (build-path (collection-path "icons") "mred.xbm")
(build-path (collection-path "icons") "PLT-206.png")) (build-path (collection-path "icons") "PLT-206.png"))
(plus-mask (build-path (collection-path "frtime") "clock.png") (plus-mask (build-path (collection-path "frtime") "tool" "clock.png")
(build-path (collection-path "icons") "mred.xbm")) (build-path (collection-path "icons") "mred.xbm"))
(build-path (collection-path "icons") "htdp-icon.gif") (build-path (collection-path "icons") "htdp-icon.gif")
)) ))