* tkcon.tcl (dir): fixed bug where permissions wouldn't print

	correctly if user had no permissions. (kuchler)

diff --git a/ChangeLog b/ChangeLog
index c299767144dd17eebae2c4c8bca907b96803cc3a..072864b6d4b2e63ca40ea22c827b6f94e25d8944 100644 (file)
--- 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 2b3e67e27636f59429e1e1aa95460e6a3f8ffd8c..6c01bacfe72f3b773b89cdb1317a3baa7ac12367 100755 (executable)
--- 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} {