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     []