allow listbox and poppumenu to change foreground and/or background for each items
[scilab.git] / scilab / modules / gui / demos / uicontrol_listbox_popupmenu.dem.sce
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2014 - Scilab Enterprises - Antoine ELIAS
3 //
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at
8 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
9 //
10
11 function f = demo_list_combo()
12     c = get(0);c.usedeprecatedskin = "off";
13     f = figure("dockable", "off" ,"infobar_visible", "off", "toolbar_visible", "off", "menubar_visible", "off", "default_axes", "off", "visible", "off", "layout", "gridbag");
14     set(f, "figure_id", 100001);
15     set(f, "figure_name", gettext("Listboxes and Popupmenus"));
16     set(f, "axes_size", [850 500]);
17
18     colors4 = [
19     "#000000", "Color 01", "#000000", "#FFFFFF";
20     "#000080", "Color 02", "#FFFFFF", "#000000";
21     "#0000FF", "Color 03", "#000000", "#FFFFFF";
22     "#008000", "Color 04", "#FFFFFF", "#000000";
23     "#008080", "Color 05", "#000000", "#FFFFFF";
24     "#0080FF", "Color 06", "#FFFFFF", "#000000";
25     "#00FF00", "Color 07", "#000000", "#FFFFFF";
26     "#00FF80", "Color 08", "#FFFFFF", "#000000";
27     "#00FFFF", "Color 09", "#000000", "#FFFFFF";
28     "#800000", "Color 10", "#FFFFFF", "#000000";
29     "#800080", "Color 11", "#000000", "#FFFFFF";
30     "#8000FF", "Color 12", "#FFFFFF", "#000000";
31     "#808000", "Color 13", "#000000", "#FFFFFF";
32     "#808080", "Color 14", "#FFFFFF", "#000000";
33     "#8080FF", "Color 15", "#000000", "#FFFFFF";
34     "#80FF00", "Color 16", "#FFFFFF", "#000000";
35     "#80FF80", "Color 17", "#000000", "#FFFFFF";
36     "#80FFFF", "Color 18", "#FFFFFF", "#000000";
37     "#FF0000", "Color 19", "#000000", "#FFFFFF";
38     "#FF0080", "Color 20", "#FFFFFF", "#000000";
39     "#FF00FF", "Color 21", "#000000", "#FFFFFF";
40     "#FF8000", "Color 22", "#FFFFFF", "#000000";
41     "#FF8080", "Color 23", "#000000", "#FFFFFF";
42     "#FF80FF", "Color 24", "#FFFFFF", "#000000";
43     "#FFFF00", "Color 25", "#000000", "#FFFFFF";
44     "#FFFF80", "Color 26", "#FFFFFF", "#000000";
45     "#FFFFFF", "Color 27", "#000000", "#FFFFFF"];
46
47     c = createConstraints("gridbag", [1, 1, 1, 1], [1 1], "both");
48     uicontrol(f, "style", "listbox", "constraints", c, "margins", [5 5 5 5], "string", colors4);
49
50     c = createConstraints("gridbag", [1, 2, 1, 1], [0 0], "both");
51     uicontrol(f, "style", "popupmenu", "constraints", c, "margins", [5 5 5 5], "string", colors4);
52
53     colors4(1:4:$,1) = "go-up";
54     colors4(2:4:$,1) = "go-previous";
55     colors4(3:4:$,1) = "go-down";
56     colors4(4:4:$,1) = "go-next";
57
58     c = createConstraints("gridbag", [1, 3, 1, 1], [1 1], "both");
59     uicontrol(f, "style", "listbox", "constraints", c, "margins", [5 5 5 5], "string", colors4);
60
61     c = createConstraints("gridbag", [1, 4, 1, 1], [0 0], "both");
62     uicontrol(f, "style", "popupmenu", "constraints", c, "margins", [5 5 5 5], "string", colors4);
63
64     colors3_1 = [
65     "#000000", "Color 01", "#D0D0D0";
66     "#000080", "Color 02", "#FFFFFF";
67     "#0000FF", "Color 03", "#D0D0D0";
68     "#008000", "Color 04", "#FFFFFF";
69     "#008080", "Color 05", "#D0D0D0";
70     "#0080FF", "Color 06", "#FFFFFF";
71     "#00FF00", "Color 07", "#D0D0D0";
72     "#00FF80", "Color 08", "#FFFFFF";
73     "#00FFFF", "Color 09", "#D0D0D0";
74     "#800000", "Color 10", "#FFFFFF";
75     "#800080", "Color 11", "#D0D0D0";
76     "#8000FF", "Color 12", "#FFFFFF";
77     "#808000", "Color 13", "#D0D0D0";
78     "#808080", "Color 14", "#FFFFFF";
79     "#8080FF", "Color 15", "#D0D0D0";
80     "#80FF00", "Color 16", "#FFFFFF";
81     "#80FF80", "Color 17", "#D0D0D0";
82     "#80FFFF", "Color 18", "#FFFFFF";
83     "#FF0000", "Color 19", "#D0D0D0";
84     "#FF0080", "Color 20", "#FFFFFF";
85     "#FF00FF", "Color 21", "#D0D0D0";
86     "#FF8000", "Color 22", "#FFFFFF";
87     "#FF8080", "Color 23", "#D0D0D0";
88     "#FF80FF", "Color 24", "#FFFFFF";
89     "#FFFF00", "Color 25", "#D0D0D0";
90     "#FFFF80", "Color 26", "#FFFFFF";
91     "#FFFFFF", "Color 27", "#D0D0D0"];
92
93     c = createConstraints("gridbag", [2, 1, 1, 1], [1 1], "both");
94     uicontrol(f, "style", "listbox", "constraints", c, "margins", [5 5 5 5], "string", colors3_1);
95
96     c = createConstraints("gridbag", [2, 2, 1, 1], [0 0], "both");
97     cb3_1 = uicontrol(f, "style", "popupmenu", "constraints", c, "margins", [5 5 5 5], "string", colors3_1);
98
99     colors3_2 = [
100     "Color 01", "#000000", "#FFFFFF";
101     "Color 02", "#FFFFFF", "#000000";
102     "Color 03", "#000000", "#FFFFFF";
103     "Color 04", "#FFFFFF", "#000000";
104     "Color 05", "#000000", "#FFFFFF";
105     "Color 06", "#FFFFFF", "#000000";
106     "Color 07", "#000000", "#FFFFFF";
107     "Color 08", "#FFFFFF", "#000000";
108     "Color 09", "#000000", "#FFFFFF";
109     "Color 10", "#FFFFFF", "#000000";
110     "Color 11", "#000000", "#FFFFFF";
111     "Color 12", "#FFFFFF", "#000000";
112     "Color 13", "#000000", "#FFFFFF";
113     "Color 14", "#FFFFFF", "#000000";
114     "Color 15", "#000000", "#FFFFFF";
115     "Color 16", "#FFFFFF", "#000000";
116     "Color 17", "#000000", "#FFFFFF";
117     "Color 18", "#FFFFFF", "#000000";
118     "Color 19", "#000000", "#FFFFFF";
119     "Color 20", "#FFFFFF", "#000000";
120     "Color 21", "#000000", "#FFFFFF";
121     "Color 22", "#FFFFFF", "#000000";
122     "Color 23", "#000000", "#FFFFFF";
123     "Color 24", "#FFFFFF", "#000000";
124     "Color 25", "#000000", "#FFFFFF";
125     "Color 26", "#FFFFFF", "#000000";
126     "Color 27", "#000000", "#FFFFFF"];
127
128     c = createConstraints("gridbag", [2, 3, 1, 1], [1 1], "both");
129     lst3_2 = uicontrol(f, "style", "listbox", "constraints", c, "margins", [5 5 5 5], "string", colors3_2);
130
131     c = createConstraints("gridbag", [2, 4, 1, 1], [0 0], "both");
132     cb3_2 = uicontrol(f, "style", "popupmenu", "constraints", c, "margins", [5 5 5 5], "string", colors3_2);
133
134     colors2_1 = [
135     "#000000", "Color 01";
136     "#000080", "Color 02";
137     "#0000FF", "Color 03";
138     "#008000", "Color 04";
139     "#008080", "Color 05";
140     "#0080FF", "Color 06";
141     "#00FF00", "Color 07";
142     "#00FF80", "Color 08";
143     "#00FFFF", "Color 09";
144     "#800000", "Color 10";
145     "#800080", "Color 11";
146     "#8000FF", "Color 12";
147     "#808000", "Color 13";
148     "#808080", "Color 14";
149     "#8080FF", "Color 15";
150     "#80FF00", "Color 16";
151     "#80FF80", "Color 17";
152     "#80FFFF", "Color 18";
153     "#FF0000", "Color 19";
154     "#FF0080", "Color 20";
155     "#FF00FF", "Color 21";
156     "#FF8000", "Color 22";
157     "#FF8080", "Color 23";
158     "#FF80FF", "Color 24";
159     "#FFFF00", "Color 25";
160     "#FFFF80", "Color 26";
161     "#FFFFFF", "Color 27"];
162
163     c = createConstraints("gridbag", [3, 1, 1, 1], [1 1], "both");
164     uicontrol(f, "style", "listbox", "constraints", c, "margins", [5 5 5 5], "string", colors2_1);
165
166     c = createConstraints("gridbag", [3, 2, 1, 1], [0 0], "both");
167     uicontrol(f, "style", "popupmenu", "constraints", c, "margins", [5 5 5 5], "string", colors2_1);
168
169     colors2_2 = [
170     "Color 01", "#D0D0D0";
171     "Color 02", "#FFFFFF";
172     "Color 03", "#D0D0D0";
173     "Color 04", "#FFFFFF";
174     "Color 05", "#D0D0D0";
175     "Color 06", "#FFFFFF";
176     "Color 07", "#D0D0D0";
177     "Color 08", "#FFFFFF";
178     "Color 09", "#D0D0D0";
179     "Color 10", "#FFFFFF";
180     "Color 11", "#D0D0D0";
181     "Color 12", "#FFFFFF";
182     "Color 13", "#D0D0D0";
183     "Color 14", "#FFFFFF";
184     "Color 15", "#D0D0D0";
185     "Color 16", "#FFFFFF";
186     "Color 17", "#D0D0D0";
187     "Color 18", "#FFFFFF";
188     "Color 19", "#D0D0D0";
189     "Color 20", "#FFFFFF";
190     "Color 21", "#D0D0D0";
191     "Color 22", "#FFFFFF";
192     "Color 23", "#D0D0D0";
193     "Color 24", "#FFFFFF";
194     "Color 25", "#D0D0D0";
195     "Color 26", "#FFFFFF";
196     "Color 27", "#D0D0D0"];
197
198     c = createConstraints("gridbag", [3, 3, 1, 1], [1 1], "both");
199     uicontrol(f, "style", "listbox", "constraints", c, "margins", [5 5 5 5], "string", colors2_2);
200
201     c = createConstraints("gridbag", [3, 4, 1, 1], [0 0], "both");
202     uicontrol(f, "style", "popupmenu", "constraints", c, "margins", [5 5 5 5], "string", colors2_2);
203
204     c = createConstraints("gridbag", [4, 1, 1, 1], [1 1], "both");
205     uicontrol(f, "style", "listbox", "constraints", c, "margins", [5 5 5 5], "string", colors4(:,1:2));
206
207     c = createConstraints("gridbag", [4, 2, 1, 1], [0 0], "both");
208     uicontrol(f, "style", "popupmenu", "constraints", c, "margins", [5 5 5 5], "string", colors4(:,1:2));
209
210     c = createConstraints("gridbag", [4, 3, 1, 1], [1 1], "both");
211     uicontrol(f, "style", "listbox", "constraints", c, "margins", [5 5 5 5], "string", colors4(:,2));
212
213     c = createConstraints("gridbag", [4, 4, 1, 1], [0 0], "both");
214     uicontrol(f, "style", "popupmenu", "constraints", c, "margins", [5 5 5 5], "string", colors4(:,2));
215
216     set(f, "visible", "on");
217 endfunction
218
219 f = demo_list_combo();
220 clear demo_list_combo;