update tbx path
[scilab.git] / scilab / node / start.sce
1 //1 +/-
2 //2 damier
3 //3 spinner and sliders
4 //4 demo uicontrol
5 //5 RGB
6 //6 RGB two windows
7 //7 border layout
8 //8 gridbag layout
9 //9 tab
10 //0 visible
11 //11 opticlim uicontrol
12 //12 normalized
13 //13 opticlim
14
15 demo = 13;
16
17 if demo == 1 then
18     f1 = createWindow();
19     f1.position(3:4) = [250, 100];
20
21     uicontrol(f1, "position", [25 25 50 50], "string", "+1", "callback", "v = eval(get(''num'', ''string''));set(''num'', ''string'', string(v + 1));");
22     uicontrol(f1, "position", [100 25 50 50], "string", "0", "tag", "num", "callback", "set(''num'', ''string'', ''0'');");
23     uicontrol(f1, "position", [175 25 50 50], "string", "-1", "callback", "v = eval(get(''num'', ''string''));set(''num'', ''string'', string(v - 1));");
24 end
25
26 if demo == 2 then
27     dim = 5;
28     f2 = createWindow();
29     f2.visible = %f;
30     f2.position(3:4) = [50 * dim + 50, 50 * dim + 125];
31     for i=1:dim*dim
32         x = floor((i-1) / dim);
33         y = modulo((i-1), dim);
34         uicontrol(f2, "position", [25 + 50*x, 100 + 50*y,50,50],"string", string(x) + " - " + string(y), "callback", "set(gcbo, ''enable'', %f)");
35     end
36
37     uicontrol(f2, "position", [f2.position(3)/2 - 50, 25, 100, 50], "string", "reset", "callback", "c = gcbo.parent.children;for i=1:size(c, ''*''), c(i).enable = %t;end");
38     f2.visible = %t;
39 end
40
41 if demo == 3 then
42     xdel(winsid());
43     clear;
44
45     function reset()
46         minval = get("min", "value");
47         maxval = get("max", "value");
48         set("slider", "value", string(((maxval - minval) / 2) + minval));
49     endfunction
50
51     function onchange()
52         set("slider", "min", get("min", "value"));
53         step = get("step", "value");
54         set("slider", "sliderstep", [step, step*10]);
55         set("slider", "max", get("max", "value"));
56     endfunction
57
58     f = createWindow();
59     f.visible = %f;
60     f.position(3:4) = [300, 200];
61
62     uicontrol("style", "text", "string", "0", "position", [120, 160, 60, 20], "horizontalalignment", "center", "tag", "val");
63     uicontrol("style", "slider", "position", [10 120 280 30], "min", -100, "max", 100, "sliderstep", [1, 1], "value", 0, "tag", "slider");
64
65     uicontrol("style", "text", "string", "min", "position", [25 80 50 20], "horizontalalignment", "center");
66     uicontrol("style", "text", "string", "step", "position", [125 80 50 20], "horizontalalignment", "center");
67     uicontrol("style", "text", "string", "max", "position", [225 80 50 20], "horizontalalignment", "center");
68
69     uicontrol("style", "spinner", "min", -100, "max", 0, "sliderstep", [1, 1], "value", "-100", "position", [25 50 50 20], "horizontalalignment", "center", "tag", "min");
70     uicontrol("style", "spinner", "min", 1, "max", 10, "sliderstep", [1, 1], "value", "1", "position", [125 50 50 20], "horizontalalignment", "center", "tag", "step");
71     uicontrol("style", "spinner", "min", 0, "max", 100, "sliderstep", [1, 1], "value", "100", "position", [225 50 50 20], "horizontalalignment", "center", "tag", "max");
72
73     uicontrol("style", "pushbutton", "string", "reset", "position", [100 10 100 30], "callback", "reset");
74     f.visible = %t;
75
76     set("slider", "callback", "val = gcbo.value;set(""val"", ""string"", string(val));");
77     set("min", "callback", "onchange");
78     set("step", "callback", "onchange");
79     set("max", "callback", "onchange");
80
81 end
82
83
84 if demo == 4 then
85     f = createWindow();
86     f.position = [200 200 240 470];
87     f.figure_name = "";
88
89     fr1 = uicontrol("style", "frame", "position", [10 10 220 450], "border", createBorder("etched"));
90     spinner = uicontrol(fr1, "style", "spinner", "string", "0", "position", [10 410 200 30], "horizontalalignment", "right", "min", 0, "max", 5);
91     label = uicontrol(fr1, "style", "text", "string", "usedeprecatedskin=""off""", "position", [10 370 200 30], "backgroundcolor", [1 0 1]);
92     editbox = uicontrol(fr1, "style", "edit", "string", "Edit", "position", [10 330 200 30], "backgroundcolor", [1 0 0]);
93     button = uicontrol(fr1, "style", "pushbutton", "string", "Pushbutton", "position", [10 290 200 30]);
94     checkbox = uicontrol(fr1, "style", "checkbox", "string", "Checkbox", "position", [10 250 200 30]);
95     radio = uicontrol(fr1, "style", "radiobutton", "string", "Radiobutton", "position", [10 210 200 30]);
96     slider = uicontrol(fr1, "style", "slider", "position", [10 150 200 50]);
97     frame = uicontrol(fr1, "style", "frame", "position", [10 110 200 30], "backgroundcolor", [0.5 0.5 0.5]);
98     listbox = uicontrol(fr1, "style", "listbox", "string", "listbox1|listbox2|listbox3|listbox4|listbox5", "position", [10 50 200 50], "backgroundcolor", [0.2 0.2 0.2]);
99     combo = uicontrol(fr1, "style", "popupmenu", "string", "popupmenu1|popupmenu2", "position", [10 10 200 30], "backgroundcolor", [0.8 0.8 0.8]);
100 end
101
102 if demo == 5 then
103     xdel(winsid());
104     clear onChange;
105
106     function onChange()
107         R = get("sliderR", "value");
108         G = get("sliderG", "value");
109         B = get("sliderB", "value");
110         set("textR", "string", string(R));
111         set("textG", "string", string(G));
112         set("textB", "string", string(B));
113         set("color", "backgroundcolor", [R, G, B]/255);
114     endfunction
115
116
117     f = createWindow();
118     f.visible = %f;
119     f.position(3:4) = [300, 130];
120
121     uicontrol("style", "slider", "position", [10 10 128 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderB");
122     uicontrol("style", "slider", "position", [10 50 128 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderG");
123     uicontrol("style", "slider", "position", [10 90 128 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderR");
124
125     uicontrol("style", "text", "position", [150 15 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textB");
126     uicontrol("style", "text", "position", [150 55 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textG");
127     uicontrol("style", "text", "position", [150 95 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textR");
128
129     uicontrol("style", "frame", "position", [200 20 90 90], "tag", "color", "backgroundcolor", [0, 0, 0]);
130
131     set("sliderR", "callback", "onChange");
132     set("sliderG", "callback", "onChange");
133     set("sliderB", "callback", "onChange");
134
135     f.visible = %t;
136 end
137
138 if demo == 6 then
139     xdel(winsid());
140     clear onChange;
141     function onChange()
142         R = get("sliderR", "value");
143         G = get("sliderG", "value");
144         B = get("sliderB", "value");
145         set("textR", "string", string(R));
146         set("textG", "string", string(G));
147         set("textB", "string", string(B));
148         set("color", "backgroundcolor", [R, G, B]/255);
149     endfunction
150
151
152     f1 = createWindow();
153     f1.position = [100, 100, 350, 130];
154     f1.figure_name = "sliders";
155
156     uicontrol(f1, "style", "slider", "position", [10 10 256 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderB");
157     uicontrol(f1, "style", "slider", "position", [10 50 256 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderG");
158     uicontrol(f1, "style", "slider", "position", [10 90 256 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderR");
159
160     uicontrol(f1, "style", "text", "position", [300 15 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textB");
161     uicontrol(f1, "style", "text", "position", [300 55 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textG");
162     uicontrol(f1, "style", "text", "position", [300 95 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textR");
163
164     f2 = createWindow();
165     f2.position = [450, 100, 130, 130];
166     f2.figure_name = "RGB";
167     uicontrol(f2, "style", "frame", "position", [15 15 100 100], "tag", "color", "backgroundcolor", [0, 0, 0]);
168
169     set("sliderR", "callback", "onChange");
170     set("sliderG", "callback", "onChange");
171     set("sliderB", "callback", "onChange");
172 end
173
174 //border layout
175 if demo == 7 then
176
177     f = createWindow();
178     f.layout = "border";
179     f.layout_options = createLayoutOptions("border", [10, 20]);
180     //f.layout_options = createLayoutOptions("border");
181
182     c = createConstraints("border", "top", [50,20]);
183
184     t = %t;
185     l = %t;
186     m = %t;
187     r = %t;
188     b = %t;
189
190     if t then
191         u_grid1 = uicontrol(f,...
192         "style", "frame",...
193         "backgroundcolor", [1 0 0], ...
194         "constraints", c);
195     end
196
197     if l then
198         c.position = "left";
199         u_grid2 = uicontrol(f,...
200         "style", "frame",...
201         "backgroundcolor", [0 1 0], ...
202         "constraints", c);
203     end
204
205     if m then
206         c.position = "center";
207         u_grid3 = uicontrol(f,...
208         "style", "frame",...
209         "backgroundcolor", [0 0 1], ...
210         "constraints", c);
211     end
212
213     if r then
214         c.preferredsize = [100, 100];
215         c.position = "right";
216         u_grid4 = uicontrol(f,...
217         "style", "frame",...
218         "backgroundcolor", [1 1 0], ...
219         "constraints", c);
220     end
221
222     if b then
223         c.position = "bottom";
224         u_grid5 = uicontrol(f,...
225         "style", "frame",...
226         "backgroundcolor", [1 0 1], ...
227         "constraints", c);
228     end
229 end
230
231 //gridbag layout
232 if demo == 8 then
233     f = createWindow();
234     f.position = [200 200 200 100];
235     f.layout = "gridbag";
236
237     c = createConstraints("gridbag",[1, 1, 1, 1], [1, 1], "both", "center", [0, 0], [50, 50]);
238
239     redf_grid   = [1, 1, 1, 1];
240     greenf_grid = [1, 2, 1, 1];
241     bluef_grid  = [1, 3, 2, 1];
242     yelf_grid   = [2, 1, 1, 2];
243     magf_grid   = [3, 1, 1, 1];
244     cyanf_grid  = [3, 2, 1, 2];
245
246     c.grid = bluef_grid;
247     u_grid3 = uicontrol(f , ...
248     "style"               , "frame", ...
249     "backgroundcolor"     , [0 0 1], ...
250     "constraints"         , c);
251
252     c.grid = cyanf_grid;
253     u_grid1 = uicontrol(f , ...
254     "style"               , "frame", ...
255     "backgroundcolor"     , [0 1 1], ...
256     "constraints"         , c);
257
258     c.grid = redf_grid;
259     u_grid1 = uicontrol(f , ...
260     "style"               , "frame" , ...
261     "backgroundcolor"     , [1 0 0] , ...
262     "constraints"         , c);
263
264     c.grid = greenf_grid;
265     u_grid2 = uicontrol(f , ...
266     "style"               , "frame", ...
267     "backgroundcolor"     , [0 1 0], ...
268     "constraints"         , c);
269
270     c.grid = yelf_grid;
271     u_grid4 = uicontrol(f , ...
272     "style"               , "frame", ...
273     "backgroundcolor"     , [1 1 0], ...
274     "constraints"         , c);
275
276     c.grid = magf_grid;
277     u_grid5 = uicontrol(f , ...
278     "style"               , "frame", ...
279     "backgroundcolor"     , [1 0 1], ...
280     "constraints"         , c);
281 end
282
283
284 //tab
285 if demo == 9 then
286
287     xdel(winsid());
288     clear onPush;
289     function onPush()
290         set("push", "string", string(get("tab", "value")));
291     endfunction
292     
293     f = createWindow();
294     f.position = [200 200 400 300];
295
296     tab = uicontrol(f, "style", "tab", "tag", "tab", "position", [0 30 400, 270]);
297
298     tab3 = uicontrol(tab, "style", "frame", "string", "Blue", "layout", "border", "backgroundcolor", [0 0 1]);
299     tab2 = uicontrol(tab, "style", "frame", "string", "Green", "layout", "border", "backgroundcolor", [0 1 0]);
300     tab1 = uicontrol(tab, "style", "frame", "string", "Red", "layout", "border", "backgroundcolor", [1 0 0]);
301     
302     uicontrol(f, "style", "pushbutton", "string", "push me", "callback", "onPush", "tag", "push", "position", [150 0 100 30]);
303     
304     set("tab", "value", 1);
305 end
306
307 if demo == 10 then
308
309     fig_pregui = figure("figure_name", "OPTICLIM - site and weather selection", ...
310     "dockable", "off", ...
311     "axes_size", [500,170], ...
312     "infobar_visible", "off", ...
313     "toolbar", "none", ...
314     "menubar_visible", "on", ...
315     "menubar", "none", ...
316     "default_axes", "off", ...
317     "resize", "off", ...
318     "layout", "border", ...
319     "background", color(244,244,244), ...
320     "tag", "figure_preopticlim", ...
321     "visible", "off");
322
323     //b1 = createBorder("titled", createBorder("etched"), "Choose your site:", "left", "top", createBorderFont("", 11, "bold"), "black");
324
325     OpticlimPath = "E:\git\toolbox\sanofi-opticlim\";
326     f = uicontrol(fig_pregui, "style", "frame", ...
327     "fontsize", 11);
328     //font1 = createBorderFont("", 11, "bold");
329     //b1 = createBorder("titled", createBorder("etched"), _d("OPTICLIM", "Choose your site")+":", "left", "top", font1, "black");
330     f1 = uicontrol(f, "style", "frame", ...
331     "layout", "gridbag", ...
332     "constraints", createConstraints("gridbag", [1 1 3 1], [1 1], "both", "left"), ...
333     "fontsize", 11);
334     uicontrol(f1, "style", "popupmenu", "string", [], ...
335     "fontsize", 11, ...
336     "horizontalAlignment", "center", ...
337     "margins", [0,5,0,5], ...
338     "tag", "site_list", ...
339     "callback", "cbChangeSite", ...
340     "constraints", createConstraints("gridbag", [1 1 1 1], [5 1], "horizontal", "left", [0,0], [330,22]));
341     path_icon = OpticlimPath+"pictures/list-add.png";
342     uicontrol(f1, "style", "pushbutton", "string", "", ...
343     "fontsize", 11, ...
344     "horizontalAlignment", "center", ...
345     "icon", path_icon, ...
346     "margins", [0,5,0,5], ...
347     "callback", "cbAddSite", ...
348     "constraints", createConstraints("gridbag", [2 1 1 1], [1 1], "horizontal", "left"));
349
350     sleep(500);
351     fig_pregui.visible = "on";
352 end
353
354 //opticlim uicontrol
355 if demo == 11 then
356     xdel(winsid());
357     clear onPush;
358     function onPush()
359         if 0 then
360             set("tabs", "value", 2);
361         end
362         if 1 then
363             r1 = "r1: " + string(get("radio1", "value")) + " ";
364             r2 = "r2: " + string(get("radio2", "value")) + " ";
365             c1 = "c1: " + string(get("check1", "value")) + " ";
366             c2 = "c2: " + string(get("check2", "value")) + " ";
367             t1 = "t1: " + string(get("tabs", "value"));
368             if(t1 == [])
369                 t1 = "";
370             end
371             set("label", "string", r1+r2+c1+c2+t1);
372         end
373     endfunction
374     f = createWindow();
375     f.position = [200 200 240 460];
376     f.figure_name = "";
377
378     fr1 = uicontrol("style", "frame", "position", [10 10 220 440], "border", createBorder("etched"));
379     checkbox1 = uicontrol(fr1, "style", "checkbox", "string", "Checkbox 1", "position", [10 400 200 30], "tag", "check1");
380     checkbox2 = uicontrol(fr1, "style", "checkbox", "string", "Checkbox 2", "position", [10 370 200 30], "tag", "check2");
381     editbox = uicontrol(fr1, "style", "edit", "string", "Edit", "position", [10 330 200 30]);
382     frame = uicontrol(fr1, "style", "frame", "position", [10 270 200 50]);
383     button = uicontrol(fr1, "style", "pushbutton", "string", "Pushbutton", "position", [10 230 200 30], "callback", "onPush");
384     radio1 = uicontrol(fr1, "style", "radiobutton", "string", "Radio 1", "position", [10 190 200 30], "groupname", "radio", "tag", "radio1");
385     radio2 = uicontrol(fr1, "style", "radiobutton", "string", "Radio 2", "position", [10 160 200 30], "groupname", "radio", "tag", "radio2");
386     combo = uicontrol(fr1, "style", "popupmenu", "string", "popupmenu1|popupmenu2|popupmenu3|popupmenu4", "position", [10 120 200 30]);
387
388     tab = uicontrol(fr1, "style", "tab", "position", [10 50 200 60], "tag", "tabs");
389     tab3 = uicontrol(tab, "style", "frame", "string", "Blue", "backgroundcolor", [0 0 1]);
390     tab2 = uicontrol(tab, "style", "frame", "string", "Green", "backgroundcolor", [0 1 0]);
391     tab1 = uicontrol(tab, "style", "frame", "string", "Red", "backgroundcolor", [1 0 0]);
392
393     label = uicontrol(fr1, "style", "text", "string", "some text", "position", [10 10 200 30], "horizontalalignment", "center", "tag", "label");
394 end
395
396 if demo == 12 then
397     xdel(winsid());
398     clear onPush;
399     function onPush()
400         r1 = "r1: " + string(get("radio1", "value")) + " ";
401         r2 = "r2: " + string(get("radio2", "value")) + " ";
402         c1 = "c1: " + string(get("check1", "value")) + " ";
403         c2 = "c2: " + string(get("check2", "value")) + " ";
404         t1 = "t1: " + string(get("tabs", "value"));
405         if(t1 == [])
406             t1 = "";
407         end
408         set("label", "string", r1+r2+c1+c2+t1);
409     endfunction
410     f = createWindow();
411     f.position = [200 200 240 460];
412     f.figure_name = "";
413
414     fr1 = uicontrol(f, "style", "frame", "units", "normalized", "position", [0.02 0.02 0.96 0.96], "border", createBorder("etched"));
415
416     checkbox1 = uicontrol(fr1, "style", "checkbox", "string", "Checkbox 1", "units", "normalized", "position", [0.02 0.9 0.96 0.09], "tag", "check1");
417     checkbox2 = uicontrol(fr1, "style", "checkbox", "string", "Checkbox 2", "units", "normalized", "position", [0.02 0.8 0.96 0.09], "tag", "check2");
418     editbox = uicontrol(fr1, "style", "edit", "string", "Edit", "units", "normalized", "position", [0.02 0.7 0.96 0.09]);
419     button = uicontrol(fr1, "style", "pushbutton", "string", "Pushbutton", "units", "normalized", "position", [0.02 0.6 0.96 0.09], "callback", "onPush");
420     radio1 = uicontrol(fr1, "style", "radiobutton", "string", "Radio 1", "units", "normalized", "position", [0.02 0.5 0.96 0.09], "groupname", "radio", "tag", "radio1");
421     radio2 = uicontrol(fr1, "style", "radiobutton", "string", "Radio 2", "units", "normalized", "position", [0.02 0.4 0.96 0.09], "groupname", "radio", "tag", "radio2");
422     combo = uicontrol(fr1, "style", "popupmenu", "string", "popupmenu1|popupmenu2|popupmenu3|popupmenu4", "units", "normalized", "position", [0.02 0.3 0.96 0.09]);
423
424     tab = uicontrol(fr1, "style", "tab", "units", "normalized", "position", [0.02 0.1 0.96 0.195], "tag", "tabs");
425     tab3 = uicontrol(tab, "style", "frame", "string", "Blue", "backgroundcolor", [0 0 1]);
426     tab2 = uicontrol(tab, "style", "frame", "string", "Green", "backgroundcolor", [0 1 0]);
427     tab1 = uicontrol(tab, "style", "frame", "string", "Red", "backgroundcolor", [1 0 0]);
428
429     label = uicontrol(fr1, "style", "text", "string", "some text", "units", "normalized", "position", [0.02 0.005 0.96 0.09], "horizontalalignment", "center", "tag", "label");
430 end
431
432 //opticlim
433 if demo == 13 then
434     exec("SCI/contrib/sanofi-opticlim/loader.sce");
435     OpticlimStart();
436 end
437