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

.

Browse Source 
original commit: 468963f26c5797ace94de7ef036d4082d24ddb34
This commit is contained in:
Matthew Flatt 2001-10-24 16:19:37 +00:00
parent 8083ea00f6
commit 8b3ec6929c
2 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/mred.ss
View File

@ -5440,11 +5440,10 @@
(raise-type-error 'play-sound "string" f)) (raise-type-error 'play-sound "string" f))
(let* ([subpath (system-library-subpath)] (let* ([subpath (system-library-subpath)]
[make-pattern (lambda (s) (string-append ".*" s ".*"))] [make-pattern (lambda (s) (string-append ".*" s ".*"))]
[b [b (box
(box
(cond (cond
[(regexp-match (make-pattern "linux") subpath) [(regexp-match (make-pattern "linux") subpath)
; use play interface to sox ;; use play interface to sox
"play ~s"] "play ~s"]
[(regexp-match (make-pattern "solaris") subpath) [(regexp-match (make-pattern "solaris") subpath)
"audioplay ~s"] "audioplay ~s"]
@ -5453,7 +5452,7 @@
[else [else
(raise-mismatch-error (raise-mismatch-error
'play-sound 'play-sound
"Don't know how to play sounds on architecture" "not supported by default on this platform"
subpath)]))]) subpath)]))])
(if (eq? (unbox b) 'use-play-sound) (if (eq? (unbox b) 'use-play-sound)
(wx:play-sound f async?) (wx:play-sound f async?)

6
notes/mred/HISTORY
View File

@ -4,9 +4,13 @@ Version 199.26:
* Added a `use-paper-bbox?' initialization argument to * Added a `use-paper-bbox?' initialization argument to
post-script-dc%. When it's #t (the default is #f), the bounding box post-script-dc%. When it's #t (the default is #f), the bounding box
for the PostScript output is determined by the paper size (from for the PostScript output is determined by the paper size (from
`current-ps-setup'), instead of from the location of drawing `current-ps-setup'), instead of from the history of drawing
commands. commands.
* `play-sound' in Linux now uses the `play' function, and under
Solaris it uses the `audioplay' function. Default commands for
other OSes are welcome.
Version 199.25: Version 199.25:
* Restricted all label string arguments to <= 200 characters (so that * Restricted all label string arguments to <= 200 characters (so that