685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
|
} elseif {$df2 eq ""} {
set showleft $name/
}
set values [list $type unknown \
$df1 $showleft "" "" \
$df2 $showright "" ""]
} else {
set values [list $type unknown \
$df1 [file tail $df1] $size1 $time1 \
$df2 [file tail $df2] $size2 $time2]
}
if {$type ne "directory"} {
set name ""
}
set id [$tree insert $node end -text $name \
-values $values]
if {$type eq "directory"} {
## Make it so that this node is openable
$tree insert $id 0 -text dummy ;# a dummy
$tree item $id -text $name/
|
>
>
|
|
<
<
<
|
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
|
} elseif {$df2 eq ""} {
set showleft $name/
}
set values [list $type unknown \
$df1 $showleft "" "" \
$df2 $showright "" ""]
} else {
set name1 [file tail $df1]
set name2 [file tail $df2]
set values [list $type unknown \
$df1 $name1 $size1 $time1 \
$df2 $name2 $size2 $time2]
}
set id [$tree insert $node end -text $name \
-values $values]
if {$type eq "directory"} {
## Make it so that this node is openable
$tree insert $id 0 -text dummy ;# a dummy
$tree item $id -text $name/
|