From 6778f563c6a062189099be77a11a86f0348c1ce7 Mon Sep 17 00:00:00 2001
From: Thomas Schmitt <scdbackup@gmx.net>
Date: Thu, 3 Jan 2013 18:25:56 +0000
Subject: [PATCH] Equipped file browser with a second vertical scrollbar

---
 frontend/xorriso-tcltk      | 17 +++++++++++++----
 xorriso/xorriso_timestamp.h |  2 +-
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/frontend/xorriso-tcltk b/frontend/xorriso-tcltk
index c9b5c131..49e4f32c 100755
--- a/frontend/xorriso-tcltk
+++ b/frontend/xorriso-tcltk
@@ -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 \
diff --git a/xorriso/xorriso_timestamp.h b/xorriso/xorriso_timestamp.h
index 130c4935..b361ec51 100644
--- a/xorriso/xorriso_timestamp.h
+++ b/xorriso/xorriso_timestamp.h
@@ -1 +1 @@
-#define Xorriso_timestamP "2013.01.03.160118"
+#define Xorriso_timestamP "2013.01.03.182504"