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

29
collects/mred/mred.ss
View File

@ -5440,21 +5440,20 @@
(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"] [(regexp-match (make-pattern "ppc-macosx") subpath)
[(regexp-match (make-pattern "ppc-macosx") subpath) 'use-play-sound]
'use-play-sound] [else
[else (raise-mismatch-error
(raise-mismatch-error 'play-sound
'play-sound "not supported by default on this platform"
"Don't know how to play sounds on architecture" 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?)
(begin (begin

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