From 81fc9f22edc89e043d7c6028080081241d6612d4 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Mon, 6 Oct 2003 19:12:43 +0000 Subject: [PATCH] * tkcon.tcl (dir): use %9ld instead of %9d to support large files --- ChangeLog | 4 ++++ tkcon.tcl | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 16b3935..444f6fa 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-10-06 Jeff Hobbs + + * tkcon.tcl (dir): use %9ld instead of %9d to support large files + 2003-04-08 Jeff Hobbs * tkcon.tcl (::tkcon::InitUI): WinCE code to resize the window to diff --git a/tkcon.tcl b/tkcon.tcl index d3e82c4..fc0c50a 100755 --- 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 -- 2.23.0