Mercurial > hg
comparison contrib/hgk @ 4501:b2338c0cf468
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 |