Changeset 1969

Timestamp:

Dec 1, 2010 3:44:20 PM (13 years ago)

Author:

gah

Message:

 

Location:

branches/blt4/gui/scripts

Files:

• filechoiceentry.tcl (modified) (1 diff)
• filelistentry.tcl (modified) (1 diff)

branches/blt4/gui/scripts/filechoiceentry.tcl

@@ -210 +210 @@
         }
         # Replace the template with the substituted value.
-        set files [glob -nocomplain -type { r f } $glob]
-        set allfiles [concat $allfiles $files]
+        if { [catch {
+            glob -nocomplain -type { r f } $glob
+        } files] == 0 } {
+            set allfiles [concat $allfiles $files]
+        }
     }
     set first ""

branches/blt4/gui/scripts/filelistentry.tcl

@@ -302 +302 @@
         }
         # Replace the template with the substituted value.
-        set files [glob -nocomplain -type { r f } $glob]
-        set allfiles [concat $allfiles $files]
+        if { [catch {
+            glob -nocomplain -type { r f } $glob
+        } files] == 0 } {
+            set allfiles [concat $allfiles $files]
+        }
     }
     set first ""