790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
|
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
|
+
-
+
-
+
|
$self SetNodeStatus $id unknown
$self AddNodeToIdle $id
}
return [$tree rowattrib $id status]
}
method addCmdCol {tbl row col w} {
set key [$tree getfullkeys $row]
set status [$tree rowattrib $row status]
set type [$tree rowattrib $row type]
set lf [$tree rowattrib $row leftfull]
set rf [$tree rowattrib $row rightfull]
set bg [$tbl cget -background]
ttk::style configure Apa.TFrame -background $bg
ttk::style configure Apa.Toolbutton -background $bg
ttk::frame $w -style Apa.TFrame
ttk::button $w.bl -image $::img(left) -style Apa.Toolbutton \
-command [mymethod CopyFile $row right]
-command [mymethod CopyFile $key right]
ttk::button $w.br -image $::img(right) -style Apa.Toolbutton \
-command [mymethod CopyFile $row left]
-command [mymethod CopyFile $key left]
pack $w.bl $w.br -side left -fill y
if {$lf eq ""} {
$w.br configure -state disabled
}
if {$rf eq ""} {
$w.bl configure -state disabled
}
|