%h_p() fixed (missing "", datatip.text etc, label.userdata..) and improved 23/18823/7
Samuel GOUGEON [Thu, 29 Dec 2016 06:24:49 +0000 (07:24 +0100)]
 * Missing "" added mainly for uimenu and uicontrol
 * Label.user_data was missing: added
 * Datatips:
    - .text, .font_style and .font_size were missing
    - grouping of properties improved
 * Plot3d / Fac3d: each list of fields was duplicated
 * test_run gui run. tests updated / fixed. Some external unfixed ones remain.
 * test_run graphics run. tests updated / fixed. Some unfixed ones remain,
   due to independent bugs:
    - datatipRemove() missing
    - datatipSetDisplay & bug_10298: datatipSetDisplay bugged:
      asynchronous update ?
    - xload()/load() bugged
    - etc

Change-Id: I00bcc8e894ecdac59c72478b547c9a1162d13d53

23 files changed:
scilab/modules/graphics/macros/%h_p.sci
scilab/modules/graphics/tests/nonreg_tests/bug_13441.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_13441.tst
scilab/modules/graphics/tests/nonreg_tests/bug_14159.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_14159.tst
scilab/modules/graphics/tests/nonreg_tests/bug_2568.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2568.tst
scilab/modules/graphics/tests/nonreg_tests/bug_2968.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2968.tst
scilab/modules/graphics/tests/nonreg_tests/bug_4414.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_4414.tst
scilab/modules/graphics/tests/nonreg_tests/bug_4964.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_7024.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_7024.tst
scilab/modules/graphics/tests/nonreg_tests/bug_9464.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_9464.tst
scilab/modules/graphics/tests/unit_tests/mark_transparency.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_13082.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_13375.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_13375.tst
scilab/modules/gui/tests/nonreg_tests/bug_3675.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_3675.tst
scilab/modules/gui/tests/nonreg_tests/bug_7367.dia.ref

index 4875ab9..296a04b 100755 (executable)
@@ -601,19 +601,22 @@ function %h_p(h)
             "parent: "+h.parent.type
             "children: "+fmtchildren(h.children)
             "visible = "+sci2exp(h.visible)
-            "data = "+sci2exp(h.data)
-            "box_mode = "+sci2exp(h.box_mode)
-            "label_mode = "+sci2exp(h.label_mode)
+            "interp_mode = "+sci2exp(h.interp_mode)
+            "auto_orientation = "+sci2exp(h.auto_orientation)
             "orientation = "+sci2exp(h.orientation)
+            "label_mode = "+sci2exp(h.label_mode)
+            "data = "+sci2exp(h.data)
             "display_components = "+sci2exp(h.display_components)
-            "auto_orientation = "+sci2exp(h.auto_orientation)
-            "interp_mode = "+sci2exp(h.interp_mode)
             "display_function = "+sci2exp(h.display_function)
-            "detached_position = "+sci2exp(h.detached_position)
+            "text = " + sci2exp(h.text)
             "font_foreground = "+string(h.font_foreground)
+            "font_style = "+string(h.font_style)
+            "font_size = "+string(h.font_size)
+            "box_mode = "+sci2exp(h.box_mode)
+            "detached_position = "+sci2exp(h.detached_position)
+            "line_style = "+string(h.line_style)
             "foreground = "+string(h.foreground)
             "background = "+string(h.background)
-            "line_style = "+string(h.line_style)
             "mark_mode = "+sci2exp(h.mark_mode)
             "mark_style = "+sci2exp(h.mark_style)
             "mark_size_unit = "+sci2exp(h.mark_size_unit)
@@ -664,6 +667,7 @@ function %h_p(h)
             "auto_position = "+sci2exp(h.auto_position)
             "position = "+sci2exp(h.position,0)
             "auto_rotation = "+sci2exp(h.auto_rotation)
+            "user_data = "+fmtuser_data(h.user_data)
             "tag = "+sci2exp(h.tag)
             ]
 
@@ -694,15 +698,7 @@ function %h_p(h)
 
             u=h.user_data
 
-            if size(Data) == 5 then // There is a color
-                if size(Data.color,"*") > 10 then
-                    dcolor="matrix "+strcat(string(size(Data.color)),"x")
-                else
-                    dcolor=sci2exp(Data.color,0)
-                    if length(dcolor)>70 then dcolor="matrix "+strcat(string(size(Data.color)),"x"),end
-                end
-
-                t=[t;
+            t=[t;
                 "parent: "+h.parent.type
                 "children: "+fmtchildren(h.children)
                 "visible = "+sci2exp(h.visible)
@@ -718,37 +714,18 @@ function %h_p(h)
                 "data.x = "+dx
                 "data.y = "+dy
                 "data.z "+dz
-                "data.color (not used) = "+dcolor
-                "color_mode = "+string(h.color_mode)
-                "color_flag = "+sci2exp(h.color_flag,0)
-                "hiddencolor = "+string(h.hiddencolor)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "ambient_color = "+sci2exp(h.ambient_color)
-                "diffuse_color = "+sci2exp(h.diffuse_color)
-                "specular_color = "+sci2exp(h.specular_color)
-                "use_color_material = "+sci2exp(h.use_color_material)
-                "material_shininess = "+sci2exp(h.material_shininess)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+sci2exp(h.tag)
                 ]
-            else
-                t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "surface_mode = "+sci2exp(h.surface_mode)
-                "foreground = "+string(h.foreground)
-                "thickness = "+string(h.thickness)
-                "mark_mode = "+sci2exp(h.mark_mode)
-                "mark_style = "+sci2exp(h.mark_style)
-                "mark_size_unit = "+sci2exp(h.mark_size_unit)
-                "mark_size = "+string(h.mark_size)
-                "mark_foreground = "+string(h.mark_foreground)
-                "mark_background = "+string(h.mark_background)
-                "data.x = "+dx
-                "data.y = "+dy
-                "data.z = "+dz
+            if size(Data) == 5 then // There is a color
+                if size(Data.color,"*") > 10 then
+                    dcolor="matrix "+strcat(string(size(Data.color)),"x")
+                else
+                    dcolor=sci2exp(Data.color,0)
+                    if length(dcolor)>70 then dcolor="matrix "+strcat(string(size(Data.color)),"x"),end
+                end
+
+                t=[t; "data.color (not used) = "+dcolor ]
+            end
+            t=[t;
                 "color_mode = "+string(h.color_mode)
                 "color_flag = "+sci2exp(h.color_flag,0)
                 "hiddencolor = "+string(h.hiddencolor)
@@ -762,7 +739,6 @@ function %h_p(h)
                 "user_data = "+fmtuser_data(u)
                 "tag = "+sci2exp(h.tag)
                 ]
-            end
 
             // Fac3d
             // =====================================================================
@@ -792,15 +768,7 @@ function %h_p(h)
 
             u=h.user_data;
 
-            if size(Data) == 5 then // There is a color
-                if size(Data.color,"*") > 10 then
-                    dcolor="matrix "+strcat(string(size(Data.color)),"x")
-                else
-                    dcolor=sci2exp(Data.color,0)
-                    if length(dcolor)>70 then dcolor="matrix "+strcat(string(size(Data.color)),"x"),end
-                end
-
-                t=[t;
+            t=[t;
                 "parent: "+h.parent.type
                 "children: "+fmtchildren(h.children)
                 "visible = "+sci2exp(h.visible)
@@ -816,7 +784,17 @@ function %h_p(h)
                 "data.x = "+dx
                 "data.y = "+dy
                 "data.z = "+dz
-                "data.color = "+dcolor
+                ]
+            if size(Data) == 5 then // There is a color
+                if size(Data.color,"*") > 10 then
+                    dcolor="matrix "+strcat(string(size(Data.color)),"x")
+                else
+                    dcolor=sci2exp(Data.color,0)
+                    if length(dcolor)>70 then dcolor="matrix "+strcat(string(size(Data.color)),"x"),end
+                end
+                t=[t; "data.color = "+dcolor]
+            end
+            t=[t;
                 "color_mode = "+string(h.color_mode)
                 "color_flag = "+sci2exp(h.color_flag,0)
                 "cdata_mapping = "+sci2exp(h.cdata_mapping)
@@ -831,37 +809,6 @@ function %h_p(h)
                 "user_data = "+fmtuser_data(u)
                 "tag = "+sci2exp(h.tag)
                 ]
-            else
-                t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "surface_mode = "+sci2exp(h.surface_mode)
-                "foreground = "+string(h.foreground)
-                "thickness = "+string(h.thickness)
-                "mark_mode = "+sci2exp(h.mark_mode)
-                "mark_style = "+sci2exp(h.mark_style)
-                "mark_size_unit = "+sci2exp(h.mark_size_unit)
-                "mark_size = "+string(h.mark_size)
-                "mark_foreground = "+string(h.mark_foreground)
-                "mark_background = "+string(h.mark_background)
-                "data.x = "+dx
-                "data.y = "+dy
-                "data.z = "+dz
-                "color_mode = "+string(h.color_mode)
-                "color_flag = "+sci2exp(h.color_flag,0)
-                "hiddencolor = "+string(h.hiddencolor)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "ambient_color = "+sci2exp(h.ambient_color)
-                "diffuse_color = "+sci2exp(h.diffuse_color)
-                "specular_color = "+sci2exp(h.specular_color)
-                "usecolor_material = "+sci2exp(h.use_color_material)
-                "material_shininess = "+sci2exp(h.material_shininess)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+sci2exp(h.tag)
-                ]
-            end
 
             // Param3d
             // =====================================================================
@@ -963,10 +910,10 @@ function %h_p(h)
             "Children: "+fmtchildren(h.children)
             "Enable = "+sci2exp(h.enable)
             "Foregroundcolor = "+sci2exp(h.foregroundcolor,0)
-            "Label = "+h.label
+            "Label = "+sci2exp(h.label)
             "Handle_Visible = "+sci2exp(h.handle_visible)
             "Visible = "+sci2exp(h.visible)
-            "Callback = "+h.callback
+            "Callback = "+sci2exp(h.callback)
             "Callback_Type = "+sci2exp(h.callback_type,0)
             "Checked =  "+sci2exp(h.checked)
             "Icon =  "+sci2exp(h.icon)
@@ -1013,7 +960,7 @@ function %h_p(h)
             showHiddenProperties = get(get(0), "ShowHiddenProperties") == "on";
             t($ + 1) = "Parent: " + h.parent.type;
             t($ + 1) = "Children: " + fmtchildren(h.children);
-            t($ + 1) = "Style = " + h.style;
+            t($ + 1) = "Style = " + sci2exp(h.style);
             if and(h.style <> ["popupmenu"]) | showHiddenProperties then
                 t($ + 1) = "BackgroundColor = " + sci2exp(h.backgroundcolor,0);
             end
@@ -1021,17 +968,17 @@ function %h_p(h)
                 t($ + 1) = "Border = " + sci2exp(b);
             end
             if and(h.style <> ["frame", "layer", "text"]) | showHiddenProperties then
-                t($ + 1) = "Callback = " + h.callback;
+                t($ + 1) = "Callback = " + sci2exp(h.callback);
                 t($ + 1) = "Callback_Type = " + sci2exp(h.callback_type,0);
             end
             t($ + 1) = "Constraints = " + sci2exp(c);
             t($ + 1) = "Enable = " + sci2exp(h.enable);
             if and(h.style <> ["image", "slider", "layer"]) | showHiddenProperties then
-                t($ + 1) = "FontAngle = " + h.fontangle;
-                t($ + 1) = "FontName = " + h.fontname;
+                t($ + 1) = "FontAngle = " + sci2exp(h.fontangle);
+                t($ + 1) = "FontName = " + sci2exp(h.fontname);
                 t($ + 1) = "FontSize = " + sci2exp(h.fontsize);
-                t($ + 1) = "FontUnits = " + h.fontunits;
-                t($ + 1) = "FontWeight = " + h.fontweight;
+                t($ + 1) = "FontUnits = " + sci2exp(h.fontunits);
+                t($ + 1) = "FontWeight = " + sci2exp(h.fontweight);
             end
             if and(h.style <> ["frame", "layer", "tab", "slider", "image", "popupmenu"]) | showHiddenProperties then
                 t($ + 1) = "ForegroundColor = " + sci2exp(h.foregroundcolor,0);
@@ -1040,7 +987,7 @@ function %h_p(h)
                 t($ + 1) = "Groupname = " + sci2exp(h.groupname);
             end
             if and(h.style <> ["frame", "layer", "tab", "listbox", "popupmenu"]) | showHiddenProperties then
-                t($ + 1) = "HorizontalAlignment = " + h.horizontalalignment;
+                t($ + 1) = "HorizontalAlignment = " + sci2exp(h.horizontalalignment);
             end
             if or(h.style == ["text", "pushbutton", "frame"]) | showHiddenProperties then
                 t($ + 1) = "Icon = " + fmtuser_data(h.icon);
@@ -1058,7 +1005,7 @@ function %h_p(h)
                 t($ + 1) = "Min = " + sci2exp(h.min);
             end
             t($ + 1) = "Position = " + sci2exp(h.position,0);
-            t($ + 1) = "Relief = " + h.relief;
+            t($ + 1) = "Relief = " + sci2exp(h.relief);
             if or(h.style == ["frame", "edit"]) | showHiddenProperties then
                 t($ + 1) = "Scrollable = " + sci2exp(h.scrollable);
             end
@@ -1074,14 +1021,14 @@ function %h_p(h)
                 t($ + 1) = "Title_scroll = " + sci2exp(h.title_scroll);
             end
             t($ + 1) = "TooltipString = " + fmtuser_data(h.tooltipstring);
-            t($ + 1) = "Units = " + h.units;
+            t($ + 1) = "Units = " + sci2exp(h.units);
             t($ + 1) = "Userdata = " + fmtuser_data(u);
             if or(h.style == ["checkbox", "radiobutton", "slider", "spinner", "listbox", "edit", "layer", "tab", "popupmenu"]) | showHiddenProperties then
                 t($ + 1) = "Value = " + sci2exp(h.value,0);
             end
 
             if and(h.style <> ["frame", "layer", "tab", "listbox", "popupmenu"]) | showHiddenProperties then
-                t($ + 1) = "VerticalAlignment = " + h.verticalalignment;
+                t($ + 1) = "VerticalAlignment = " + sci2exp(h.verticalalignment);
             end
             t($ + 1) = "Visible = " + sci2exp(h.visible);
 
index 07ba565..0cfa278 100644 (file)
@@ -53,26 +53,24 @@ assert_checkequal(execstr("h = uicontrol(leftFrame," +...
 """layout"", ""grid""," +...
 """constraints"", constraint);", "errcatch"), 0);
 // KO test
-lstrFromSetBorder = gettext("Wrong type for "'%s"' property: An empty matrix or a tlist expected.\n");
-errmsgFromSetBorder = msprintf(lstrFromSetBorder, "border");
-lstrFromUicontrol =  gettext("%s: Could not set property "'%s"'.\n");
-errmsgFromUicontrol = msprintf(lstrFromUicontrol, "uicontrol", "border");
+tmp = gettext("Wrong type for "'%s"' property: An empty matrix or a tlist expected.\n");
+errmsgFromSetBorder = msprintf(tmp, "border");
+tmp =  gettext("%s: Could not set property "'%s"'.\n");
+errmsgFromUicontrol = msprintf(tmp, "uicontrol", "border");
+
 checkValues = list("border", [1, 2, 3, 4], [1 ,2; 1, 2], ...
 [1:10], [1:10]', list(), ...
-list(1, 2, 3), mlist(["MLIST", "Name", "Value"], ...
-["one","two", "three"], [1, 2, 3]));
-for i = 1:8
-    if i < 6 then
-        assert_checkerror("h = uicontrol(leftFrame," +...
+list(1, 2, 3), ...
+mlist(["MLIST", "Name", "Value"], ["one","two", "three"], [1, 2, 3]));
+action = "h = uicontrol(leftFrame," +...
         """style"", ""frame""," +...
         """border"", checkValues(i)," +...
         """layout"", ""gridbag""," +...
-        """constraints"", constraint);", errmsgFromSetBorder);
+        """constraints"", constraint);";
+for i = 1:8
+    if i < 6 then
+        assert_checkerror(action, errmsgFromSetBorder);
     else
-        assert_checkerror("h = uicontrol(leftFrame," +...
-        """style"", ""frame""," +...
-        """border"", checkValues(i)," +...
-        """layout"", ""gridbag""," +...
-        """constraints"", constraint);", errmsgFromUicontrol);
+        assert_checkerror(action, errmsgFromUicontrol);
     end
 end
index 0eaedf9..4475f38 100644 (file)
@@ -58,27 +58,24 @@ assert_checkequal(execstr("h = uicontrol(leftFrame," +...
 """constraints"", constraint);", "errcatch"), 0);
 
 // KO test
-lstrFromSetBorder = gettext("Wrong type for "'%s"' property: An empty matrix or a tlist expected.\n");
-errmsgFromSetBorder = msprintf(lstrFromSetBorder, "border");
-lstrFromUicontrol =  gettext("%s: Could not set property "'%s"'.\n");
-errmsgFromUicontrol = msprintf(lstrFromUicontrol, "uicontrol", "border");
+tmp = gettext("Wrong type for "'%s"' property: An empty matrix or a tlist expected.\n");
+errmsgFromSetBorder = msprintf(tmp, "border");
+tmp =  gettext("%s: Could not set property "'%s"'.\n");
+errmsgFromUicontrol = msprintf(tmp, "uicontrol", "border");
 
 checkValues = list("border", [1, 2, 3, 4], [1 ,2; 1, 2], ...
 [1:10], [1:10]', list(), ...
-list(1, 2, 3), mlist(["MLIST", "Name", "Value"], ...
-["one","two", "three"], [1, 2, 3]));
-for i = 1:8
-    if i < 6 then
-        assert_checkerror("h = uicontrol(leftFrame," +...
+list(1, 2, 3), ...
+mlist(["MLIST", "Name", "Value"], ["one","two", "three"], [1, 2, 3]));
+action = "h = uicontrol(leftFrame," +...
         """style"", ""frame""," +...
         """border"", checkValues(i)," +...
         """layout"", ""gridbag""," +...
-        """constraints"", constraint);", errmsgFromSetBorder);
+        """constraints"", constraint);";
+for i = 1:8
+    if i < 6 then
+        assert_checkerror(action, errmsgFromSetBorder);
     else
-        assert_checkerror("h = uicontrol(leftFrame," +...
-        """style"", ""frame""," +...
-        """border"", checkValues(i)," +...
-        """layout"", ""gridbag""," +...
-        """constraints"", constraint);", errmsgFromUicontrol);
+        assert_checkerror(action, errmsgFromUicontrol);
     end
 end
index f6ec008..456e733 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-// <-- CLI SHELL MODE -->
 // <-- Non-regression test for bug 14159 -->
 //
 // <-- Bugzilla URL -->
@@ -14,6 +13,3 @@
 // Matplot crashes Scilab on boolean input
 errmsg = msprintf(_("%s: Wrong type for input argument #%d: A real or integer expected.\n"), "Matplot", 1);
 assert_checkerror("Matplot(%f)", errmsg);
-assert_checkerror: Assertion failed: expected error message = "Matplot : Type erroné de l'argument d'entrée n°1 : Un réel ou un entier attendu." while computed error message = "Variable non définie : Matplot".
-at line   126 of function assert_checkerror ( SCI/modules/development_tools/macros/assert/assert_checkerror.sci line 135 )
-at line    32 of executed file TMPDIR/bug_14159.tst
index a096b36..4222474 100644 (file)
@@ -5,8 +5,6 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
-// <-- CLI SHELL MODE -->
-
 // <-- Non-regression test for bug 14159 -->
 //
 // <-- Bugzilla URL -->
index 670a53d..de4698a 100644 (file)
 // <-- Short Description -->
 // The arrows are not drawn in 3D when one have arrowed segs or arrowed polylines
 // merged with a surface.
-// 
+//
 plot3d()
 xsegs([0;0],[0;0]);
 e=gce();
 e.data(:,3)=[0;4];
-e.arrow_size=4   
- e  =
+e.arrow_size=4
+ e  = 
 Handle of type "Segs" with properties:
 ======================================
 parent: Axes
@@ -41,5 +40,5 @@ mark_background = -2
 clip_state = "off"
 clip_box = []
 user_data = []
-tag = 
+tag = ""
 // check that the arrow head is drawn
index 52be955..181f3bb 100644 (file)
 // <-- Short Description -->
 // The arrows are not drawn in 3D when one have arrowed segs or arrowed polylines
 // merged with a surface.
-// 
+//
 
 
 plot3d()
 xsegs([0;0],[0;0]);
 e=gce();
 e.data(:,3)=[0;4];
-e.arrow_size=4   
+e.arrow_size=4
 
 // check that the arrow head is drawn
 
index 4175a79..c97721a 100644 (file)
@@ -16,7 +16,9 @@ subplot(1,2,1);
 h = gcf();
 h1 = uicontrol(h,'style','listbox','position',[10 10 150 160]);
 set(h1,'string',"item 1|item 2|item 3");
-set(h1,'value',[1 3]);
+h1.min = 1;
+h1.max = 3;
+h1.value = [2 3];
 // used to generates an error
 ierr = execstr('subplot(1,2,2)','errcatch');
 if ierr <> 0 then bugmes();quit;end
index bb46d8c..5d68765 100644 (file)
@@ -19,7 +19,9 @@ subplot(1,2,1);
 h = gcf();
 h1 = uicontrol(h,'style','listbox','position',[10 10 150 160]);
 set(h1,'string',"item 1|item 2|item 3");
-set(h1,'value',[1 3]);
+h1.min = 1;
+h1.max = 3;
+h1.value = [2 3];
 
 // used to generates an error
 ierr = execstr('subplot(1,2,2)','errcatch');
index 7ba80f2..2378b6c 100644 (file)
@@ -5,14 +5,14 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- TEST WITH GRAPHIC -->
-// <-- Non-regression test for bug 4236 -->
+// <-- Non-regression test for bug 4414 -->
 //
 // <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=4236
+// http://bugzilla.scilab.org/4414
 //
 // <-- Short Description -->
 // Complex grayplots are not saved correctly in scilab 5.1
-//
+// 
 x = [1:2]';
 y = [1:4];
 z = cos(x)*cos(y);
@@ -21,7 +21,8 @@ f = gcf();
 save(TMPDIR + "/save.scg", "f");
 close
 load(TMPDIR + "/save.scg");
-e = gce();
+f = gcf();
+e = f.children.children;
 if or(e.data.x <> x) then bugmes();quit;end
 if or(e.data.y <> y') then bugmes();quit;end
 if or(e.data.z <> z) then bugmes();quit;end
index 256f5a2..95653c0 100644 (file)
@@ -7,10 +7,10 @@
 
 // <-- TEST WITH GRAPHIC -->
 
-// <-- Non-regression test for bug 4236 -->
+// <-- Non-regression test for bug 4414 -->
 //
 // <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=4236
+// http://bugzilla.scilab.org/4414
 //
 // <-- Short Description -->
 // Complex grayplots are not saved correctly in scilab 5.1
@@ -24,7 +24,8 @@ f = gcf();
 save(TMPDIR + "/save.scg", "f");
 close
 load(TMPDIR + "/save.scg");
-e = gce();
+f = gcf();
+e = f.children.children;
 if or(e.data.x <> x) then pause; end
 if or(e.data.y <> y') then pause; end
 if or(e.data.z <> z) then pause; end
index 2bcb84c..0d24a1c 100644 (file)
@@ -19,8 +19,7 @@ e=gce();
 assert_checkequal(e.format_n, "");
 // Check that the display does not crash
 e.format_n = "%0.0fcm"
- e  =
+ e  = 
 Handle of type "Axis" with properties:
 ======================================
 parent: Axes
@@ -41,6 +40,6 @@ fractional_font = "off"
 clip_state = "off"
 clip_box = []
 user_data = []
-tag = 
+tag = ""
 assert_checkequal(e.format_n, "%0.0fcm");
 assert_checkequal(e.tics_labels, string(2:7)+"cm");
index 705977c..16a8fb6 100644 (file)
 //
 // <-- Short Description -->
 // Error messages from twinkle was not standard.
-ierr = execstr("twinkle()", "errcatch");
-if lasterror() <> msprintf(gettext("%s: Wrong number of input arguments: %d or %d expected.\n"), "twinkle", 1, 2) then bugmes();quit;end
-ierr = execstr("twinkle(1)", "errcatch");
-if lasterror() <> msprintf(gettext("%s: Wrong type for input argument #%d: Graphic handle expected.\n"), "twinkle", 1) then bugmes();quit;end
 ierr = execstr("twinkle(1, 6)", "errcatch");
 if lasterror() <> msprintf(gettext("%s: Wrong type for input argument #%d: Graphic handle expected.\n"), "twinkle", 1) then bugmes();quit;end
 ierr = execstr("twinkle(gcf(), ""a string"")", "errcatch");
-if lasterror() <> msprintf(gettext("%s: Wrong type for input argument #%d: Scalar expected.\n"), "twinkle", 2) then bugmes();quit;end
+if lasterror() <> msprintf(gettext("%s: Wrong type for input argument #%d: Positive integer expected.\n"), "twinkle", 2) then bugmes();quit;end
index c236459..7ca652b 100644 (file)
 // <-- Short Description -->
 // Error messages from twinkle was not standard.
 
-ierr = execstr("twinkle()", "errcatch");
-if lasterror() <> msprintf(gettext("%s: Wrong number of input arguments: %d or %d expected.\n"), "twinkle", 1, 2) then pause, end
-
-ierr = execstr("twinkle(1)", "errcatch");
-if lasterror() <> msprintf(gettext("%s: Wrong type for input argument #%d: Graphic handle expected.\n"), "twinkle", 1) then pause, end
-
 ierr = execstr("twinkle(1, 6)", "errcatch");
 if lasterror() <> msprintf(gettext("%s: Wrong type for input argument #%d: Graphic handle expected.\n"), "twinkle", 1) then pause, end
 
 ierr = execstr("twinkle(gcf(), ""a string"")", "errcatch");
-if lasterror() <> msprintf(gettext("%s: Wrong type for input argument #%d: Scalar expected.\n"), "twinkle", 2) then pause, end
+if lasterror() <> msprintf(gettext("%s: Wrong type for input argument #%d: Positive integer expected.\n"), "twinkle", 2) then pause, end
index f054920..002790b 100644 (file)
@@ -13,5 +13,6 @@
 // <-- Short Description -->
 // contourf did not work when the "Matlab Compatibility functions module" was not installed.
 // Clear the Matlab Compatibility functions library
+predef clear
 clear compatibility_functilib
 assert_checktrue(execstr("contourf(1:10,1:10,rand(10,10),5,1:5,""011"","" "",[0,0,11,11])", "errcatch") == 0);
index c571b29..3fccbf1 100644 (file)
@@ -16,6 +16,7 @@
 // contourf did not work when the "Matlab Compatibility functions module" was not installed.
 
 // Clear the Matlab Compatibility functions library
+predef clear
 clear compatibility_functilib
 
 assert_checktrue(execstr("contourf(1:10,1:10,rand(10,10),5,1:5,""011"","" "",[0,0,11,11])", "errcatch") == 0);
index 3e7701f..c50c5a3 100644 (file)
 plot(1:10,sin(1:10))
 e=gce();
 e.children(1).mark_mode='on'
- e  =
+ e  = 
 Handle of type "Compound" with properties:
 ==========================================
 parent: Axes
 children: "Polyline"
 visible = "on"
 user_data = []
-tag = 
+tag = ""
 e.children(1).mark_style=9
- e  =
+ e  = 
 Handle of type "Compound" with properties:
 ==========================================
 parent: Axes
 children: "Polyline"
 visible = "on"
 user_data = []
-tag = 
+tag = ""
 e.children(1).mark_size_unit='tabulated'
- e  =
+ e  = 
 Handle of type "Compound" with properties:
 ==========================================
 parent: Axes
 children: "Polyline"
 visible = "on"
 user_data = []
-tag = 
+tag = ""
 e.children(1).mark_size=4
- e  =
+ e  = 
 Handle of type "Compound" with properties:
 ==========================================
 parent: Axes
 children: "Polyline"
 visible = "on"
 user_data = []
-tag = 
+tag = ""
 e.children(1).mark_background=0
- e  =
+ e  = 
 Handle of type "Compound" with properties:
 ==========================================
 parent: Axes
 children: "Polyline"
 visible = "on"
 user_data = []
-tag = 
+tag = ""
 // check that marks are transparent.
 if e.children(1).mark_background<>0 then
   pause;
index 079426a..3b34dcb 100644 (file)
@@ -23,22 +23,26 @@ assert_checkequal(d1.mark_style, 7);
 datatipSetStyle(p,1)
 assert_checkequal(d1.mark_style, 11);
 d2 = datatipCreate(p,600)
- d2  =
+ d2  = 
 Handle of type "Datatip" with properties:
 =========================================
 parent: Polyline
 children: []
 visible = "on"
-data = [600,600,0]
-box_mode = "on"
-label_mode = "on"
-orientation = 1
-z_component = "off"
-auto_orientation = "on"
 interp_mode = "on"
+auto_orientation = "on"
+orientation = 1
+label_mode = "on"
+data = [600,600,0]
+display_components = "xy"
 display_function = ""
+text = ["X:600";"Y:600"]
 font_foreground = -1
+font_style = 6
+font_size = 1
+box_mode = "on"
+detached_position = []
+line_style = 3
 foreground = -1
 background = -2
 mark_mode = "on"
@@ -48,28 +52,32 @@ mark_size = 8
 mark_foreground = 2
 mark_background = -2
 user_data = []
-tag = 
+tag = ""
 assert_checkequal(d2.mark_style, 11);
 datatipSetStyle(p,2)
 assert_checkequal(d1.mark_style, 7);
 assert_checkequal(d2.mark_style, 7);
 d3 = datatipCreate(p,800)
- d3  =
+ d3  = 
 Handle of type "Datatip" with properties:
 =========================================
 parent: Polyline
 children: []
 visible = "on"
-data = [800,800,0]
-box_mode = "on"
-label_mode = "on"
-orientation = 1
-z_component = "off"
-auto_orientation = "on"
 interp_mode = "on"
+auto_orientation = "on"
+orientation = 1
+label_mode = "on"
+data = [800,800,0]
+display_components = "xy"
 display_function = ""
+text = ["X:800";"Y:800"]
 font_foreground = -1
+font_style = 6
+font_size = 1
+box_mode = "on"
+detached_position = []
+line_style = 3
 foreground = -1
 background = -2
 mark_mode = "on"
@@ -79,5 +87,5 @@ mark_size = 8
 mark_foreground = 2
 mark_background = -2
 user_data = []
-tag = 
+tag = ""
 assert_checkequal(d3.mark_style, 7);
index a54a3ba..7cf8468 100644 (file)
 // <-- Short Description -->
 // If (Max - Min) == 1, then the multiple selection is not allowed.
 f=figure();
-h=uicontrol(f,'style','listbox', ...
- 'position', [10 10 150 160]);
-set(h, 'string', 'item 1|item 2|item3');
-assert_checkfalse(execstr('set(h, ''value'', [1 3])', 'errcatch') == 0);
+h=uicontrol(f,"style","listbox", ...
+ "position", [10 10 150 160]);
+set(h, "string", "item 1|item 2|item3");
+assert_checkfalse(execstr("set(h, ''value'', [1 3])", "errcatch") == 0);
 // Check we got the right error message
-refMsg = msprintf(_('(Max - Min) must be greater than 1 to allow the multiple selection.\n'));
-assert_checkerror('set(h, ''value'', [1 3])', refMsg);
+refMsg = msprintf(_("(Max - Min) must be greater than 1 to allow the multiple selection.\n"));
+assert_checkerror("set(h, ''value'', [1 3])", refMsg);
 close(f)
index 5280414..d3eca6c 100644 (file)
@@ -16,7 +16,7 @@
 
 f=figure();
 h=uicontrol(f,"style","listbox", ...
-"position", [10 10 150 160]);
+ "position", [10 10 150 160]);
 set(h, "string", "item 1|item 2|item3");
 
 assert_checkfalse(execstr("set(h, ''value'', [1 3])", "errcatch") == 0);
index 17e1ce8..a57a1e7 100644 (file)
@@ -25,8 +25,10 @@ h2 = uicontrol(...
     "tag", "unnom");
 // fill the list
 set(h, "string", "un|mot|accentué");
-// select item 1 and 3 in the list
-set(h, "value", [1 3]);
+// select item 2 and 3 in the list
+h.min = 1;
+h.max = 3;
+h.value = [2 3];
 // save
 save(TMPDIR + filesep() + "bug_3675.bin", "f", "h", "h2")
 // close the figure
index 7b3bc35..096efdb 100644 (file)
@@ -31,8 +31,10 @@ h2 = uicontrol(...
 
 // fill the list
 set(h, "string", "un|mot|accentué");
-// select item 1 and 3 in the list
-set(h, "value", [1 3]);
+// select item 2 and 3 in the list
+h.min = 1;
+h.max = 3;
+h.value = [2 3];
 
 // save
 save(TMPDIR + filesep() + "bug_3675.bin", "f", "h", "h2")
index ef15c09..be5e755 100644 (file)
 // Create a menu and display its properties value
 // Do not remove display since it is used to compare with .dia.ref file
 mymenu = uimenu(gcf(),"Label","Test") // Do not had a semi-colon here
- mymenu  =
+ mymenu  = 
 Handle of type "uimenu" with properties:
 ========================================
 Parent: Figure
 Children: []
 Enable = "on"
 Foregroundcolor = [0,0,0]
-Label = Test
+Label = "Test"
 Handle_Visible = "on"
 Visible = "on"
-Callback = 
+Callback = ""
 Callback_Type = 0
 Checked =  "off"
 Icon =  ""
 Userdata = []
-Tag = 
+Tag = ""
 delete(gcf());