* Modified the tracks colors to exhibit the -lastasfirst

	  feature (black / white).

1 files changed, 3 insertions, 3 deletions

diff --git a/demos/simpleRadar.tcl b/demos/simpleRadar.tcl
index 6fc1cce..642c524 100644
--- a/demos/simpleRadar.tcl
+++ b/demos/simpleRadar.tcl
@@ -114,7 +114,7 @@ proc createTracks {z} {
     set bOff "$z itemconfigure current \[$z currentpart\] -border noborder"
 
     for {set i 20} {$i > 0} {incr i -1} {
-	set item [$z add track radar 6]
+	set item [$z add track radar 6 -lastasfirst 1]
 	lappend allTracks $item
 	set oneTrack $item
 
@@ -126,7 +126,7 @@ proc createTracks {z} {
 	set tracks($item,vy) [expr (8.0 + rand()*10.0) * $d]
 	$z itemconfigure $item -position "$tracks($item,x) $tracks($item,y)" -circlehistory 1 \
 	    -speedvector "$tracks($item,vx) $tracks($item,vy)" -speedvectorsensitive 1 \
-	    -labeldistance 30 -markersize 20 -historycolor gray30 -filledhistory 0 \
+	    -labeldistance 30 -markersize 20 -historycolor white -filledhistory 0 \
 	    -labelformat {x80x60+0+0 x63a0^0^0 x33a0^0>1 a0a0>2>1 x33a0>3>1 a0a0^0>2}
 	$z itemconfigure $item 0 -filled 0 -backcolor gray60 -sensitive 1
 	$z itemconfigure $item 1 -filled 1 -backcolor gray55 -text [format {AFR%03i} $i]
@@ -144,7 +144,7 @@ proc createTracks {z} {
 	$z bind $item <Enter> [list $z itemconfigure current -historycolor red3 \
 				   -symbolcolor red3 -markercolor red3 -leaderwidth 2 \
 				   -leadercolor red3 -speedvectorwidth 2 -speedvectorcolor red3]
-        $z bind $item <Leave> [list $z itemconfigure current -historycolor black \
+        $z bind $item <Leave> [list $z itemconfigure current -historycolor white \
 				   -symbolcolor black -markercolor black -leaderwidth 1 \
 				   -leadercolor black -speedvectorwidth 1 -speedvectorcolor black]
         $z bind $item:position <1> "createRoute $z"