forked from: テキスト表示用
forked from テキスト表示用 (diff: 31)
ActionScript3 source code
/**
* Copyright yprops ( http://wonderfl.net/user/yprops )
* MIT License ( http://www.opensource.org/licenses/mit-license.php )
* Downloaded from: http://wonderfl.net/c/ihlW
*/
// forked from yprops's テキスト表示用
package
{
import flash.events.*;
import flash.display.*;
import flash.text.*;
public class DebugText extends Sprite
{
//------------main-----------------------
private var fr :int = 0;
public function main() :void{
addEventListener(Event.ENTER_FRAME, oef);
addEventListener(Event.ADDED, onadded);
}
private function oef(ev:Event) :void{
if(fr % 60 == 0){
var sp :Sprite = new Sprite();
sp.name = "ko" + fr;
addDebLine(fr, "make::", sp.name);
addChild(sp);
}
fr++;
}
private function onadded(ev:Event):void{
var tsp :Sprite = ev.target as Sprite;
if(tsp.name.indexOf("ko") == -1) return;
addDebLine(fr, "added::", tsp.name);
var sp :Sprite = new Sprite();
sp.name = "mago" + fr;
addDebLine(fr, "make::", sp.name);
tsp.addChild(sp);
}
//------------general---------------------
public function DebugText(){
if(stage){
init();
return;
}
addEventListener(Event.ADDED_TO_STAGE, init);
}
private function init(ev:Event = null) :void{
removeEventListener(Event.ADDED_TO_STAGE, init);
addDeb(450, 450);
main();
}
private var deb :TextField;
private function addDeb(w:uint, h:uint) :void{
deb = new TextField();
deb.wordWrap = true;
deb.width = w;
deb.height = h;
deb.border = true;
deb.borderColor = 0;
deb.background = true;
deb.backgroundColor = 0x99ffffff;
deb.text = "beginDebugText-------\n\n";
addChild(deb);
}
private function addDebLine(...args) :void{
deb.appendText(args.join(" ") + "\n");
deb.scrollV = deb.maxScrollV;
}
}
}
