forked from: テキスト表示用

by yprops forked from テキスト表示用 (diff: 31)
♥0 | Line 61 | Modified 2013-07-10 21:37:09 | MIT License
play

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;
        }
    }
}