Changeset 1163 for branches/sandbox


Ignore:
Timestamp:
Aug 15, 2011 1:36:03 PM (9 years ago)
Author:
toby
Message:

only use shortnames when ~ required

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/addcmds.tcl

    r1157 r1163  
    937937    puts $fp "H"
    938938    if {$tcl_platform(platform) == "windows"} {
    939         puts $fp [file attributes $rawfile -shortname]
    940         puts $fp [file attributes $instfile -shortname]
     939        if {[string length $rawfile] > 50} {
     940            puts $fp [file attributes $rawfile -shortname]
     941        } else {
     942            puts $fp $rawfile
     943        }
     944        if {[string length $instfile] > 50} {           
     945            puts $fp [file attributes $instfile -shortname]
     946        } else {
     947            puts $fp $instfile
     948        }
    941949    } else {
    942950        puts $fp $rawfile
Note: See TracChangeset for help on using the changeset viewer.