blob: 6aaf3869161c20f6e1018988a15150d13533d4f5 (
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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
// ########### procediments per imagegrid -- slario(at)gmail.com [a partir del codi del grid de l'Ives: ydegoyon(at)free.fr] #########
sys_gui("proc imagegrid_apply {id} {\n");
// strip "." from the TK id to make a variable name suffix
sys_gui("set vid [string trimleft $id .]\n");
// for each variable, make a local variable to hold its name...
sys_gui("set var_graph_name [concat graph_name_$vid]\n");
sys_gui("global $var_graph_name\n");
sys_gui("set var_graph_num_fil [concat graph_num_fil_$vid]\n");
sys_gui("global $var_graph_num_fil\n");
sys_gui("set var_graph_num_col [concat graph_num_col_$vid]\n");
sys_gui("global $var_graph_num_col\n");
sys_gui("set var_graph_color_fons [concat graph_color_fons_$vid]\n");
sys_gui("global $var_graph_color_fons\n");
sys_gui("set var_graph_color_marc [concat graph_color_marc_$vid]\n");
sys_gui("global $var_graph_color_marc\n");
sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_name] [eval concat $$var_graph_num_fil] [eval concat $$var_graph_num_col] [eval concat $$var_graph_color_fons] [eval concat $$var_graph_color_marc] \\;]\n");
// puts stderr $cmd
sys_gui("pd $cmd\n");
sys_gui("}\n");
sys_gui("proc imagegrid_cancel {id} {\n");
sys_gui("set cmd [concat $id cancel \\;]\n");
// puts stderr $cmd
sys_gui("pd $cmd\n");
sys_gui("}\n");
sys_gui("proc imagegrid_ok {id} {\n");
sys_gui("imagegrid_apply $id\n");
sys_gui("imagegrid_cancel $id\n");
sys_gui("}\n");
sys_gui("proc pdtk_imagegrid_dialog {id name num_fil num_col color_fons color_marc} {\n");
sys_gui("set vid [string trimleft $id .]\n");
sys_gui("set var_graph_name [concat graph_name_$vid]\n");
sys_gui("global $var_graph_name\n");
sys_gui("set var_graph_num_fil [concat graph_num_fil_$vid]\n");
sys_gui("global $var_graph_num_fil\n");
sys_gui("set var_graph_num_col [concat graph_num_col_$vid]\n");
sys_gui("global $var_graph_num_col\n");
sys_gui("set var_graph_color_fons [concat graph_color_fons_$vid]\n");
sys_gui("global $var_graph_color_fons\n");
sys_gui("set var_graph_color_marc [concat graph_color_marc_$vid]\n");
sys_gui("global $var_graph_color_marc\n");
sys_gui("set $var_graph_name $name\n");
sys_gui("set $var_graph_num_fil $num_fil\n");
sys_gui("set $var_graph_num_col $num_col\n");
sys_gui("set $var_graph_color_fons $color_fons\n");
sys_gui("set $var_graph_color_marc $color_marc\n");
sys_gui("toplevel $id\n");
sys_gui("wm title $id {imagegrid}\n");
sys_gui("wm protocol $id WM_DELETE_WINDOW [concat imagegrid_cancel $id]\n");
sys_gui("label $id.label -text {IMAGEGRID PROPERTIES}\n");
sys_gui("pack $id.label -side top\n");
sys_gui("frame $id.buttonframe\n");
sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n");
sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"imagegrid_cancel $id\"\n");
sys_gui("button $id.buttonframe.apply -text {Apply} -command \"imagegrid_apply $id\"\n");
sys_gui("button $id.buttonframe.ok -text {OK} -command \"imagegrid_ok $id\"\n");
sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n");
sys_gui("pack $id.buttonframe.apply -side left -expand 1\n");
sys_gui("pack $id.buttonframe.ok -side left -expand 1\n");
sys_gui("frame $id.1rangef\n");
sys_gui("pack $id.1rangef -side top\n");
sys_gui("label $id.1rangef.lname -text \"Nom :\"\n");
sys_gui("entry $id.1rangef.name -textvariable $var_graph_name -width 7\n");
sys_gui("pack $id.1rangef.lname $id.1rangef.name -side left\n");
sys_gui("frame $id.2rangef\n");
sys_gui("pack $id.2rangef -side top\n");
sys_gui("label $id.2rangef.lnum_fil -text \"Fils :\"\n");
sys_gui("entry $id.2rangef.num_fil -textvariable $var_graph_num_fil -width 7\n");
sys_gui("pack $id.2rangef.lnum_fil $id.2rangef.num_fil -side left\n");
sys_gui("frame $id.3rangef\n");
sys_gui("pack $id.3rangef -side top\n");
sys_gui("label $id.3rangef.lnum_col -text \"Cols :\"\n");
sys_gui("entry $id.3rangef.num_col -textvariable $var_graph_num_col -width 7\n");
sys_gui("pack $id.3rangef.lnum_col $id.3rangef.num_col -side left\n");
sys_gui("frame $id.4rangef\n");
sys_gui("pack $id.4rangef -side top\n");
sys_gui("label $id.4rangef.lcolor_fons -text \"Color fons :\"\n");
sys_gui("entry $id.4rangef.color_fons -textvariable $var_graph_color_fons -width 7\n");
sys_gui("pack $id.4rangef.lcolor_fons $id.4rangef.color_fons -side left\n");
sys_gui("frame $id.5rangef\n");
sys_gui("pack $id.5rangef -side top\n");
sys_gui("label $id.5rangef.lcolor_marc -text \"Color marc :\"\n");
sys_gui("entry $id.5rangef.color_marc -textvariable $var_graph_color_marc -width 7\n");
sys_gui("pack $id.5rangef.lcolor_marc $id.5rangef.color_marc -side left\n");
sys_gui("bind $id.1rangef.name <KeyPress-Return> [concat imagegrid_ok $id]\n");
sys_gui("bind $id.2rangef.num_fil <KeyPress-Return> [concat imagegrid_ok $id]\n");
sys_gui("bind $id.3rangef.num_col <KeyPress-Return> [concat imagegrid_ok $id]\n");
sys_gui("bind $id.4rangef.color_fons <KeyPress-Return> [concat imagegrid_ok $id]\n");
sys_gui("bind $id.5rangef.color_marc <KeyPress-Return> [concat imagegrid_ok $id]\n");
sys_gui("focus $id.1rangef.name\n");
sys_gui("}\n");
sys_gui("proc table {w content args} {\n");
sys_gui("frame $w -bg black\n");
sys_gui("set r 0\n");
sys_gui("foreach row $content {\n");
sys_gui("set fields {}\n");
sys_gui("set c 0\n");
sys_gui("foreach col $row {\n");
// lappend fields [label $w.$r/$c -text $col]
sys_gui("set img [image create photo -file $col]\n");
sys_gui("lappend fields [label $w.$r/$c -image $img]\n");
sys_gui("incr c\n");
sys_gui("}\n");
sys_gui("eval grid $fields -sticky news -padx 1 -pady 1\n");
sys_gui("incr r\n");
sys_gui("}\n");
sys_gui("set w\n");
sys_gui("}\n");
sys_gui("proc pdtk_imagegrid_table {id name num_fil num_col} {\n");
sys_gui("table .tauler {\n");
sys_gui("{sll80x60.gif 3160x120.gif sll80x60.gif}\n");
sys_gui("{sll80x60.gif sll80x60.gif sll80x60.gif}\n");
sys_gui("{sll80x60.ppm sll80x60.gif 3160x120.gif}\n");
sys_gui("}\n");
sys_gui("pack .tauler\n");
sys_gui("}\n");
|
