diff options
author | lecoanet | 2000-05-26 08:15:17 +0000 |
---|---|---|
committer | lecoanet | 2000-05-26 08:15:17 +0000 |
commit | 2c3048c1a7e56fc215b9e8b5e9c4fbeef4ea7ead (patch) | |
tree | 7036634b208accdcb36b8bec2000bcb0511b785c | |
parent | 209deb7ffa30a6826df82015384c7e671cfe0427 (diff) | |
download | tkzinc-2c3048c1a7e56fc215b9e8b5e9c4fbeef4ea7ead.zip tkzinc-2c3048c1a7e56fc215b9e8b5e9c4fbeef4ea7ead.tar.gz tkzinc-2c3048c1a7e56fc215b9e8b5e9c4fbeef4ea7ead.tar.bz2 tkzinc-2c3048c1a7e56fc215b9e8b5e9c4fbeef4ea7ead.tar.xz |
testtext.tcl
-rw-r--r-- | sandbox/zinc.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/sandbox/zinc.tcl b/sandbox/zinc.tcl index 9e8bc78..55d09db 100644 --- a/sandbox/zinc.tcl +++ b/sandbox/zinc.tcl @@ -78,7 +78,7 @@ proc updateTransform {zinc} { # # TRACKS # -set track [.r add track $view 5 -tags track -leaderanchors "|0|0"] +set track [.r add track $view 6 -tags track -leaderanchors "|0|0"] .r itemconfigure $track -position "1 1" .r itemconfigure $track -position "10 10" .r itemconfigure $track -position "20 20" @@ -94,17 +94,17 @@ set track [.r add track $view 5 -tags track -leaderanchors "|0|0"] -filledmarker 1 \ -markerfillpattern AlphaStipple4 \ -markercolor salmon -.r itemconfigure $track -labelformat "120x40 x80x20+0+0 x40x20+80+0 x40x20+0+20 x20x20>2>1 x60x20>0>0" -.r itemconfigure $track 0 -filled 1 -backcolor tan -relief groove \ +.r itemconfigure $track -labelformat "120x40 l0l0+0+0 x80x20+0+0 x40x20+80+0 x40x20+0+20 x20x20>3>2 x60x20>1>1" +.r itemconfigure $track 0 -filled 1 -backcolor gray -relief groove +.r itemconfigure $track 1 -filled 1 -backcolor tan -relief groove \ -font "cenapii-etiquette-m17" -text "AFR451" -.r itemconfigure $track 1 -text "WPY" -filled 1 -backcolor wheat -relief ridge \ +.r itemconfigure $track 2 -text "WPY" \ -font "cenapii-etiquette-m17" -.r itemconfigure $track 2 -text "400" -filled 1 -backcolor wheat \ +.r itemconfigure $track 3 -text "400" -filled 1 -backcolor wheat \ -font "cenapii-etiquette-m17" -.r itemconfigure $track 3 -text "-" -filled 1 -backcolor wheat \ - -font "cenapii-etiquette-m17" -.r itemconfigure $track 4 -text "450" -filled 1 -backcolor wheat \ +.r itemconfigure $track 4 -text "-" -filled 1 -backcolor wheat \ -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" |