handle spaces in filenames

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index 773ceb3024ee1b14a95430295abea95f6b21f5d2..883ac456817816bacb5f39fe6b7d199450c26625 100644 (file)
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -2044,13 +2044,13 @@ proc DoFileDialog {win Message Path Pattern FileName ActionOk ActionCancel} {
       wm withdraw $win"
   bind $win.files.files "<Double-Button-1>" "\
     FileSelectDouble $win %W %y $Pattern \"
       wm withdraw $win"
   bind $win.files.files "<Double-Button-1>" "\
     FileSelectDouble $win %W %y $Pattern \"

-       $ActionOk \[$win.file.file get\] \[$win.path.path get\]\""
+       $ActionOk {\[$win.file.file get\]} {\[$win.path.path get\]}\""

   bind $win.path.path <Return> "
     ShowFileDialog $win \[$win.path.path get\] $Pattern
     $win.file.file cursor 0
     focus $win.file.file"
   bind $win.file.file <Return> "\
   bind $win.path.path <Return> "
     ShowFileDialog $win \[$win.path.path get\] $Pattern
     $win.file.file cursor 0
     focus $win.file.file"
   bind $win.file.file <Return> "\

-    $ActionOk \[$win.file.file get\] \[$win.path.path get]
+    $ActionOk \[$win.file.file get\] \[$win.path.path get\]

     wm withdraw $win"
 }
 
     wm withdraw $win"
 }
 


@@ -2297,7 +2297,7 @@ proc ShowFileDialog {win Path Pattern} {
     if {[string match $Result "* not found"]} {
       set ElementList {}
     }
     if {[string match $Result "* not found"]} {
       set ElementList {}
     }

-    set ElementList [lsort $Result]
+    set ElementList [lsort [split $Result "\n"]]

 
     # insert ..
     if {[string compare $Path "/"]} {
 
     # insert ..
     if {[string compare $Path "/"]} {


@@ -5132,7 +5132,7 @@ proc UIDoLoadCity {name path} {
   if {![string match *.cty $name]} {
     set name $name.cty
   }
   if {![string match *.cty $name]} {
     set name $name.cty
   }

-  MakeHistory "DoLoadCity $path/$name"
+  MakeHistory "DoLoadCity {$path/$name}"

 }
 
 
 }