From 007beaec37224ef2be61509c5a4f8efa866c74dd Mon Sep 17 00:00:00 2001
From: Michael Gernoth <michael@gernoth.net>
Date: Mon, 11 Feb 2008 21:12:35 +0100
Subject: [PATCH 1/1] reenable ui sounds played by UIMakeSound

---
 res/micropolis.tcl | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index 01f8749..1d56b75 100644
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -955,10 +955,7 @@ proc UIStartSoundOn {win chan sound {opts ""}} {
 
 
 proc UIMakeSound {chan sound {opts ""}} {
-  # Send message to Python to play sound.
-  EchoPlaySound $sound
-
-  #UIDoSound "sound play $sound -replay -channel $chan $opts"
+  playsound $chan $sound $opts
 }
 
 
-- 
2.39.5