diff options
Diffstat (limited to 'demos/groupsInAtcStrips.tcl')
-rw-r--r-- | demos/groupsInAtcStrips.tcl | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/demos/groupsInAtcStrips.tcl b/demos/groupsInAtcStrips.tcl index 7634661..ed34421 100644 --- a/demos/groupsInAtcStrips.tcl +++ b/demos/groupsInAtcStrips.tcl @@ -65,12 +65,12 @@ namespace eval groupsInAtcStrips { "double click 1" on the blueish zone to fully reduce size} - font create dfont -family Helvetica -size 10 -weight bold - font create radar-b15 -family helvetica -size 16 -slant roman -weight bold - font create radar-b12 -family helvetica -size 12 -slant roman -weight bold - font create radar-b10 -family helvetica -size 10 -slant roman -weight bold - font create radar-m18 -family helvetica -size 18 -slant roman -weight normal - font create radar-m20 -family helvetica -size 20 -slant roman -weight normal + catch {font create dfont -family Helvetica -size 10 -weight bold} + catch {font create radar-b15 -family helvetica -size 16 -slant roman -weight bold} + catch {font create radar-b12 -family helvetica -size 12 -slant roman -weight bold} + catch {font create radar-b10 -family helvetica -size 10 -slant roman -weight bold} + catch {font create radar-m18 -family helvetica -size 18 -slant roman -weight normal} + catch {font create radar-m20 -family helvetica -size 20 -slant roman -weight normal} set fontsets(scales) {1.2 normal 10 large} set fontsets(normal,callsign) radar-b15 @@ -131,12 +131,12 @@ namespace eval groupsInAtcStrips { grid columnconfigure $w 1 -weight 1 grid rowconfigure $w 1 -weight 2 - $w.zinc gname {=axial 90|#ffffff 0|#ffeedd 30|#e9d1ca 90|#e9a89a} idnt - $w.zinc gname {#c1daff|#8aaaff} back - $w.zinc gname {=path -40 -40|#000000;50 0|#000000;50 92|#000000;0 100} shad - $w.zinc gname {#ffeedd|#8a9acc} btnOutside - $w.zinc gname {=axial 180|#ffeedd|#8a9acc} btnInside - $w.zinc gname {#8aaaff|#5b76ed} ch1 + catch "$w.zinc gname {=axial 90|#ffffff 0|#ffeedd 30|#e9d1ca 90|#e9a89a} idnt" + catch "$w.zinc gname {#c1daff|#8aaaff} back" + catch "$w.zinc gname {=path -40 -40|#000000;50 0|#000000;50 92|#000000;0 100} shad" + catch "$w.zinc gname {#ffeedd|#8a9acc} btnOutside" + catch "$w.zinc gname {=axial 180|#ffeedd|#8a9acc} btnInside" + catch "$w.zinc gname {#8aaaff|#5b76ed} ch1" set anim(delay) 50; # ms between each animation steps set anim(steps) 6; # number of steps for the animation |