From: Michael Gernoth <michael@gernoth.net>
Date: Sat, 26 Jan 2008 16:05:14 +0000 (+0100)
Subject: handle spaces in path-names, too
X-Git-Url: https://git.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"]} {