Equipped file browser with a second vertical scrollbar
This commit is contained in:
parent
4b29eeb727
commit
13755a11c7
@ -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 \
|
||||
|
@ -1 +1 @@
|
||||
#define Xorriso_timestamP "2013.01.03.160118"
|
||||
#define Xorriso_timestamP "2013.01.03.182504"
|
||||
|
Loading…
Reference in New Issue
Block a user