# HG changeset patch
# User TK Soh <teekaysoh@yahoo.com>
# Date 1130190894 25200
# Node ID c91966c3bbf55e89e0a33e6ada734b030ae35db1
# Parent  45bd7925dceb911b4678c0e611c76891381fc2f4
hgk: add horizontal scrollbar to patch window



diff -r 45bd7925dceb -r c91966c3bbf5 contrib/hgk
--- a/contrib/hgk	Mon Oct 24 14:54:48 2005 -0700
+++ b/contrib/hgk	Mon Oct 24 14:54:54 2005 -0700
@@ -403,9 +403,12 @@
     set ctext .ctop.cdet.left.ctext
     text $ctext -bg white -state disabled -font $textfont \
 	-width $geometry(ctextw) -height $geometry(ctexth) \
-	-yscrollcommand ".ctop.cdet.left.sb set" -wrap none
+	-yscrollcommand ".ctop.cdet.left.sb set" \
+	-xscrollcommand ".ctop.cdet.left.hb set" -wrap none
     scrollbar .ctop.cdet.left.sb -command "$ctext yview"
+    scrollbar .ctop.cdet.left.hb -orient horizontal -command "$ctext xview"
     pack .ctop.cdet.left.sb -side right -fill y
+    pack .ctop.cdet.left.hb -side bottom -fill x
     pack $ctext -side left -fill both -expand 1
     .ctop.cdet add .ctop.cdet.left