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