test/trace/implements.as

   1 // makeswf -v 7 -r 1 -o implements-7.swf implements.as
   2
   3 trace ("Test Implements ActionScript action");
   4
   5
   6 trace ("A implements Array, XML");
   7
   8 var A = function () {
   9   return {
  10     constructor: A,
  11     __proto__: A.prototype
  12   };
  13 };
  14
  15 trace ("Before");
  16 var o = new A ();
  17 trace (o instanceOf A);
  18 trace (o instanceOf Array);
  19 trace (o instanceOf XML);
  20 trace (o instanceOf String);
  21
  22 asm {
  23   push "test"
  24   push "Array"
  25   getvariable
  26   push "XML"
  27   getvariable
  28   push 2
  29   push "A"
  30   getvariable
  31   implements
  32   trace
  33 };
  34
  35 trace ("After");
  36 var o = new A ();
  37 trace (o instanceOf A);
  38 trace (o instanceOf Array);
  39 trace (o instanceOf XML);
  40 trace (o instanceOf String);
  41
  42
  43 trace ("B changes prototype to A.prototype");
  44 var B = function () {
  45   return {
  46     constructor: B,
  47     __proto__: B.prototype
  48   };
  49 };
  50
  51 trace ("Before");
  52 o = new B ();
  53 trace (o instanceOf A);
  54 trace (o instanceOf Array);
  55 trace (o instanceOf XML);
  56 trace (o instanceOf String);
  57
  58 B.prototype = A.prototype;
  59
  60 trace ("After");
  61 o = new B ();
  62 trace (o instanceOf A);
  63 trace (o instanceOf Array);
  64 trace (o instanceOf XML);
  65 trace (o instanceOf String);
  66
  67
  68 trace ("C has A as parent");
  69 var C = function () {
  70   return {
  71     constructor: C,
  72     __proto__: C.prototype
  73   };
  74 };
  75 C.prototype.__proto__ = A.prototype;
  76
  77 o = new C ();
  78 trace (o instanceOf A);
  79 trace (o instanceOf Array);
  80 trace (o instanceOf XML);
  81 trace (o instanceOf String);
  82
  83
  84 trace ("A.prototype is reset");
  85
  86 A.prototype = new Object ();
  87
  88 var o = new A ();
  89 trace (o instanceOf A);
  90 trace (o instanceOf Array);
  91 trace (o instanceOf XML);
  92 trace (o instanceOf String);
  93
  94
  95 loadMovie ("FSCommand:quit", "");