blob: cab978b3d9d514d43aab78361d7076d080ebd7f8 (
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
|
# 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."
}
namespace eval labelFormat {
variable w .labelformat
catch {destroy $w}
toplevel $w
wm title $w "Zinc Label Format Demonstration"
wm iconname $w Label
variable defaultfont [font create -family Helvetica -size 16 -weight normal]
grid [button $w.dismiss -text Dismiss -command "destroy $w"] -row 2 -column 0 -pady 10
grid [button $w.code -text "See Code" -command "showCode $w"] -row 2 -column 1 -pady 10
###########################################
# Text zone
###########################################
grid [text $w.text -relief sunken -borderwidth 2 -height 4] \
-row 0 -column 0 -columnspan 2 -sticky ew
$w.text insert end {This scipt demonstrates the use of labelformat for tabular items.
The fieldPos (please, refer to the labelformat type description
in the Zinc reference manual) of each field as described in
the labelformat is displayed inside the field.}
###########################################
# Zinc
##########################################
grid [zinc $w.zinc -width 600 -height 500 -font $defaultfont -borderwidth 3 \
-relief sunken] -row 1 -column 0 -columnspan 2 -sticky news
grid columnconfigure $w 0 -weight 1
grid columnconfigure $w 1 -weight 1
grid rowconfigure $w 1 -weight 2
### this function displays in each field, the corresponding <fieldPos>
### part of the labelformat
proc setLabelContent {item labelformat} {
variable w
set i 0
foreach fieldSpec $labelformat {
set posSpec $i
regexp {^.\d+.\d+(.*)} $fieldSpec "" posSpec
$w.zinc itemconfigure $item $i -text "$i: $posSpec" -border "contour"
incr i
}
}
###########################################
# Tabulars
###########################################
### first labelformat and tabular
variable labelformat1 {x100x20+0+0 x100x20+100+0 x100x20+0+20 x100x20+100+20 x100x20+50+55}
variable tabular1 [$w.zinc add tabular 1 5 -position {10 10} -labelformat $labelformat1]
setLabelContent $tabular1 $labelformat1
$w.zinc add text 1 -position {10 100} -text "All fields positions\nare given in pixels"
### second labelformat and tabular
variable labelformat2 {x110x20+100+30 x80x20<0<0 x80x20<0>0 x80x20>0>0 x80x20>0<0}
variable tabular2 [$w.zinc add tabular 1 5 -position {270 10} -labelformat $labelformat2]
setLabelContent $tabular2 $labelformat2
$w.zinc add text 1 -position {260 100} -text "All fields positions are given\nrelatively to field 0.\nThey are either on the left/right\nand up/down the field 0."
### third labelformat and tabular
variable labelformat3 {x200x70+100+70 x80x26^0<0 x80x26^0>0 x80x29$0$0 x80x32$0^0 x90x20<1^1 x90x20<2$2 x90x20^4<4 x90x20^3>3}
variable tabular3 [$w.zinc add tabular 1 9 -position {150 180} -labelformat $labelformat3]
setLabelContent $tabular3 $labelformat3
$w.zinc add text 1 -position {40 360} -text "Fields 1-4 are positionned relatively to field 0.\nField 5 is positionned relatively to field 1\nField 6 is positionned relatively to field 2..."
}
|
