fix height of windows in column 1

[micropolis] / res / micropolis.tcl

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index b1379c1212f74aaf2675d3530011a3b703cfd8e7..dac3517d84f444af64c499f9cbbc7eeba4d91f0e 100644 (file)
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -940,7 +940,9 @@ proc EchoPlaySound {soundspec} {
   # Temporary workaround to tell Python Sugar app to play sound.
   global Sound
   if {$Sound} {
-    echo PlaySound [lindex $soundspec 0]
+    #echo PlaySound [lindex $soundspec 0]
+    signal ignore SIGCHLD
+    exec res/sounds/player res/sounds/[string tolower [lindex $soundspec 0]].wav &
   }
 }