tk vfs fix

diff --git a/library/tkvfs.tcl b/library/tkvfs.tcl
index 9c9d4c254e354fdbbe6f78dcd6bbe2de37f186a8..147877306d0989032b3e5f59f864ef4f894b9c07 100644 (file)
--- 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]]
     }