From: Vince Darley <vincentdarley@sourceforge.net>
Date: Fri, 16 May 2003 12:55:39 +0000 (+0000)
Subject: tk vfs fix
X-Git-Tag: vfs-1-3~17
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=74ed48a08be0f342115d20e0643c0b5f21ac460d;p=tclvfs

tk vfs fix
---

diff --git a/library/tkvfs.tcl b/library/tkvfs.tcl
index 9c9d4c2..1478773 100644
--- a/library/tkvfs.tcl
+++ b/library/tkvfs.tcl
@@ -44,7 +44,7 @@ proc vfs::tk::stat {widg name} {
 	return -code error "could not read \"$name\": no such file or directory"
     }
     set len [llength [winfo children ${widg}.${name}]]
-    if {$len} {
+    if {$len || ([winfo class $widg.$name] == "Frame")} {
 	return [list type directory size $len mode 0777 \
 	  ino -1 depth 0 name $name atime 0 ctime 0 mtime 0 dev -1 \
 	  uid -1 gid -1 nlink 1]
@@ -152,7 +152,7 @@ proc vfs::tk::matchindirectory {widg path actualpath pattern type} {
     }
     
     set realres [list]
-    set l [string length $wpp]
+    set l [expr {1 + [string length $wp]}]
     foreach r $res {
 	lappend realres [file join ${actualpath} [string range $r $l end]]
     }