Mercurial > hg > mercurial-crew-with-dirclash

comparison contrib/hgk @ 4501:b2338c0cf468

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hgk: added -selectbackground grey to canvases
author Bela Babik <teki321@gmail.com>
date Mon, 04 Jun 2007 16:54:52 +1000
parents 28cbe9e01f17
children 1774c037fbd2
comparison
equal deleted inserted replaced
4499:84ca5597a435 4501:b2338c0cf468
354 pack .ctop.top.clist -side top -fill both -expand 1 354 pack .ctop.top.clist -side top -fill both -expand 1
355 .ctop add .ctop.top 355 .ctop add .ctop.top
356 set canv .ctop.top.clist.canv 356 set canv .ctop.top.clist.canv
357 canvas $canv -height $geometry(canvh) -width $geometry(canv1) \ 357 canvas $canv -height $geometry(canvh) -width $geometry(canv1) \
358 -bg white -bd 0 \ 358 -bg white -bd 0 \
359 -yscrollincr $linespc -yscrollcommand "$cscroll set" 359 -yscrollincr $linespc -yscrollcommand "$cscroll set" -selectbackground grey
360 .ctop.top.clist add $canv 360 .ctop.top.clist add $canv
361 set canv2 .ctop.top.clist.canv2 361 set canv2 .ctop.top.clist.canv2
362 canvas $canv2 -height $geometry(canvh) -width $geometry(canv2) \ 362 canvas $canv2 -height $geometry(canvh) -width $geometry(canv2) \
363 -bg white -bd 0 -yscrollincr $linespc 363 -bg white -bd 0 -yscrollincr $linespc -selectbackground grey
364 .ctop.top.clist add $canv2 364 .ctop.top.clist add $canv2
365 set canv3 .ctop.top.clist.canv3 365 set canv3 .ctop.top.clist.canv3
366 canvas $canv3 -height $geometry(canvh) -width $geometry(canv3) \ 366 canvas $canv3 -height $geometry(canvh) -width $geometry(canv3) \
367 -bg white -bd 0 -yscrollincr $linespc 367 -bg white -bd 0 -yscrollincr $linespc -selectbackground grey
368 .ctop.top.clist add $canv3 368 .ctop.top.clist add $canv3
369 bind .ctop.top.clist <Configure> {resizeclistpanes %W %w} 369 bind .ctop.top.clist <Configure> {resizeclistpanes %W %w}
370 370
371 set sha1entry .ctop.top.bar.sha1 371 set sha1entry .ctop.top.bar.sha1
372 set entries $sha1entry 372 set entries $sha1entry