changeset 1430:c91966c3bbf5

hgk: add horizontal scrollbar to patch window
author TK Soh <teekaysoh@yahoo.com>
date Mon, 24 Oct 2005 14:54:54 -0700
parents 45bd7925dceb
children 16a5d349963c
files contrib/hgk
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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