From 74ed48a08be0f342115d20e0643c0b5f21ac460d Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Fri, 16 May 2003 12:55:39 +0000
Subject: [PATCH] tk vfs fix
---
library/tkvfs.tcl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
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]]
}
--
2.23.0