Changeset 641 for trunk

Timestamp:

Dec 4, 2009 5:09:34 PM (13 years ago)

Author:

toby

Message:

# on 2002/09/05 18:16:00, toby did:
why did I do this? Deal with missing description?

File:

• trunk/addcmds.tcl (modified) (1 diff, 3 props)

trunk/addcmds.tcl

@@ -1593 +1593 @@
         set filelist [glob -nocomplain [file join $expgui(scriptdir) import_*.tcl]]
         foreach file $filelist {
+            set description ""
             source $file
-            lappend expgui(importFormatList) $description
-            if {$tcl_platform(platform) == "unix"} {
-                set extensions "[string tolower $extensions] [string toupper $extensions]"
-            }
-            set expgui(extensions_$description) $extensions
-            set expgui(proc_$description) $procname
+            if {$description != ""} {
+                lappend expgui(importFormatList) $description
+                if {$tcl_platform(platform) == "unix"} {
+                    set extensions "[string tolower $extensions] [string toupper $extensions]"
+                }
+                set expgui(extensions_$description) $extensions
+                set expgui(proc_$description) $procname
+            }
         }
     }