Xcos MVC: Fixed default datatype
[scilab.git] / scilab / modules / scicos / tests / unit_tests / model / Annotation.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2014 - Scilab Enterprises - Paul Bignier
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 loadXcosLibs();
9
10 p = funcprot();
11 funcprot(0);
12 // Overload scicos_getvalue and xstringl to customize parameters
13 function [ok,txt,font,siz,exprs] = scicos_getvalue(title, fields, types, exprs)
14     ok = %t;
15     txt = "newText";
16     font = 3;
17     siz = 4;
18     exprs = [txt; string(font); string(siz)];
19 endfunction
20 function r = xstringl(a, b, c, d, e)
21     r = [0 0 3 4];
22 endfunction
23 funcprot(p);
24
25 // Allocate an Annotation
26 o = TEXT_f("define")
27 o.graphics
28 o.model
29 o.void
30 o.gui
31
32 // Modify it
33 o = TEXT_f("set", o)
34 close;
35 o.graphics
36 o.model
37 o.void
38 o.gui