fix paned window sp0 and sp1 sizes save/load in file_chooser
This commit is contained in:
parent
50f77010fb
commit
add555b001
|
|
@ -5615,9 +5615,9 @@ proc file_chooser {} {
|
||||||
} else {
|
} else {
|
||||||
# wm geometry .ins 800x300
|
# wm geometry .ins 800x300
|
||||||
}
|
}
|
||||||
update
|
|
||||||
.ins.center paneconfigure .ins.center.leftdir -minsize [winfo reqwidth .ins.center.leftdir]
|
.ins.center paneconfigure .ins.center.leftdir -minsize [winfo reqwidth .ins.center.leftdir]
|
||||||
.ins.center paneconfigure .ins.center.left -minsize [winfo reqwidth .ins.center.left]
|
.ins.center paneconfigure .ins.center.left -minsize [winfo reqwidth .ins.center.left]
|
||||||
|
update
|
||||||
if { [info exists file_chooser(sp0)]} {
|
if { [info exists file_chooser(sp0)]} {
|
||||||
.ins.center sash place 0 $file_chooser(sp0) 1
|
.ins.center sash place 0 $file_chooser(sp0) 1
|
||||||
}
|
}
|
||||||
|
|
@ -5625,6 +5625,8 @@ proc file_chooser {} {
|
||||||
.ins.center sash place 1 $file_chooser(sp1) 1
|
.ins.center sash place 1 $file_chooser(sp1) 1
|
||||||
}
|
}
|
||||||
bind .ins <Configure> {
|
bind .ins <Configure> {
|
||||||
|
# puts "sash0: [.ins.center sash coord 0]"
|
||||||
|
# puts "sash1: [.ins.center sash coord 1]"
|
||||||
set file_chooser(geometry) [wm geometry .ins]
|
set file_chooser(geometry) [wm geometry .ins]
|
||||||
set file_chooser(sp0) [lindex [.ins.center sash coord 0] 0]
|
set file_chooser(sp0) [lindex [.ins.center sash coord 0] 0]
|
||||||
set file_chooser(sp1) [lindex [.ins.center sash coord 1] 0]
|
set file_chooser(sp1) [lindex [.ins.center sash coord 1] 0]
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue