* Bug #11489 fixed - 'SliderStep' property was ignored for uicontrols.
[scilab.git] / scilab / modules / gui / tests / nonreg_tests / bug_11489.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2012 - Scilab Enterprises - Vincent COUVERT
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- Non-regression test for bug 11489 -->
9 // <-- TEST WITH GRAPHIC -->
10 // <-- INTERACTIVE TEST -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/11489
14 //
15 // <-- Short Description -->
16 // 'SliderStep' property was ignored for uicontrols.
17
18 // 1 - Create a slider without setting the SliderStep property
19 f = gcf();
20 editH = uicontrol("Parent", f, ..
21         "Style", "edit", ..
22         "Position", [60 36 50 16], ..
23         "String", "500", ..
24         "Backgroundcolor", [1 1 1], ..
25         "Tag", "edit");
26
27 sliderH = uicontrol("Parent", f, ..
28         "Style", "slider", ..
29         "Position", [10 8 200 20], ..
30         "Value", 500, ..
31         "Min", 0, ..
32         "Max", 1000, ..
33         "Tag", "slider", ..
34         "Callback", "cbSlider");
35
36 function cbSlider()
37     s = findobj("Tag", "slider");
38     e = findobj("Tag", "edit");
39     sVal = get(s, "value");
40     set(e, "String", string(sVal));
41 endfunction
42
43 // Click on the slider arrows and check that the value in the edit change with a step of 10
44 // Click in the slider (arround the knob) and check that the value in the edit change with a step of 100
45
46 delete(gcf())
47
48 // 2 - Create a slider setting only the first value of the SliderStep property
49 f = gcf();
50 editH = uicontrol("Parent", f, ..
51         "Style", "edit", ..
52         "Position", [60 36 50 16], ..
53         "String", "500", ..
54         "Backgroundcolor", [1 1 1], ..
55         "Tag", "edit");
56
57 sliderH = uicontrol("Parent", f, ..
58         "Style", "slider", ..
59         "Position", [10 8 200 20], ..
60         "Value", 500, ..
61         "Min", 0, ..
62         "Max", 1000, ..
63         "Tag", "slider", ..
64         "SliderStep", 50, ..
65         "Callback", "cbSlider");
66
67 function cbSlider()
68     s = findobj("Tag", "slider");
69     e = findobj("Tag", "edit");
70     sVal = get(s, "value");
71     set(e, "String", string(sVal));
72 endfunction
73
74 // Click on the slider arrows and check that the value in the edit change with a step of 50
75 // Click in the slider (arround the knob) and check that the value in the edit change with a step of 100
76
77 // 3 - Create a slider setting the SliderStep property
78 f = gcf();
79 editH = uicontrol("Parent", f, ..
80         "Style", "edit", ..
81         "Position", [60 36 50 16], ..
82         "String", "500", ..
83         "Backgroundcolor", [1 1 1], ..
84         "Tag", "edit");
85
86 sliderH = uicontrol("Parent", f, ..
87         "Style", "slider", ..
88         "Position", [10 8 200 20], ..
89         "Value", 500, ..
90         "Min", 0, ..
91         "Max", 1000, ..
92         "Tag", "slider", ..
93         "SliderStep", [100 200], ..
94         "Callback", "cbSlider");
95
96 function cbSlider()
97     s = findobj("Tag", "slider");
98     e = findobj("Tag", "edit");
99     sVal = get(s, "value");
100     set(e, "String", string(sVal));
101 endfunction
102
103 // Click on the slider arrows and check that the value in the edit change with a step of 100
104 // Click in the slider (arround the knob) and check that the value in the edit change with a step of 200
105
106 delete(gcf())