Xcos MVC: Fixed default datatype
[scilab.git] / scilab / modules / scicos / tests / unit_tests / model / Annotation.dia.ref
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 loadXcosLibs();
8 p = funcprot();
9 funcprot(0);
10 // Overload scicos_getvalue and xstringl to customize parameters
11 function [ok,txt,font,siz,exprs] = scicos_getvalue(title, fields, types, exprs)
12     ok = %t;
13     txt = "newText";
14     font = 3;
15     siz = 4;
16     exprs = [txt; string(font); string(siz)];
17 endfunction
18 function r = xstringl(a, b, c, d, e)
19     r = [0 0 3 4];
20 endfunction
21 funcprot(p);
22 // Allocate an Annotation
23 o = TEXT_f("define")
24 objectCreated( 1 , ANNOTATION )
25 propertyUpdated( 1 , ANNOTATION , GEOMETRY ) : NO_CHANGES
26 propertyUpdated( 1 , ANNOTATION , GEOMETRY ) : NO_CHANGES
27 propertyUpdated( 1 , ANNOTATION , DESCRIPTION ) : NO_CHANGES
28 propertyUpdated( 1 , ANNOTATION , FONT ) : NO_CHANGES
29 propertyUpdated( 1 , ANNOTATION , FONT_SIZE ) : NO_CHANGES
30 o  = 
31 scicos_Text type :
32   graphics
33   model
34   void
35   gui
36 o.graphics
37  ans  =
38 orig = [0,0]
39 sz = [2,1]
40 exprs = ["Text";"2";"1"]
41 o.model
42  ans  =
43  type: 0
44 "rpar"
45 "ipar"
46 o.void
47  ans  =
48     []
49 o.gui
50  ans  =
51     []
52 // Modify it
53 o = TEXT_f("set", o)
54 propertyUpdated( 1 , ANNOTATION , GEOMETRY ) : NO_CHANGES
55 propertyUpdated( 1 , ANNOTATION , GEOMETRY ) : SUCCESS
56 propertyUpdated( 1 , ANNOTATION , DESCRIPTION ) : SUCCESS
57 propertyUpdated( 1 , ANNOTATION , FONT ) : SUCCESS
58 propertyUpdated( 1 , ANNOTATION , FONT_SIZE ) : SUCCESS
59 o  = 
60 scicos_Text type :
61   graphics
62   model
63   void
64   gui
65 close;
66 o.graphics
67  ans  =
68 orig = [0,0]
69 sz = [3,4]
70 exprs = ["newText";"3";"4"]
71 o.model
72  ans  =
73  type: 0
74 "rpar"
75 "ipar"
76 o.void
77  ans  =
78     []
79 o.gui
80  ans  =
81     []