diff options
| author | lecoanet | 2003-03-28 17:36:34 +0000 |
|---|---|---|
| committer | lecoanet | 2003-03-28 17:36:34 +0000 |
| commit | 11d300cf2d4d7c0da508ff27534c14261d5043a0 (patch) | |
| tree | 35ff0c0185d755c6d52dcacf958bd587c55739b4 /demos/colorY.tcl | |
| parent | 7a103bee4cda4532e237522e72f6a7d7e81e6839 (diff) | |
| download | tkzinc-11d300cf2d4d7c0da508ff27534c14261d5043a0.zip tkzinc-11d300cf2d4d7c0da508ff27534c14261d5043a0.tar.gz tkzinc-11d300cf2d4d7c0da508ff27534c14261d5043a0.tar.bz2 tkzinc-11d300cf2d4d7c0da508ff27534c14261d5043a0.tar.xz | |
Ajout de plusieurs demos et remaniement
Diffstat (limited to 'demos/colorY.tcl')
| -rw-r--r-- | demos/colorY.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/colorY.tcl b/demos/colorY.tcl index 013cedc..08f4788 100644 --- a/demos/colorY.tcl +++ b/demos/colorY.tcl @@ -5,7 +5,7 @@ if {![info exists zincDemo]} { error "This script should be run from the zinc-widget demo." } -set w .color-y +set w .colorY catch {destroy $w} toplevel $w wm title $w "Zinc Color-y Demonstration" @@ -37,6 +37,6 @@ $w.zinc add text 1 -font $defaultfont -text "A variation from 40%transparent red $w.zinc add text 1 -font $defaultfont -text "Two overlaping transparently colored rectangles on a white background" -anchor nw -position {20 320} $w.zinc add rectangle 1 {10 340 690 590} -fillcolor white -filled 1 -$w.zinc add rectangle 1 {200 350 500 580} -fillcolor {=axial 0 0|red;40|green;40 50|blue;40} -filled 1 +$w.zinc add rectangle 1 {200 350 500 580} -fillcolor {=axial 90|red;40|green;40 50|blue;40} -filled 1 $w.zinc add rectangle 1 {10 400 690 500} -fillcolor {=axial 90|yellow;40|black;40 50|cyan;40} -filled 1 |