Mercurial > hg

comparison contrib/hgk @ 1430:c91966c3bbf5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 7e0dd64b0718
comparison
equal deleted inserted replaced
1429:45bd7925dceb 1430:c91966c3bbf5
401 .ctop add .ctop.cdet 401 .ctop add .ctop.cdet
402 frame .ctop.cdet.left 402 frame .ctop.cdet.left
403 set ctext .ctop.cdet.left.ctext 403 set ctext .ctop.cdet.left.ctext
404 text $ctext -bg white -state disabled -font $textfont \ 404 text $ctext -bg white -state disabled -font $textfont \
405 -width $geometry(ctextw) -height $geometry(ctexth) \ 405 -width $geometry(ctextw) -height $geometry(ctexth) \
406 -yscrollcommand ".ctop.cdet.left.sb set" -wrap none 406 -yscrollcommand ".ctop.cdet.left.sb set" \
407 -xscrollcommand ".ctop.cdet.left.hb set" -wrap none
407 scrollbar .ctop.cdet.left.sb -command "$ctext yview" 408 scrollbar .ctop.cdet.left.sb -command "$ctext yview"
409 scrollbar .ctop.cdet.left.hb -orient horizontal -command "$ctext xview"
408 pack .ctop.cdet.left.sb -side right -fill y 410 pack .ctop.cdet.left.sb -side right -fill y
411 pack .ctop.cdet.left.hb -side bottom -fill x
409 pack $ctext -side left -fill both -expand 1 412 pack $ctext -side left -fill both -expand 1
410 .ctop.cdet add .ctop.cdet.left 413 .ctop.cdet add .ctop.cdet.left
411 414
412 $ctext tag conf filesep -font [concat $textfont bold] -back "#aaaaaa" 415 $ctext tag conf filesep -font [concat $textfont bold] -back "#aaaaaa"
413 if {$gaudydiff} { 416 if {$gaudydiff} {