From e437f0c4148a2f047016cf361e45876c46c7481b Mon Sep 17 00:00:00 2001 From: John Clements Date: Tue, 23 Oct 2001 17:29:37 +0000 Subject: [PATCH] ... original commit: be3e7b521f5032b64e4325e30e79992bf8343aab --- collects/mred/mred.ss | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index fec10694..3691c98d 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -5448,15 +5448,20 @@ "play ~s"] [(regexp-match (make-pattern "solaris") subpath) "audioplay ~s"] + [(regexp-match (make-pattern "ppc-macosx") subpath) + 'use-play-sound] [else (raise-mismatch-error 'play-sound "Don't know how to play sounds on architecture" subpath)]))]) - ; 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))))))) + (if (eq? (unbox b) 'use-play-sound) + (wx:play-sound f async?) + (begin + ; 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) (let ([xb (box 0)]