diff options
| author | lecoanet | 2000-06-21 13:50:05 +0000 |
|---|---|---|
| committer | lecoanet | 2000-06-21 13:50:05 +0000 |
| commit | 63cac955e941894fe2e705db1bb98bfbc786a8a5 (patch) | |
| tree | 61c603334c679c6c15aaba2150d0632e83360750 /sandbox/zinc.tcl | |
| parent | a3f8b8bf667fbd6d7ea9e74e26c4e561b02ddafc (diff) | |
| download | tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.zip tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.gz tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.bz2 tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.xz | |
*** empty log message ***
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 } } |