Changeset 641


Ignore:
Timestamp:
Dec 4, 2009 5:09:34 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/addcmds.tcl

    • Property rcs:date changed from 2002/01/23 20:53:36 to 2002/09/05 18:16:00
    • Property rcs:lines changed from +24 -11 to +9 -6
    • Property rcs:rev changed from 1.28 to 1.29
    r553 r641  
    15931593        set filelist [glob -nocomplain [file join $expgui(scriptdir) import_*.tcl]]
    15941594        foreach file $filelist {
     1595            set description ""
    15951596            source $file
    1596             lappend expgui(importFormatList) $description
    1597             if {$tcl_platform(platform) == "unix"} {
    1598                 set extensions "[string tolower $extensions] [string toupper $extensions]"
    1599             }
    1600             set expgui(extensions_$description) $extensions
    1601             set expgui(proc_$description) $procname
     1597            if {$description != ""} {
     1598                lappend expgui(importFormatList) $description
     1599                if {$tcl_platform(platform) == "unix"} {
     1600                    set extensions "[string tolower $extensions] [string toupper $extensions]"
     1601                }
     1602                set expgui(extensions_$description) $extensions
     1603                set expgui(proc_$description) $procname
     1604            }
    16021605        }
    16031606    }
Note: See TracChangeset for help on using the changeset viewer.