handle spaces in path-names, too

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index 883ac456817816bacb5f39fe6b7d199450c26625..e84b3dc0f48b07cf3b030539af37e5c869269725 100644 (file)
--- 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"
 # 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 {
 
 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 {[$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"]} {
       set ElementList {}
     }
     if {[string match $Result "* not found"]} {