From: Michael Gernoth Date: Sat, 26 Jan 2008 16:05:14 +0000 (+0100) Subject: handle spaces in path-names, too X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/146463c17e9cb49c591aad99a9c2eb857fc064b3 handle spaces in path-names, too --- diff --git a/res/micropolis.tcl b/res/micropolis.tcl index 883ac45..e84b3dc 100644 --- a/res/micropolis.tcl +++ b/res/micropolis.tcl @@ -413,8 +413,8 @@ sim ResetDynamic # 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 2>&1" -system "xset +fp $FontPath >/dev/null 2>&1" +system "xset -fp \"$FontPath\" >/dev/null 2>&1" +system "xset +fp \"$FontPath\" >/dev/null 2>&1" ######################################################################## @@ -2286,12 +2286,12 @@ proc NameComplete {win Type} { proc ShowFileDialog {win Path Pattern} { busy $win { - set Path [lindex [split $Path] 0] + #set Path [lindex [split $Path] 0] if {[$win.files.files size] > 0} { $win.files.files delete 0 end } # read directory - if {[catch "exec ls -F $Path" Result]} { + if {[catch "exec ls -F \"$Path\"" Result]} { set ElementList {} } if {[string match $Result "* not found"]} {