@@ -2955,9 +2955,9 @@ proc savestuff {w} {
29552955proc resizeclistpanes {win w} {
29562956 global oldwidth oldsash use_ttk
29572957 if {[info exists oldwidth($win )]} {
2958- if {[info exists oldsash($win )]} {
2959- set s0 [lindex $oldsash($win) 0]
2960- set s1 [lindex $oldsash($win) 1]
2958+ if {[info exists oldsash($win )]} {
2959+ set s0 [lindex $oldsash($win) 0]
2960+ set s1 [lindex $oldsash($win) 1]
29612961 } elseif {$use_ttk } {
29622962 set s0 [$win sashpos 0]
29632963 set s1 [$win sashpos 1]
@@ -2991,17 +2991,19 @@ proc resizeclistpanes {win w} {
29912991 } else {
29922992 $win sash place 0 $sash0 [lindex $s0 1]
29932993 $win sash place 1 $sash1 [lindex $s1 1]
2994+ set sash0 [list $sash0 [lindex $s0 1]]
2995+ set sash1 [list $sash1 [lindex $s1 1]]
29942996 }
2995- set oldsash($win ) [list $sash0 $sash1 ]
2997+ set oldsash($win ) [list $sash0 $sash1 ]
29962998 }
29972999 set oldwidth($win ) $w
29983000}
29993001
30003002proc resizecdetpanes {win w} {
30013003 global oldwidth oldsash use_ttk
30023004 if {[info exists oldwidth($win )]} {
3003- if {[info exists oldsash($win )]} {
3004- set s0 $oldsash($win)
3005+ if {[info exists oldsash($win )]} {
3006+ set s0 $oldsash($win)
30053007 } elseif {$use_ttk } {
30063008 set s0 [$win sashpos 0]
30073009 } else {
@@ -3023,8 +3025,9 @@ proc resizecdetpanes {win w} {
30233025 $win sashpos 0 $sash0
30243026 } else {
30253027 $win sash place 0 $sash0 [lindex $s0 1]
3028+ set sash0 [list $sash0 [lindex $s0 1]]
30263029 }
3027- set oldsash($win ) $sash0
3030+ set oldsash($win ) $sash0
30283031 }
30293032 set oldwidth($win ) $w
30303033}
0 commit comments