hgk: add horizontal scrollbar to patch window
authorTK Soh <teekaysoh@yahoo.com>
Mon, 24 Oct 2005 14:54:54 -0700
changeset 1430 c91966c3bbf5
parent 1429 45bd7925dceb
child 1431 16a5d349963c
hgk: add horizontal scrollbar to patch window
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