{"thread":{"id":"2030","subject":"[PATCH]: gitk: different shape for other refs","startedAt":"2005-10-06T01:44:58Z","lastAt":"2005-10-06T01:44:58Z","messageCount":1,"participants":["Pavel Roskin"],"isPatch":true,"patchVersion":1,"patchTotal":null},"messages":[{"id":"9747","messageId":"1128563098.32103.14.camel@dv","threadId":"2030","inReplyTo":null,"subject":"[PATCH]: gitk: different shape for other refs","fromName":"Pavel Roskin","fromEmail":"proski@gnu.org","sentAt":"2005-10-06T01:44:58Z","receivedAt":"2005-10-06T01:44:58Z","isPatch":true,"sender":{"key":"proski@gnu.org","avatar":null},"body":"Hello!\n\nIt's not unfriendly to distinguish heads and other refs only by color.\nNot everybody can distinguish green and blue.  This patch changes the\nshape used for other refs to \"tabs\" with five corners.\n\nSigned-off-by: Pavel Roskin <proski@gnu.org>\n\ndiff --git a/gitk b/gitk\n--- a/gitk\n+++ b/gitk\n@@ -939,15 +939,17 @@ proc drawtags {id x xt y1} {\n \t    $canv bind $t <1> [list showtag $tag 1]\n \t    set rowtextx($idline($id)) [expr {$xr + $linespc}]\n \t} else {\n-\t    # draw a head or other ref\n \t    if {[incr nheads -1] >= 0} {\n-\t\tset col green\n+\t\t# draw a head\n+\t\tset xl [expr $xl - $delta/2]\n+\t\t$canv create polygon $x $yt $xr $yt $xr $yb $x $yb \\\n+\t\t    -width 1 -outline black -fill green -tags tag.$id\n \t    } else {\n-\t\tset col \"#ddddff\"\n+\t\t# draw other ref\n+\t\t$canv create polygon $x [expr $yt + $delta] $xl $yt \\\n+\t\t    $xr $yt $xr $yb $x $yb \\\n+\t\t    -width 1 -outline black -fill \"#ddddff\" -tags tag.$id\n \t    }\n-\t    set xl [expr $xl - $delta/2]\n-\t    $canv create polygon $x $yt $xr $yt $xr $yb $x $yb \\\n-\t\t-width 1 -outline black -fill $col -tags tag.$id\n \t}\n \tset t [$canv create text $xl $y1 -anchor w -text $tag \\\n \t\t   -font $mainfont -tags tag.$id]\n\n\n-- \nRegards,\nPavel Roskin\n"}]}