Show More
@@ -1152,7 +1152,8 b' proc drawcommitline {level} {' | |||
|
1152 | 1152 | set lineid($lineno) $id |
|
1153 | 1153 | set idline($id) $lineno |
|
1154 | 1154 | set shape oval |
|
1155 | set ofill [expr {[info exists commitlisted($id)]? "blue": "white"}] | |
|
1155 | set outline #000080 | |
|
1156 | set ofill [expr {[info exists commitlisted($id)]? "#7f7fff": "white"}] | |
|
1156 | 1157 | if {![info exists commitinfo($id)]} { |
|
1157 | 1158 | readcommit $id |
|
1158 | 1159 | if {![info exists commitinfo($id)]} { |
@@ -1160,12 +1161,16 b' proc drawcommitline {level} {' | |||
|
1160 | 1161 | set nparents($id) 0 |
|
1161 | 1162 | } |
|
1162 | 1163 | } else { |
|
1163 |
|
|
|
1164 | switch [lindex $commitinfo($id) 9] secret { | |
|
1164 | 1165 | set shape rect |
|
1166 | } public { | |
|
1167 | set outline black | |
|
1168 | set ofill blue | |
|
1165 | 1169 | } |
|
1166 | 1170 | } |
|
1167 | 1171 | if {[info exists obsolete($id)]} { |
|
1168 |
set o |
|
|
1172 | set outline darkgrey | |
|
1173 | set ofill lightgrey | |
|
1169 | 1174 | } |
|
1170 | 1175 | assigncolor $id |
|
1171 | 1176 | set currentparents {} |
@@ -1195,7 +1200,7 b' proc drawcommitline {level} {' | |||
|
1195 | 1200 | set orad [expr {$linespc / 3}] |
|
1196 | 1201 | set t [$canv create $shape [expr $x - $orad] [expr $y1 - $orad] \ |
|
1197 | 1202 | [expr $x + $orad - 1] [expr $y1 + $orad - 1] \ |
|
1198 |
-fill $ofill -outline |
|
|
1203 | -fill $ofill -outline $outline -width 1] | |
|
1199 | 1204 | $canv raise $t |
|
1200 | 1205 | $canv bind $t <1> {selcanvline {} %x %y} |
|
1201 | 1206 | set xt [xcoord [llength $displist] $level $lineno] |
General Comments 0
You need to be logged in to leave comments.
Login now