From 146463c17e9cb49c591aad99a9c2eb857fc064b3 Mon Sep 17 00:00:00 2001 From: Michael Gernoth Date: Sat, 26 Jan 2008 17:05:14 +0100 Subject: [PATCH] handle spaces in path-names, too --- res/micropolis.tcl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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"]} { -- 2.39.2