diff options
author | lecoanet | 2002-05-17 07:53:35 +0000 |
---|---|---|
committer | lecoanet | 2002-05-17 07:53:35 +0000 |
commit | bf440c2450c11457752decfa06e71e20726cc442 (patch) | |
tree | f92a7d771db59119d170a525ab8bd3f64d8c56cf /sandbox/local.tcl | |
parent | 92c5c40762cb6968cc6c856c5fd00aef5dd7c2dc (diff) | |
download | tkzinc-bf440c2450c11457752decfa06e71e20726cc442.zip tkzinc-bf440c2450c11457752decfa06e71e20726cc442.tar.gz tkzinc-bf440c2450c11457752decfa06e71e20726cc442.tar.bz2 tkzinc-bf440c2450c11457752decfa06e71e20726cc442.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/local.tcl')
-rw-r--r-- | sandbox/local.tcl | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/sandbox/local.tcl b/sandbox/local.tcl deleted file mode 100644 index 0033f47..0000000 --- a/sandbox/local.tcl +++ /dev/null @@ -1,48 +0,0 @@ -#!/usr/bin/wish8.0 -f - -load tkzinc3.1.so -package require Img - -set top 1 - -image create photo logo -file logo.gif -image create photo papier -file texture-paper.xpm -image create photo penguin -file xpenguin.png -image create photo bouton -file bouton.xpm -image create photo bois -file texture-bois1.xpm - -set r [zinc .r -relief sunken -render 1] -pack .r -expand t -fill both -.r configure -width 500 -height 500 -set gr1 [.r add group $top] -set clip [.r add rectangle $gr1 "50 50 399 399" -filled 1 -fillcolor pink -linewidth 0] -#.r itemconfigure $gr1 -clip $clip -set gr2 [.r add group $gr1] -set clip2 [.r add rectangle $gr2 "200 200 450 450" -filled 1 -fillcolor lavender -linewidth 0] -#.r itemconfigure $gr2 -clip $clip2 -set view [.r add group $gr2 -tags "controls"] -.r lower $clip -.r lower $clip2 - -set rect [.r add rectangle $view "100 100 200 200" -linewidth 4 \ - -tile papier -fillcolor pink -fillalpha 128 -filled 1] -set fvwm [.r add icon $view -mask "@fvwm.xbm" -position "250 120" \ - -anchor center -color black -alpha 255] -set rect2 [.r add rectangle $view "150 50 300 300" -linewidth 0 \ - -tile logo -fillcolor white -fillalpha 90 -filled 1] -set x 100 -set y 100 -for {set i 0} {$i < 50} {incr i} { - set x [expr $x+3] - set y [expr $y+3] - .r add text $view -text "BlaBla et tout et tout, bref..."\ - -position "$x $y" -anchor nw -color red -alpha 90 -} -set peng [.r add icon $view -image penguin -position "300 300" \ - -anchor center -alpha 128] -.r translate $rect -150 -150 -.r rotate $rect 35 -.r translate $rect 150 150 - -source controls.tcl -#
\ No newline at end of file |