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, "value", 1);
  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, "value", 1);
  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, "value", 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, "value", 1);
 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, "value", 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, "value", 1);
 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), "value", 1);
 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), "value", 1);
 215
 216     set(f, "visible", "on");
 217 endfunction
 218
 219 f = demo_list_combo();
 220 clear demo_list_combo;