Mercurial > hg > mercurial-crew-with-dirclash
comparison contrib/hgk @ 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 | 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} { |