995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
|
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
|
-
+
-
+
|
$self SetNodeStatus $node change
}
}
# List files under a directory node
# Returns status for the new node
method ListFiles {df1 df2 node} {
if {[catch {file stat $df1 stat1}]} {
if {[catch {file lstat $df1 stat1}]} {
set size1 ""
set time1 ""
set type1 ""
} else {
set size1 $stat1(size)
set time1 [FormatDate $stat1(mtime)]
set type1 $stat1(type)
}
if {[catch {file stat $df2 stat2}]} {
if {[catch {file lstat $df2 stat2}]} {
set size2 ""
set time2 ""
set type2 ""
} else {
set size2 $stat2(size)
set time2 [FormatDate $stat2(mtime)]
set type2 $stat2(type)
|