* tkcon.tcl (dir): use %9ld instead of %9d to support large files

diff --git a/ChangeLog b/ChangeLog
index 16b3935df6de3d33f2ed477a5fcf49cfd54d6b23..444f6fa21ba5571c87868a163dbc7a3dee146288 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-10-06  Jeff Hobbs  <jeffh@ActiveState.com>
+
+       * tkcon.tcl (dir): use %9ld instead of %9d to support large files
+
 2003-04-08  Jeff Hobbs  <jeffh@ActiveState.com>
 
        * tkcon.tcl (::tkcon::InitUI): WinCE code to resize the window to

diff --git a/tkcon.tcl b/tkcon.tcl
index d3e82c45e1f40ef09afff3f8fb664af7a48aa5f9..fc0c50ae9f70cbc4a15a93fd7b79407c502c882c 100755 (executable)
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -3833,7 +3833,7 @@ proc dir {args} {
        }
     }
     set sep [string trim [file join . .] .]
-    if {![llength $args]} { set args . }
+    if {![llength $args]} { set args [list [pwd]] }
     if {$::tcl_version >= 8.3} {
        # Newer glob args allow safer dir processing.  The user may still
        # want glob chars, but really only for file matching.
@@ -3869,7 +3869,7 @@ proc dir {args} {
     }
     if {$s(long)} {
        set old [clock scan {1 year ago}]
-       set fmt "%s%9d %s %s\n"
+       set fmt "%s%9ld %s %s\n"
        foreach o $out {
            set d [lindex $o 0]
            append res $d:\n