blob: 16aa256a2724bce5cd37fadf4f1e24e2fabf8cbc (
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
# these simple samples have been developped by C. Mertz mertz@cena.fr in perl
# tcl version by Jean-Paul Imbert imbert@cena.fr
if {![info exists zincDemo]} {
error "This script should be run from the zinc-widget demo."
}
set w .translation
catch {destroy $w}
toplevel $w
wm title $w "Zinc Translation Demonstration"
wm iconname $w Translation
set defaultfont "-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*"
frame $w.buttons
pack $w.buttons -side bottom -fill x -pady 2m
button $w.buttons.dismiss -text Dismiss -command "destroy $w"
button $w.buttons.code -text "See Code" -command "showCode $w"
pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
###########################################
# Text zone
###########################################
text $w.text -relief sunken -borderwidth 2 -setgrid true -height 6
pack $w.text -expand yes -fill both
$w.text insert end "This toy-appli shows translations on waypoint items.\nThe following operations are possible:\n Click Up for up translation\n Click Left for left translation\n Click Right for right translation\n Click Down for down translation"
###########################################
# Zinc
###########################################
set zinc_width 600
set zinc_height 500;
zinc $w.zinc -width $zinc_width -height $zinc_height -font 10x20 -borderwidth 3 -relief sunken
pack $w.zinc
###########################################
# Waypoints
###########################################
set wp_group [$w.zinc add group 1 -visible 1]
set p1 {200 200}
set wp1 [$w.zinc add waypoint $wp_group 1 -position $p1 -connectioncolor green -symbolcolor blue -labelformat {x20x18+0+0} -leaderwidth 0 -labeldx -20]
$w.zinc itemconfigure $wp1 0 -text DO
set p2 {300 300}
set wp2 [$w.zinc add waypoint $wp_group 1 -position $p2 -connecteditem $wp1 -connectioncolor blue -symbolcolor blue -labelformat {x20x18+0+0} -leaderwidth 0 -labeldx -20]
$w.zinc itemconfigure $wp2 0 -text RE
set p3 {400 150}
set wp3 [$w.zinc add waypoint $wp_group 2 -position $p3 -connecteditem $wp2 -connectioncolor blue -symbolcolor blue -labelformat {x20x18+0+0} -leaderwidth 0 -labeldx 20 -labeldy +10]
$w.zinc itemconfigure $wp3 0 -text MI
###################################################
# control panel
###################################################
frame $w.rc
pack $w.rc
button $w.rc.up -width 2 -height 2 -text Up -command {
$w.zinc translate "$wp_group" 0 -10
}
grid $w.rc.up -row 0 -column 1
button $w.rc.left -width 2 -height 2 -text Left -command {
$w.zinc translate "$wp_group" -10 0
}
grid $w.rc.left -row 1 -column 0
button $w.rc.right -width 2 -height 2 -text Right -command {
$w.zinc translate "$wp_group" 10 0
}
grid $w.rc.right -row 1 -column 2
button $w.rc.down -width 2 -height 2 -text Down -command {
$w.zinc translate "$wp_group" 0 10
}
grid $w.rc.down -row 2 -column 1
|
