diff options
Diffstat (limited to 'sandbox/zinc.tcl')
-rw-r--r-- | sandbox/zinc.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/sandbox/zinc.tcl b/sandbox/zinc.tcl index 55d09db..bcb6c69 100644 --- a/sandbox/zinc.tcl +++ b/sandbox/zinc.tcl @@ -106,8 +106,8 @@ set track [.r add track $view 6 -tags track -leaderanchors "|0|0"] -font "cenapii-etiquette-m17" .r itemconfigure $track 5 -text "450" -font "cenapii-etiquette-m17" -.r bind $track:-3 <Enter> ".r itemconfigure $track -speedvectorcolor red" -.r bind $track:-3 <Leave> ".r itemconfigure $track -speedvectorcolor salmon" +.r bind $track:speedvector <Enter> ".r itemconfigure $track -speedvectorcolor red" +.r bind $track:speedvector <Leave> ".r itemconfigure $track -speedvectorcolor salmon" set track2 [.r add track $view 4 -speedvector "-20 0" \ -symbolcolor salmon -speedvectorcolor salmon -leadercolor salmon \ @@ -219,11 +219,12 @@ set topclip [.r add rectangle $top "-400 -400 400 400" \ # proc borders {onoff} { set part [.r currentpart] + puts "$part" set contour noborder if { $onoff == "on" } { set contour "contour" } - if { $part >= 0 } { + if { [regexp {^[0-9]+$} $part] } { .r itemconfigure current $part -border $contour } } |