From: Michael Gernoth Date: Sun, 3 Feb 2008 20:59:05 +0000 (+0100) Subject: search sounds and player in $ResourceDir X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/ab91a0e01b40f16c744eae6aa611f8d5f0829a17 search sounds and player in $ResourceDir --- diff --git a/res/micropolis.tcl b/res/micropolis.tcl index 142fa24..6c6c03a 100644 --- a/res/micropolis.tcl +++ b/res/micropolis.tcl @@ -939,11 +939,11 @@ proc UISetChannelVolume {win chan vol} { proc EchoPlaySound {soundspec} { # Temporary workaround to tell Python Sugar app to play sound. - global Sound + global Sound ResourceDir if {$Sound} { #echo PlaySound [lindex $soundspec 0] signal ignore SIGCHLD - exec res/sounds/player res/sounds/[string tolower [lindex $soundspec 0]].wav & + exec "${ResourceDir}/sounds/player" "${ResourceDir}/sounds/[string tolower [lindex $soundspec 0]].wav" & } }