From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Mon, 6 Oct 2003 19:12:43 +0000 (+0000)
Subject: 	* tkcon.tcl (dir): use %9ld instead of %9d to support large files
X-Git-Tag: tkcon-2-4~17
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=81fc9f22edc89e043d7c6028080081241d6612d4;p=tkcon

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

diff --git a/ChangeLog b/ChangeLog
index 16b3935..444f6fa 100644
--- 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 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