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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
|
############################################
# TKSCILAB Gui Interface facility for Scilab
# Bertrand Guiheneuf - 1998
############################################
#
# define the translation between
# tk control names and scilab control names
set StyTrad(button) pushbutton;
set StyTrad(checkbutton) checkbox;
set StyTrad(entry) edit;
set StyTrad(label) text;
set StyTrad(scale) slider;
set StyTrad(frame) frame;
set StyTrad(scrolllistbox) listbox;
set StyTrad(popupmenu) popupmenu;
# define the equivalence between anchor names
# in scilab and anchor names in tk
set AnchorEq(center) center;
set AnchorEq(left) w;
set AnchorEq(right) e;
set AnchorEq(e) e;
set AnchorEq(w) w;
######################################################################################
proc CreateUIControl {hparent control} {
# input: parent : Handle on the parent window
# control : control style ( ex: pushbutton, ...)
# output: handle of the control
# Create a control and place it on (0,0)
# the control type is given as an input string :
# append the global variables and so on
global Win WinIdx StyTrad;
set parent [GetRealParent $hparent $control];
# Get the good counter name
# and get its value
set UiIdxName "Idx$control" ;
global "$UiIdxName";
# if no control of this kind exist, initialise the counter
# for this control. The variable containing the control counter
# is Idx$control ie for ex. Idxpushbutton, Idxtext ...
if { [info exist "$UiIdxName"] != 1 } {
set "$UiIdxName" 0 ;
}
#get the current control index and
#increment the control index
set UiIdx [set "$UiIdxName"] ;
incr "$UiIdxName" ;
# Compute the instance control name
set name "$control$UiIdx" ;
# Update windows list
set Win($WinIdx) "$name" ;
# Store the control win handle in its info structure
global "$name";
set "$name\(handle)" $WinIdx;
set "$name\(name)" $name;
set "$name\(style)" $StyTrad($control);
set "$name\(control)" $control;
set "$name\(units)" "pixels";
# create the control
SetField $WinIdx parent $parent;
# increment the handle counter
incr WinIdx ;
set path [set "$name\(path)"];
# +++++++++++++++++
# set the defaults
switch -exact -- [set "$name\(style)"] {
# edit
"edit" {
set "$name\(fontunits)" "pixels";
set "$name\(fontsize)" 12;
set "$name\(fontname)" "helvetica";
set "$name\(fontangle)" "normal";
set "$name\(fontweight)" "normal";
$path configure -textvariable "$name\(string)";
}
# text
"text" {
set "$name\(fontunits)" "pixels";
set "$name\(fontsize)" 12;
set "$name\(fontname)" "helvetica";
set "$name\(fontangle)" "normal";
set "$name\(fontweight)" "normal";
}
# pushbutton
"pushbutton" {
set "$name\(fontunits)" "pixels";
set "$name\(fontsize)" 12;
set "$name\(fontname)" "helvetica";
set "$name\(fontangle)" "normal";
set "$name\(fontweight)" "normal";
$path configure -anchor nw -borderwidth 1 -bg #a0a0a0 -padx 0 -pady 0;
SetField [set "$name\(handle)" ] position "20|40|40|20";
}
# radiobutton and checkbox
"checkbox" {
set "$name\(fontunits)" "pixels";
set "$name\(fontsize)" 12;
set "$name\(fontname)" "helvetica";
set "$name\(fontangle)" "normal";
set "$name\(fontweight)" "normal";
$path configure -variable "$name\(value)";
}
# slider
"slider" {
#set "$name\(fontunits)" "pixels";
#set "$name\(fontsize)" 12;
#set "$name\(fontname)" "helvetica";
#set "$name\(fontangle)" "normal";
#set "$name\(fontweight)" "normal";
$path configure -variable "$name\(value)" -showvalue 0 -length 200 \
-sliderlength 20 -width 30 -from 0 -to 1 -orient horizontal;
}
# frame
"frame" {
$path configure -bg #a0a0a0 -relief ridge -borderwidth 3
}
# listbox
"listbox" {
set "$name\(fontunits)" "pixels";
set "$name\(fontsize)" 12;
set "$name\(fontname)" "helvetica";
set "$name\(fontangle)" "normal";
set "$name\(fontweight)" "normal";
$path.list configure -bg #a0a0a0 -setgrid true;
$path configure -bg #d0d0d0;
}
# popupmenu
"popumenu" {
set "$name\(fontunits)" "pixels";
set "$name\(fontsize)" 12;
set "$name\(fontname)" "helvetica";
set "$name\(fontangle)" "normal";
set "$name\(fontweight)" "normal";
$path configure -bg #a0a0a0 -relief raise;
}
}
Setmin $name 0;
Setmax $name 1;
# +++++++++++++++++
bind $path <Configure> {ChgConfigure %W %w %h};
return [set "$name\(handle)" ];
}
proc CloseUIControl { FigPath } {
# answer to a close event generated by a figure
global Win ;
# find the handle of the closed figure
set h [FindObj "path" $FigPath];
set name $Win($h);
global "$name";
unset "$name";
unset "Win($h)";
}
|
