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

...

Browse Source 
original commit: be3e7b521f5032b64e4325e30e79992bf8343aab
This commit is contained in:
John Clements 2001-10-23 17:29:37 +00:00
parent c071b7efa2
commit e437f0c414
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/mred/mred.ss
View File

@ -5448,15 +5448,20 @@
"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)
'use-play-sound]
[else [else
(raise-mismatch-error (raise-mismatch-error
'play-sound 'play-sound
"Don't know how to play sounds on architecture" "Don't know how to play sounds on architecture"
subpath)]))]) subpath)]))])
; see if user has overridden defaults (if (eq? (unbox b) 'use-play-sound)
(wx:get-resource "mred" "playcmd" b) (wx:play-sound f async?)
((if async? (lambda (x) (process x) #t) system) (begin
(format (unbox b) (expand-path f))))))) ; see if user has overridden defaults
(wx:get-resource "mred" "playcmd" b)
((if async? (lambda (x) (process x) #t) system)
(format (unbox b) (expand-path f)))))))))
(define (get-display-size) (define (get-display-size)
(let ([xb (box 0)] (let ([xb (box 0)]