--- 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