Hello,
I have a problem with tablelist + panedwindow.
I'm using tablelist like a tree directory.
When I move my tablelist with the draggable sash areas , my images disappear.
My question : It's me who do not use decently panedwindow ? There is a function in the tablelist help, which I forgot or not seen .
My code below + video
https://expirebox.com/download/28e0f71a0f0da75df255bdcfae7a2f11.html
package require tablelist
image create photo gohome_16 -data {
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QAAAAAAAD5Q7t/AAAACXBI
WXMAAA3XAAAN1wFCKJt4AAAAB3RJTUUH1QoOFCUTUyrSOwAAAetJREFUOMuVk79rU1EUgL97+95L
00DyJKBVh2RRexNoVawRXByMQhOnh9RKJ5GioxhcOrRuwan+GOrUJYv1x2AT8A/wPxB5W1zEWtvw
YlGJIXnXIfbZl1AhZ7pczvfdcw7nwgHhKVWsgK6A9pR6yDCxB3tKaU+pPUlxaHixOKPLN2/8VyL6
4ZrrbhSUYv3cWbYnTnHk8DgnvCZTa2vUXJeCUtcOuW51QLAfflOcYff4MZTKMhaN0mq1GNv8SrZc
HpCIfrh6+xadZJJ0Kk0qlQJAa2i32+zW65wslUISsR9+96BExzDJ5S5g23bQmtYaAN/3+bm1RXJu
LpCICuiCUrx/VMZrNjk/nSMejyOECAl83w/OhhCM5vPUXBcDuAOsTp0+w/3SPTaqbwPwycozVh4/
RYsRdKeFMEbR3d8sLy3R7qXMynl4vjCZIRFPAKDUBJmMIpvN9F4UkpH0ld7EU3mQFlprFiYzzMO6
7O/TsixM08QwjOD+S+MHAB/qO3S7fpALMCCQUiKlxJKfAehg8fFTA4Bv3i86IhJaJGNgs/4Oz+co
AJcuTnM1GkPqcS5Lk+1NQhUY/RX8m37vpe/eDqLZOHD1A0EkEsG2bRKJBAKJEBCLxXAcZwCyLCv8
F67POq8Ah+Fi9eWL13f/AFb41aOFu4AaAAAAAElFTkSuQmCC
}
image create photo folder_ver_16 -data {
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz
AAAN1wAADdcBQiibeAAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAAIdSURB
VDiNjZO/S5dRFMY/532vb0mgawTh0lLQGKhLP6QlDXJq0KXFwaDmhv6ChhA3h4oG+w8EI4UITSto
aIoQIbVFQi3N7/fec89p+OqblmDPcO65l3uf5znn3itDQ0McRMrNhoiU7i4iAkBRFCIitLW1ff61
3bhcVdX6/v7Q1dX11N1v7i8sLX858ezJc4qiQETYJxERJl9Mnp+envqAcxH4ARDMbHBwcLDTzMg5
Mzb+mJWVFZrNJgDuTs4ZM2N4aJitzc2zC+8X5uNuulRV1W5IKbmqsr6+jqruW2bx3eKh0nq6uwEY
Hb0r5US4MDf/ZgxjZI8goaqYGSJCVVX0XevD3WsXZVnWIr09vfJ2Ye62GSNBVU01k3OuHYQQmJl9
Rc65dnD1yjVijK2JgJkVUBBSSh5jrAn2uk3/jYFa/e+x/WQ7OAYQYoymqkzMOw0N0HmLgYcvcWuJ
+YHYIthL2vs7yqJYDapKSomdCI/uX+coSB3+IKrxYHzmTEgpWUoJcEqBj8tbR5IcRFkK506fAnEP
KSVTTQhQiFCF4liCbI4bCGJ715gRCcRklHKw4sPQ7DSToWY0UwbwoKoWY0Qk8G2jwc+GotlJ2TFz
zJ1sTtJWDhBKYfX7LohYEBEzMwTY2I5sN5Sk/3oIpdSdLArY3ImIuwd3Z22j9WBef1qtP89x2NnZ
BZGvIRfts1NLHXfAWV5a+6/DtLxsZOTeb/gCSx11MtnDAAAAAElFTkSuQmCC
}
image create photo document_16 -data {
R0lGODlhEAAQAIUAAPwCBHyu/Hyq/Cxq3Pz6/PT2/Ozy/Nzm/NTi/LTO/LzS
/CRm3Pz+/Jy+/JS6/JS2/Iyu/Hym/ISy/PT6/Oz2/OTq/MTW/Iyy/ISq/Iy2
/Gyi/CRq3OTu/Mze/MTa/ISu/HSi/FyK/FSG/NTm/KzK/KTG/JS+/GyW/Gya
/GSS/Nzq/KzG/KTC/Mzi/HSe/Ozu/Mza/AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAal
QAAgICAaBQOhUiggFAwHREIhWCyFAUbD8YBEFAFJcilgTCiVg0WxaFuVAcLW
ccEoEhnNhkwwTDgVHR4OAhpvWHIODhkfICEiAYcAAhMGFRUjJCUOJhljWAYN
DxcRJygnKQ2SApYqHmsJKywln0MFDh8YEREapiWrli0eHgkWJJq1AQYQGLoR
Li4oJKsvCIIeCgrHtEsBFQgwMLsJsSuSbujoY35BACH+aENyZWF0ZWQgYnkg
Qk1QVG9HSUYgUHJvIHZlcnNpb24gMi41DQqpIERldmVsQ29yIDE5OTcsMTk5
OC4gQWxsIHJpZ2h0cyByZXNlcnZlZC4NCmh0dHA6Ly93d3cuZGV2ZWxjb3Iu
Y29tADs=
}
wm title . "Panedwindow + tablelist..."
ttk::style configure TPanedwindow -background blue
ttk::style configure Sash -sashthickness 10
set p [ttk::panedwindow .p -orient horizontal]
set f [frame .f -background gray -height 150 -width 150]
set tf .tf
ttk::frame $tf
set tree $tf.tree
set vsb $tf.vsb
set hsb $tf.hsb
tablelist::tablelist $tree -columns {0 "Projet -"} -stretch all \
-xscrollcommand [list $hsb set] -yscrollcommand [list $vsb set] -labelbd 1 \
-labelrelief sunken -stripebg #f0f0f0
if {[$tree cget -selectborderwidth] == 0} {
$tree configure -spacing 1
}
$tree insertchild root end "Directory"
$tree cellconfigure 0,0 -image gohome_16 -font {TkDefaultFont 10 bold}
$tree insertchild 0 end "C:/Users/Nicolas"
$tree cellconfigure 1,0 -image document_16
$tree rowconfigure 1 -name dirc
$tree insertchild root end "Fichier"
$tree cellconfigure 2,0 -image folder_ver_16 -font {TkDefaultFont 10 bold}
$tree insertchild 2 end "C:/Users/Nicolas/file.txt"
$tree cellconfigure 3,0 -image document_16
ttk::scrollbar $vsb -orient vertical -command [list $tree yview]
ttk::scrollbar $hsb -orient horizontal -command [list $tree xview]
grid $tree -row 0 -rowspan 2 -column 0 -sticky news
grid $vsb -row 0 -rowspan 2 -column 1 -sticky ns
grid $hsb -row 2 -column 0 -sticky ew
grid rowconfigure $tf 1 -weight 1
grid columnconfigure $tf 0 -weight 1
$p add $f -weight 1
$p add $tf -weight 1
grid $p -row 0 -column 0 -sticky news
grid rowconfigure . 0 -weight 1
grid columnconfigure . 0 -weight 1