From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Tue, 31 Oct 2000 00:46:05 +0000 (+0000)
Subject: 	* tkcon.tcl (dir): fixed bug where permissions wouldn't print
X-Git-Tag: tkcon-2-1~5
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=5cc7114b3e4fd9459b9a1c6dad4249bfd1c3f589;p=tkcon

	* tkcon.tcl (dir): fixed bug where permissions wouldn't print
	correctly if user had no permissions. (kuchler)
---

diff --git a/ChangeLog b/ChangeLog
index c299767..072864b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-30  Jeff Hobbs  <hobbs@ajubasolutions.com>
+
+	* tkcon.tcl (dir): fixed bug where permissions wouldn't print
+	correctly if user had no permissions. (kuchler)
+
 2000-10-18  Jeff Hobbs  <hobbs@ajubasolutions.com>
 
 	* tkcon.tcl (::tkcon::NamespacesList): corrected to not use window
diff --git a/tkcon.tcl b/tkcon.tcl
index 2b3e67e..6c01bac 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -3566,7 +3566,7 @@ proc dir {args} {
 		} else {
 		    set mode [string index $st(type) 0]
 		}
-		foreach j [split [format %o [expr {$st(mode)&0777}]] {}] {
+		foreach j [split [format %03o [expr {$st(mode)&0777}]] {}] {
 		    append mode $s($j)
 		}
 		if {$st(mtime)>$old} {