# the font in res (because it's already in the system fonts). These lines
# are for other systems that lack the font.
set FontPath "[pwd]/res/dejavu-lgc"
-system "xset -fp $FontPath >&/dev/null"
-system "xset +fp $FontPath >&/dev/null"
+system "xset -fp $FontPath >/dev/null 2>&1"
+system "xset +fp $FontPath >/dev/null 2>&1"
########################################################################
# 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 &
}
}
proc WithdrawSplashOf {head} {
- set win WindowLink $head.splash]
- wm withdraw $win
+ set win [WindowLink $head.splash]
+ if {$win != {}} {
+ wm withdraw $win
+ }
}
proc WithdrawScenarioOf {head} {
- set win WindowLink $head.scenario]
- wm withdraw $win
+ set win [WindowLink $head.scenario]
+ if {$win != {}} {
+ wm withdraw $win
+ }
}