Equipped file browser with a second vertical scrollbar

This commit is contained in:
Thomas Schmitt 2013-01-03 18:25:56 +00:00
parent 4b29eeb727
commit 13755a11c7
2 changed files with 14 additions and 5 deletions

View File

@ -2514,6 +2514,14 @@ proc browse_iso_refresh {} {
}
# Multiplexer for updating both vertical scrollbars
#
proc browse_tree_yscrollcommand {w arg1 arg2} {
$w.treescroll_y_l set $arg1 $arg2
$w.treescroll_y_r set $arg1 $arg2
}
# Open a file browser window for hard disk filesystem or ISO model
#
proc browse_tree {adr_var which_fs} {
@ -2569,7 +2577,7 @@ proc browse_tree {adr_var which_fs} {
-closecmd "browse_tree_close_dir $w.tree" \
-selectcommand "browse_tree_select $adr_var" \
-selectfill 1 \
-yscrollcommand "$w.treescroll_y set" \
-yscrollcommand "browse_tree_yscrollcommand $w" \
-xscrollcommand "$w.treescroll_x set"
# ??? why doesn't <Return> work ?
@ -2580,12 +2588,13 @@ proc browse_tree {adr_var which_fs} {
$w.tree bindText <Button-3> {browse_tree_help "Browse tree" grey}
scrollbar $w.treescroll_y -command "$w.tree yview"
scrollbar $w.treescroll_y_l -command "$w.tree yview"
scrollbar $w.treescroll_y_r -command "$w.tree yview"
scrollbar $w.treescroll_x -orient horizontal -command "$w.tree xview "
pack $w.tree -in $w.tree_frame_x -side top -expand 1 -fill both
pack $w.treescroll_x -in $w.tree_frame_x -side top -fill x
pack $w.treescroll_y $w.tree_frame_x -in $w.tree_frame \
-side left -expand 1 -fill both
pack $w.treescroll_y_l $w.tree_frame_x $w.treescroll_y_r \
-in $w.tree_frame -side left -expand 1 -fill both
frame $w.button_line
button $w.accept -text "Accept" -width $tree_window_button_width \

View File

@ -1 +1 @@
#define Xorriso_timestamP "2013.01.03.160118"
#define Xorriso_timestamP "2013.01.03.182504"