blob: e6886ae0eebaf9ceafcd73b36968d1653a71b413 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!/usr/bin/wish -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
set r [zinc .r -relief sunken -localrender 1]
pack .r -expand t -fill both
.r configure -width 500 -height 500
set view [.r add group $top -tags "controls"]
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 < 1} {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
#
|
