testsuite/actionscript.all/xtrace.as

   1 //
   2 //   Copyright (C) 2005, 2006, 2007, 2009, 2010 Free Software
   3 //   Foundation, Inc
   4 //
   5 // This program is free software; you can redistribute it and/or modify
   6 // it under the terms of the GNU General Public License as published by
   7 // the Free Software Foundation; either version 3 of the License, or
   8 // (at your option) any later version.
   9 //
  10 // This program is distributed in the hope that it will be useful,
  11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 // GNU General Public License for more details.
  14 //
  15 // You should have received a copy of the GNU General Public License
  16 // along with this program; if not, write to the Free Software
  17 // Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  18 //
  19
  20 #ifndef _XTRACE_AS_
  21 #define _XTRACE_AS_
  22
  23 createTextField("out",300000,0,0,600,800);
  24
  25 // FIXME: _global object isn't recognized
  26 //_global.xtrace = function (msg)
  27
  28 xtrace = function (msg)
  29 {
  30         _level0.out.text += msg+"\n";
  31 };
  32
  33
  34 //xtrace("Xtrace working");
  35
  36 #endif // _XTRACE_AS_