blob: d42ba2acfde9c6eeb1fd01db55dbd641bb6b4c92 (
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
39
40
41
42
43
44
45
46
|
#!/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
set r [zinc .r -relief sunken -localrender 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 < 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
#
|
