Xcos: fix memleak on MVC objects after 238f0650
[scilab.git] / scilab / modules / scicos / tests / unit_tests / do_eval.dia.ref
index a6bb974..f7fb2ee 100644 (file)
 // =============================================================================
 //
 // <-- CLI SHELL MODE -->
+scicos_log("INFO")
+ ans  =
+ WARNING
 loadXcosLibs();
 // check contained blocks interfaces
 o = CONST_m("define");
+Xcos info:    objectCreated( 1 , BLOCK )
+Xcos info:    objectCreated( 2 , PORT )
 assert_checkequal(o.graphics.pin, []);
 assert_checkequal(o.graphics.pout, 0);
 assert_checkequal(o.graphics.pein, []);
 assert_checkequal(o.graphics.peout, []);
 clear o
+Xcos info:    objectDeleted( 2 , PORT )
+Xcos info:    objectDeleted( 1 , BLOCK )
 o = TRASH_f("define");
+Xcos info:    objectCreated( 3 , BLOCK )
+Xcos info:    objectCreated( 4 , PORT )
+Xcos info:    objectCreated( 5 , PORT )
 assert_checkequal(o.graphics.pin, 0);
 assert_checkequal(o.graphics.pout, []);
 assert_checkequal(o.graphics.pein, 0);
 assert_checkequal(o.graphics.peout, []);
 clear o
+Xcos info:    objectDeleted( 4 , PORT )
+Xcos info:    objectDeleted( 5 , PORT )
+Xcos info:    objectDeleted( 3 , BLOCK )
 o = CLOCK_f("define");
+Xcos info:    objectCreated( 6 , BLOCK )
+Xcos info:    objectCreated( 7 , PORT )
+Xcos info:    objectCreated( 8 , PORT )
+Xcos info:    objectCreated( 9 , BLOCK )
+Xcos info:    objectCreated( 10 , PORT )
+Xcos info:    objectCreated( 11 , BLOCK )
+Xcos info:    objectCreated( 12 , PORT )
+Xcos info:    objectCreated( 13 , PORT )
+Xcos info:    objectCreated( 14 , PORT )
+Xcos info:    objectCreated( 15 , DIAGRAM )
+Xcos info:    objectCreated( 16 , BLOCK )
+Xcos info:    objectCloned( 9 , 16 , BLOCK )
+Xcos info:    objectCreated( 17 , PORT )
+Xcos info:    objectCloned( 10 , 17 , PORT )
+Xcos info:    objectCreated( 18 , BLOCK )
+Xcos info:    objectCloned( 6 , 18 , BLOCK )
+Xcos info:    objectCreated( 19 , PORT )
+Xcos info:    objectCloned( 7 , 19 , PORT )
+Xcos info:    objectCreated( 20 , PORT )
+Xcos info:    objectCloned( 8 , 20 , PORT )
+Xcos info:    objectCreated( 21 , LINK )
+Xcos info:    objectCreated( 22 , LINK )
+Xcos info:    objectCloned( 21 , 22 , LINK )
+Xcos info:    objectDeleted( 21 , LINK )
+Xcos info:    objectCreated( 23 , BLOCK )
+Xcos info:    objectCloned( 11 , 23 , BLOCK )
+Xcos info:    objectCreated( 24 , PORT )
+Xcos info:    objectCloned( 12 , 24 , PORT )
+Xcos info:    objectCreated( 25 , PORT )
+Xcos info:    objectCloned( 13 , 25 , PORT )
+Xcos info:    objectCreated( 26 , PORT )
+Xcos info:    objectCloned( 14 , 26 , PORT )
+Xcos info:    objectCreated( 27 , LINK )
+Xcos info:    objectCreated( 28 , LINK )
+Xcos info:    objectCloned( 27 , 28 , LINK )
+Xcos info:    objectDeleted( 27 , LINK )
+Xcos info:    objectCreated( 29 , LINK )
+Xcos info:    objectCreated( 30 , LINK )
+Xcos info:    objectCloned( 29 , 30 , LINK )
+Xcos info:    objectDeleted( 29 , LINK )
+Xcos info:    objectCreated( 31 , BLOCK )
+Xcos info:    objectCreated( 32 , PORT )
+Xcos info:    objectCreated( 33 , BLOCK )
+Xcos info:    objectCloned( 16 , 33 , BLOCK )
+Xcos info:    objectCreated( 34 , PORT )
+Xcos info:    objectCloned( 17 , 34 , PORT )
+Xcos info:    objectCreated( 35 , BLOCK )
+Xcos info:    objectCloned( 18 , 35 , BLOCK )
+Xcos info:    objectCreated( 36 , PORT )
+Xcos info:    objectCloned( 19 , 36 , PORT )
+Xcos info:    objectCreated( 37 , PORT )
+Xcos info:    objectCloned( 20 , 37 , PORT )
+Xcos info:    objectCreated( 38 , LINK )
+Xcos info:    objectCloned( 22 , 38 , LINK )
+Xcos info:    objectCreated( 39 , BLOCK )
+Xcos info:    objectCloned( 23 , 39 , BLOCK )
+Xcos info:    objectCreated( 40 , PORT )
+Xcos info:    objectCloned( 24 , 40 , PORT )
+Xcos info:    objectCreated( 41 , PORT )
+Xcos info:    objectCloned( 25 , 41 , PORT )
+Xcos info:    objectCreated( 42 , PORT )
+Xcos info:    objectCloned( 26 , 42 , PORT )
+Xcos info:    objectCreated( 43 , LINK )
+Xcos info:    objectCloned( 28 , 43 , LINK )
+Xcos info:    objectCreated( 44 , LINK )
+Xcos info:    objectCloned( 30 , 44 , LINK )
+Xcos info:    objectDeleted( 17 , PORT )
+Xcos info:    objectDeleted( 16 , BLOCK )
+Xcos info:    objectDeleted( 19 , PORT )
+Xcos info:    objectDeleted( 20 , PORT )
+Xcos info:    objectDeleted( 18 , BLOCK )
+Xcos info:    objectDeleted( 22 , LINK )
+Xcos info:    objectDeleted( 24 , PORT )
+Xcos info:    objectDeleted( 25 , PORT )
+Xcos info:    objectDeleted( 26 , PORT )
+Xcos info:    objectDeleted( 23 , BLOCK )
+Xcos info:    objectDeleted( 28 , LINK )
+Xcos info:    objectDeleted( 30 , LINK )
+Xcos info:    objectDeleted( 15 , DIAGRAM )
+Xcos info:    objectDeleted( 7 , PORT )
+Xcos info:    objectDeleted( 8 , PORT )
+Xcos info:    objectDeleted( 6 , BLOCK )
+Xcos info:    objectDeleted( 10 , PORT )
+Xcos info:    objectDeleted( 9 , BLOCK )
+Xcos info:    objectDeleted( 12 , PORT )
+Xcos info:    objectDeleted( 13 , PORT )
+Xcos info:    objectDeleted( 14 , PORT )
+Xcos info:    objectDeleted( 11 , BLOCK )
 assert_checkequal(o.graphics.pin, []);
 assert_checkequal(o.graphics.pout, []);
 assert_checkequal(o.graphics.pein, []);
@@ -38,6 +139,20 @@ assert_checkequal(o.model.rpar.objs(2).graphics.pout, []);
 assert_checkequal(o.model.rpar.objs(2).graphics.pein, 6);
 assert_checkequal(o.model.rpar.objs(2).graphics.peout, 3);
 clear o
+Xcos info:    objectDeleted( 32 , PORT )
+Xcos info:    objectDeleted( 34 , PORT )
+Xcos info:    objectDeleted( 33 , BLOCK )
+Xcos info:    objectDeleted( 36 , PORT )
+Xcos info:    objectDeleted( 37 , PORT )
+Xcos info:    objectDeleted( 35 , BLOCK )
+Xcos info:    objectDeleted( 38 , LINK )
+Xcos info:    objectDeleted( 40 , PORT )
+Xcos info:    objectDeleted( 41 , PORT )
+Xcos info:    objectDeleted( 42 , PORT )
+Xcos info:    objectDeleted( 39 , BLOCK )
+Xcos info:    objectDeleted( 43 , LINK )
+Xcos info:    objectDeleted( 44 , LINK )
+Xcos info:    objectDeleted( 31 , BLOCK )
 // create a block and connect it
 function o = create_and_connect(fname, pin, pout, pein, peout)
     o = fname("define");
@@ -53,6 +168,102 @@ TRASH_f("define"), ..
 CLOCK_c("define"), ..
 scicos_link(from=[1 1 0],to=[2 1 1]), ..
 scicos_link(from=[3 1 0],to=[2 1 1],ct=[5,-1])));
+Xcos info:    objectCreated( 45 , BLOCK )
+Xcos info:    objectCreated( 46 , PORT )
+Xcos info:    objectCreated( 47 , BLOCK )
+Xcos info:    objectCreated( 48 , PORT )
+Xcos info:    objectCreated( 49 , PORT )
+Xcos info:    objectCreated( 50 , BLOCK )
+Xcos info:    objectCreated( 51 , PORT )
+Xcos info:    objectCreated( 52 , PORT )
+Xcos info:    objectCreated( 53 , BLOCK )
+Xcos info:    objectCreated( 54 , PORT )
+Xcos info:    objectCreated( 55 , BLOCK )
+Xcos info:    objectCreated( 56 , PORT )
+Xcos info:    objectCreated( 57 , PORT )
+Xcos info:    objectCreated( 58 , PORT )
+Xcos info:    objectCreated( 59 , DIAGRAM )
+Xcos info:    objectCreated( 60 , BLOCK )
+Xcos info:    objectCloned( 53 , 60 , BLOCK )
+Xcos info:    objectCreated( 61 , PORT )
+Xcos info:    objectCloned( 54 , 61 , PORT )
+Xcos info:    objectCreated( 62 , BLOCK )
+Xcos info:    objectCloned( 50 , 62 , BLOCK )
+Xcos info:    objectCreated( 63 , PORT )
+Xcos info:    objectCloned( 51 , 63 , PORT )
+Xcos info:    objectCreated( 64 , PORT )
+Xcos info:    objectCloned( 52 , 64 , PORT )
+Xcos info:    objectCreated( 65 , LINK )
+Xcos info:    objectCreated( 66 , LINK )
+Xcos info:    objectCloned( 65 , 66 , LINK )
+Xcos info:    objectDeleted( 65 , LINK )
+Xcos info:    objectCreated( 67 , BLOCK )
+Xcos info:    objectCloned( 55 , 67 , BLOCK )
+Xcos info:    objectCreated( 68 , PORT )
+Xcos info:    objectCloned( 56 , 68 , PORT )
+Xcos info:    objectCreated( 69 , PORT )
+Xcos info:    objectCloned( 57 , 69 , PORT )
+Xcos info:    objectCreated( 70 , PORT )
+Xcos info:    objectCloned( 58 , 70 , PORT )
+Xcos info:    objectCreated( 71 , LINK )
+Xcos info:    objectCreated( 72 , LINK )
+Xcos info:    objectCloned( 71 , 72 , LINK )
+Xcos info:    objectDeleted( 71 , LINK )
+Xcos info:    objectCreated( 73 , LINK )
+Xcos info:    objectCreated( 74 , LINK )
+Xcos info:    objectCloned( 73 , 74 , LINK )
+Xcos info:    objectDeleted( 73 , LINK )
+Xcos info:    objectCreated( 75 , BLOCK )
+Xcos info:    objectCreated( 76 , PORT )
+Xcos info:    objectCreated( 77 , BLOCK )
+Xcos info:    objectCloned( 60 , 77 , BLOCK )
+Xcos info:    objectCreated( 78 , PORT )
+Xcos info:    objectCloned( 61 , 78 , PORT )
+Xcos info:    objectCreated( 79 , BLOCK )
+Xcos info:    objectCloned( 62 , 79 , BLOCK )
+Xcos info:    objectCreated( 80 , PORT )
+Xcos info:    objectCloned( 63 , 80 , PORT )
+Xcos info:    objectCreated( 81 , PORT )
+Xcos info:    objectCloned( 64 , 81 , PORT )
+Xcos info:    objectCreated( 82 , LINK )
+Xcos info:    objectCloned( 66 , 82 , LINK )
+Xcos info:    objectCreated( 83 , BLOCK )
+Xcos info:    objectCloned( 67 , 83 , BLOCK )
+Xcos info:    objectCreated( 84 , PORT )
+Xcos info:    objectCloned( 68 , 84 , PORT )
+Xcos info:    objectCreated( 85 , PORT )
+Xcos info:    objectCloned( 69 , 85 , PORT )
+Xcos info:    objectCreated( 86 , PORT )
+Xcos info:    objectCloned( 70 , 86 , PORT )
+Xcos info:    objectCreated( 87 , LINK )
+Xcos info:    objectCloned( 72 , 87 , LINK )
+Xcos info:    objectCreated( 88 , LINK )
+Xcos info:    objectCloned( 74 , 88 , LINK )
+Xcos info:    objectDeleted( 61 , PORT )
+Xcos info:    objectDeleted( 60 , BLOCK )
+Xcos info:    objectDeleted( 63 , PORT )
+Xcos info:    objectDeleted( 64 , PORT )
+Xcos info:    objectDeleted( 62 , BLOCK )
+Xcos info:    objectDeleted( 66 , LINK )
+Xcos info:    objectDeleted( 68 , PORT )
+Xcos info:    objectDeleted( 69 , PORT )
+Xcos info:    objectDeleted( 70 , PORT )
+Xcos info:    objectDeleted( 67 , BLOCK )
+Xcos info:    objectDeleted( 72 , LINK )
+Xcos info:    objectDeleted( 74 , LINK )
+Xcos info:    objectDeleted( 59 , DIAGRAM )
+Xcos info:    objectDeleted( 51 , PORT )
+Xcos info:    objectDeleted( 52 , PORT )
+Xcos info:    objectDeleted( 50 , BLOCK )
+Xcos info:    objectDeleted( 54 , PORT )
+Xcos info:    objectDeleted( 53 , BLOCK )
+Xcos info:    objectDeleted( 56 , PORT )
+Xcos info:    objectDeleted( 57 , PORT )
+Xcos info:    objectDeleted( 58 , PORT )
+Xcos info:    objectDeleted( 55 , BLOCK )
+Xcos info:    objectCreated( 89 , LINK )
+Xcos info:    objectCreated( 90 , LINK )
+Xcos info:    objectCreated( 91 , DIAGRAM )
 assert_checkequal(scs_m.objs(1).graphics.pout, 4);
 assert_checkequal(scs_m.objs(2).graphics.pin, 4);
 assert_checkequal(scs_m.objs(2).graphics.pein, 5);
@@ -71,6 +282,249 @@ assert_checkequal(scs_m.objs(3).model.rpar.objs(2).graphics.pein, 6);
 assert_checkequal(scs_m.objs(3).model.rpar.objs(2).graphics.peout, 3);
 needcompile = 4;
 [scs_m, %cpr, needcompile, ok] = do_eval(scs_m, list(),struct());
+Xcos info:    objectCreated( 92 , BLOCK )
+Xcos info:    objectCloned( 45 , 92 , BLOCK )
+Xcos info:    objectCreated( 93 , PORT )
+Xcos info:    objectCloned( 46 , 93 , PORT )
+Xcos info:    objectCreated( 94 , BLOCK )
+Xcos info:    objectCloned( 77 , 94 , BLOCK )
+Xcos info:    objectCreated( 95 , PORT )
+Xcos info:    objectCloned( 78 , 95 , PORT )
+Xcos info:    objectCreated( 96 , BLOCK )
+Xcos info:    objectCloned( 79 , 96 , BLOCK )
+Xcos info:    objectCreated( 97 , PORT )
+Xcos info:    objectCloned( 80 , 97 , PORT )
+Xcos info:    objectCreated( 98 , PORT )
+Xcos info:    objectCloned( 81 , 98 , PORT )
+Xcos info:    objectCreated( 99 , BLOCK )
+Xcos info:    objectCloned( 75 , 99 , BLOCK )
+Xcos info:    objectCreated( 100 , PORT )
+Xcos info:    objectCloned( 76 , 100 , PORT )
+Xcos info:    objectCreated( 101 , BLOCK )
+Xcos info:    objectCloned( 77 , 101 , BLOCK )
+Xcos info:    objectCreated( 102 , PORT )
+Xcos info:    objectCloned( 78 , 102 , PORT )
+Xcos info:    objectCreated( 103 , BLOCK )
+Xcos info:    objectCloned( 79 , 103 , BLOCK )
+Xcos info:    objectCreated( 104 , PORT )
+Xcos info:    objectCloned( 80 , 104 , PORT )
+Xcos info:    objectCreated( 105 , PORT )
+Xcos info:    objectCloned( 81 , 105 , PORT )
+Xcos info:    objectCreated( 106 , LINK )
+Xcos info:    objectCloned( 82 , 106 , LINK )
+Xcos info:    objectCreated( 107 , BLOCK )
+Xcos info:    objectCloned( 83 , 107 , BLOCK )
+Xcos info:    objectCreated( 108 , PORT )
+Xcos info:    objectCloned( 84 , 108 , PORT )
+Xcos info:    objectCreated( 109 , PORT )
+Xcos info:    objectCloned( 85 , 109 , PORT )
+Xcos info:    objectCreated( 110 , PORT )
+Xcos info:    objectCloned( 86 , 110 , PORT )
+Xcos info:    objectCreated( 111 , LINK )
+Xcos info:    objectCloned( 87 , 111 , LINK )
+Xcos info:    objectCreated( 112 , LINK )
+Xcos info:    objectCloned( 88 , 112 , LINK )
+Xcos info:    objectCreated( 113 , LINK )
+Xcos info:    objectCloned( 82 , 113 , LINK )
+Xcos info:    objectCreated( 114 , BLOCK )
+Xcos info:    objectCloned( 83 , 114 , BLOCK )
+Xcos info:    objectCreated( 115 , PORT )
+Xcos info:    objectCloned( 84 , 115 , PORT )
+Xcos info:    objectCreated( 116 , PORT )
+Xcos info:    objectCloned( 85 , 116 , PORT )
+Xcos info:    objectCreated( 117 , PORT )
+Xcos info:    objectCloned( 86 , 117 , PORT )
+Xcos info:    objectCreated( 118 , LINK )
+Xcos info:    objectCloned( 87 , 118 , LINK )
+Xcos info:    objectCreated( 119 , LINK )
+Xcos info:    objectCloned( 88 , 119 , LINK )
+Xcos info:    objectDeleted( 102 , PORT )
+Xcos info:    objectDeleted( 101 , BLOCK )
+Xcos info:    objectDeleted( 104 , PORT )
+Xcos info:    objectDeleted( 105 , PORT )
+Xcos info:    objectDeleted( 103 , BLOCK )
+Xcos info:    objectDeleted( 106 , LINK )
+Xcos info:    objectDeleted( 108 , PORT )
+Xcos info:    objectDeleted( 109 , PORT )
+Xcos info:    objectDeleted( 110 , PORT )
+Xcos info:    objectDeleted( 107 , BLOCK )
+Xcos info:    objectDeleted( 111 , LINK )
+Xcos info:    objectDeleted( 112 , LINK )
+Xcos info:    objectCreated( 120 , BLOCK )
+Xcos info:    objectCloned( 75 , 120 , BLOCK )
+Xcos info:    objectCreated( 121 , PORT )
+Xcos info:    objectCloned( 76 , 121 , PORT )
+Xcos info:    objectCreated( 122 , BLOCK )
+Xcos info:    objectCloned( 77 , 122 , BLOCK )
+Xcos info:    objectCreated( 123 , PORT )
+Xcos info:    objectCloned( 78 , 123 , PORT )
+Xcos info:    objectCreated( 124 , BLOCK )
+Xcos info:    objectCloned( 79 , 124 , BLOCK )
+Xcos info:    objectCreated( 125 , PORT )
+Xcos info:    objectCloned( 80 , 125 , PORT )
+Xcos info:    objectCreated( 126 , PORT )
+Xcos info:    objectCloned( 81 , 126 , PORT )
+Xcos info:    objectCreated( 127 , LINK )
+Xcos info:    objectCloned( 82 , 127 , LINK )
+Xcos info:    objectCreated( 128 , BLOCK )
+Xcos info:    objectCloned( 83 , 128 , BLOCK )
+Xcos info:    objectCreated( 129 , PORT )
+Xcos info:    objectCloned( 84 , 129 , PORT )
+Xcos info:    objectCreated( 130 , PORT )
+Xcos info:    objectCloned( 85 , 130 , PORT )
+Xcos info:    objectCreated( 131 , PORT )
+Xcos info:    objectCloned( 86 , 131 , PORT )
+Xcos info:    objectCreated( 132 , LINK )
+Xcos info:    objectCloned( 87 , 132 , LINK )
+Xcos info:    objectCreated( 133 , LINK )
+Xcos info:    objectCloned( 88 , 133 , LINK )
+Xcos info:    objectCreated( 134 , BLOCK )
+Xcos info:    objectCloned( 94 , 134 , BLOCK )
+Xcos info:    objectCreated( 135 , PORT )
+Xcos info:    objectCloned( 95 , 135 , PORT )
+Xcos info:    objectCreated( 136 , BLOCK )
+Xcos info:    objectCloned( 96 , 136 , BLOCK )
+Xcos info:    objectCreated( 137 , PORT )
+Xcos info:    objectCloned( 97 , 137 , PORT )
+Xcos info:    objectCreated( 138 , PORT )
+Xcos info:    objectCloned( 98 , 138 , PORT )
+Xcos info:    objectCreated( 139 , LINK )
+Xcos info:    objectCloned( 113 , 139 , LINK )
+Xcos info:    objectCreated( 140 , BLOCK )
+Xcos info:    objectCloned( 114 , 140 , BLOCK )
+Xcos info:    objectCreated( 141 , PORT )
+Xcos info:    objectCloned( 115 , 141 , PORT )
+Xcos info:    objectCreated( 142 , PORT )
+Xcos info:    objectCloned( 116 , 142 , PORT )
+Xcos info:    objectCreated( 143 , PORT )
+Xcos info:    objectCloned( 117 , 143 , PORT )
+Xcos info:    objectCreated( 144 , LINK )
+Xcos info:    objectCloned( 118 , 144 , LINK )
+Xcos info:    objectCreated( 145 , LINK )
+Xcos info:    objectCloned( 119 , 145 , LINK )
+Xcos info:    objectDeleted( 123 , PORT )
+Xcos info:    objectDeleted( 122 , BLOCK )
+Xcos info:    objectDeleted( 125 , PORT )
+Xcos info:    objectDeleted( 126 , PORT )
+Xcos info:    objectDeleted( 124 , BLOCK )
+Xcos info:    objectDeleted( 127 , LINK )
+Xcos info:    objectDeleted( 129 , PORT )
+Xcos info:    objectDeleted( 130 , PORT )
+Xcos info:    objectDeleted( 131 , PORT )
+Xcos info:    objectDeleted( 128 , BLOCK )
+Xcos info:    objectDeleted( 132 , LINK )
+Xcos info:    objectDeleted( 133 , LINK )
+Xcos info:    objectCreated( 146 , DIAGRAM )
+Xcos info:    objectCloned( 91 , 146 , DIAGRAM )
+Xcos info:    objectCreated( 147 , BLOCK )
+Xcos info:    objectCloned( 45 , 147 , BLOCK )
+Xcos info:    objectCreated( 148 , PORT )
+Xcos info:    objectCloned( 46 , 148 , PORT )
+Xcos info:    objectCreated( 149 , BLOCK )
+Xcos info:    objectCloned( 47 , 149 , BLOCK )
+Xcos info:    objectCreated( 150 , PORT )
+Xcos info:    objectCloned( 48 , 150 , PORT )
+Xcos info:    objectCreated( 151 , PORT )
+Xcos info:    objectCloned( 49 , 151 , PORT )
+Xcos info:    objectCreated( 152 , BLOCK )
+Xcos info:    objectCloned( 75 , 152 , BLOCK )
+Xcos info:    objectCreated( 153 , PORT )
+Xcos info:    objectCloned( 76 , 153 , PORT )
+Xcos info:    objectCreated( 154 , BLOCK )
+Xcos info:    objectCloned( 77 , 154 , BLOCK )
+Xcos info:    objectCreated( 155 , PORT )
+Xcos info:    objectCloned( 78 , 155 , PORT )
+Xcos info:    objectCreated( 156 , BLOCK )
+Xcos info:    objectCloned( 79 , 156 , BLOCK )
+Xcos info:    objectCreated( 157 , PORT )
+Xcos info:    objectCloned( 80 , 157 , PORT )
+Xcos info:    objectCreated( 158 , PORT )
+Xcos info:    objectCloned( 81 , 158 , PORT )
+Xcos info:    objectCreated( 159 , LINK )
+Xcos info:    objectCloned( 82 , 159 , LINK )
+Xcos info:    objectCreated( 160 , BLOCK )
+Xcos info:    objectCloned( 83 , 160 , BLOCK )
+Xcos info:    objectCreated( 161 , PORT )
+Xcos info:    objectCloned( 84 , 161 , PORT )
+Xcos info:    objectCreated( 162 , PORT )
+Xcos info:    objectCloned( 85 , 162 , PORT )
+Xcos info:    objectCreated( 163 , PORT )
+Xcos info:    objectCloned( 86 , 163 , PORT )
+Xcos info:    objectCreated( 164 , LINK )
+Xcos info:    objectCloned( 87 , 164 , LINK )
+Xcos info:    objectCreated( 165 , LINK )
+Xcos info:    objectCloned( 88 , 165 , LINK )
+Xcos info:    objectCreated( 166 , LINK )
+Xcos info:    objectCloned( 89 , 166 , LINK )
+Xcos info:    objectCreated( 167 , LINK )
+Xcos info:    objectCloned( 90 , 167 , LINK )
+Xcos info:    objectCreated( 168 , BLOCK )
+Xcos info:    objectCloned( 47 , 168 , BLOCK )
+Xcos info:    objectCreated( 169 , PORT )
+Xcos info:    objectCloned( 48 , 169 , PORT )
+Xcos info:    objectCreated( 170 , PORT )
+Xcos info:    objectCloned( 49 , 170 , PORT )
+Xcos info:    objectCreated( 171 , LINK )
+Xcos info:    objectCloned( 89 , 171 , LINK )
+Xcos info:    objectCreated( 172 , LINK )
+Xcos info:    objectCloned( 90 , 172 , LINK )
+Xcos info:    objectDeleted( 148 , PORT )
+Xcos info:    objectDeleted( 147 , BLOCK )
+Xcos info:    objectDeleted( 150 , PORT )
+Xcos info:    objectDeleted( 151 , PORT )
+Xcos info:    objectDeleted( 149 , BLOCK )
+Xcos info:    objectDeleted( 153 , PORT )
+Xcos info:    objectDeleted( 155 , PORT )
+Xcos info:    objectDeleted( 154 , BLOCK )
+Xcos info:    objectDeleted( 157 , PORT )
+Xcos info:    objectDeleted( 158 , PORT )
+Xcos info:    objectDeleted( 156 , BLOCK )
+Xcos info:    objectDeleted( 159 , LINK )
+Xcos info:    objectDeleted( 161 , PORT )
+Xcos info:    objectDeleted( 162 , PORT )
+Xcos info:    objectDeleted( 163 , PORT )
+Xcos info:    objectDeleted( 160 , BLOCK )
+Xcos info:    objectDeleted( 164 , LINK )
+Xcos info:    objectDeleted( 165 , LINK )
+Xcos info:    objectDeleted( 152 , BLOCK )
+Xcos info:    objectDeleted( 166 , LINK )
+Xcos info:    objectDeleted( 167 , LINK )
+Xcos info:    objectDeleted( 100 , PORT )
+Xcos info:    objectDeleted( 95 , PORT )
+Xcos info:    objectDeleted( 94 , BLOCK )
+Xcos info:    objectDeleted( 97 , PORT )
+Xcos info:    objectDeleted( 98 , PORT )
+Xcos info:    objectDeleted( 96 , BLOCK )
+Xcos info:    objectDeleted( 113 , LINK )
+Xcos info:    objectDeleted( 115 , PORT )
+Xcos info:    objectDeleted( 116 , PORT )
+Xcos info:    objectDeleted( 117 , PORT )
+Xcos info:    objectDeleted( 114 , BLOCK )
+Xcos info:    objectDeleted( 118 , LINK )
+Xcos info:    objectDeleted( 119 , LINK )
+Xcos info:    objectDeleted( 99 , BLOCK )
+Xcos info:    objectDeleted( 46 , PORT )
+Xcos info:    objectDeleted( 45 , BLOCK )
+Xcos info:    objectDeleted( 48 , PORT )
+Xcos info:    objectDeleted( 49 , PORT )
+Xcos info:    objectDeleted( 47 , BLOCK )
+Xcos info:    objectDeleted( 76 , PORT )
+Xcos info:    objectDeleted( 78 , PORT )
+Xcos info:    objectDeleted( 77 , BLOCK )
+Xcos info:    objectDeleted( 80 , PORT )
+Xcos info:    objectDeleted( 81 , PORT )
+Xcos info:    objectDeleted( 79 , BLOCK )
+Xcos info:    objectDeleted( 82 , LINK )
+Xcos info:    objectDeleted( 84 , PORT )
+Xcos info:    objectDeleted( 85 , PORT )
+Xcos info:    objectDeleted( 86 , PORT )
+Xcos info:    objectDeleted( 83 , BLOCK )
+Xcos info:    objectDeleted( 87 , LINK )
+Xcos info:    objectDeleted( 88 , LINK )
+Xcos info:    objectDeleted( 75 , BLOCK )
+Xcos info:    objectDeleted( 89 , LINK )
+Xcos info:    objectDeleted( 90 , LINK )
+Xcos info:    objectDeleted( 91 , DIAGRAM )
 assert_checkequal(scs_m.objs(1).graphics.pout, 4);
 assert_checkequal(scs_m.objs(2).graphics.pin, 4);
 assert_checkequal(scs_m.objs(2).graphics.pein, 5);
@@ -87,3 +541,26 @@ assert_checkequal(scs_m.objs(3).model.rpar.objs(2).graphics.pin, []);
 assert_checkequal(scs_m.objs(3).model.rpar.objs(2).graphics.pout, []);
 assert_checkequal(scs_m.objs(3).model.rpar.objs(2).graphics.pein, 6);
 assert_checkequal(scs_m.objs(3).model.rpar.objs(2).graphics.peout, 3);
+clear scs_m
+Xcos info:    objectDeleted( 93 , PORT )
+Xcos info:    objectDeleted( 92 , BLOCK )
+Xcos info:    objectDeleted( 169 , PORT )
+Xcos info:    objectDeleted( 170 , PORT )
+Xcos info:    objectDeleted( 168 , BLOCK )
+Xcos info:    objectDeleted( 121 , PORT )
+Xcos info:    objectDeleted( 135 , PORT )
+Xcos info:    objectDeleted( 134 , BLOCK )
+Xcos info:    objectDeleted( 137 , PORT )
+Xcos info:    objectDeleted( 138 , PORT )
+Xcos info:    objectDeleted( 136 , BLOCK )
+Xcos info:    objectDeleted( 139 , LINK )
+Xcos info:    objectDeleted( 141 , PORT )
+Xcos info:    objectDeleted( 142 , PORT )
+Xcos info:    objectDeleted( 143 , PORT )
+Xcos info:    objectDeleted( 140 , BLOCK )
+Xcos info:    objectDeleted( 144 , LINK )
+Xcos info:    objectDeleted( 145 , LINK )
+Xcos info:    objectDeleted( 120 , BLOCK )
+Xcos info:    objectDeleted( 171 , LINK )
+Xcos info:    objectDeleted( 172 , LINK )
+Xcos info:    objectDeleted( 146 , DIAGRAM )