search sounds and player in $ResourceDir
authorMichael Gernoth <michael@gernoth.net>
Sun, 3 Feb 2008 20:59:05 +0000 (21:59 +0100)
committerMichael Gernoth <michael@gernoth.net>
Sun, 3 Feb 2008 20:59:05 +0000 (21:59 +0100)
res/micropolis.tcl

index 142fa24..6c6c03a 100644 (file)
@@ -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" &
   }
 }
 
Impressum, Datenschutz