AS2 Classes

programming flash
1

I’m new to AS2 Classes, I usually use object prototypes, but im trying to learn something new.

Is there a simpler way to write this bit of code that scales a rounded box as a class?

right now i have to declare each individual movieclip as a movieclip within the main clip, which seems redundant, however if i dont do it, it returns errors.

there are also clips inside the header movie that i would like to manipulate, but they use the same name as the clips in the main movie (tl, tr, etc.) and i cant seem to access them.

class StandardContainer extends MovieClip {
    private var core:MovieClip // Core MovieClip
    private var tl:MovieClip // Top Left MovieClip
    private var tr:MovieClip // Top Right MovieClip
    private var bl:MovieClip // Bottom Left MovieClip
    private var br:MovieClip // Bottom Right MovieClip
    private var l:MovieClip // Left MovieClip
    private var r:MovieClip // Right MovieClip
    private var t:MovieClip // Top MovieClip
    private var b:MovieClip // Bottom MovieClip
    private var header:MovieClip // Display Header (or not)

    function StandardContainer() { }

    public function Resize(Wi:Number,He:Number):Void{
        var _cornerHe:Number = tl._height
        var _cornerWi:Number = tl._width
        var _sideWi:Number = l._width
    
        core._width = Wi-(_sideWi*2)
        core._height = He-(_cornerHe*2)
        
        t._width = Wi-(_cornerWi*2)
        b._width = t._width
        
        tr._x = t._x + t._width
        br._x = tr._x
        
        r._x = this.core._x + this.core._width
        
        l._height = this.core._height
        r._height = l._height
        
        bl._y = this.core._y + this.core._height
        
        br._y = bl._y
        b._y = bl._y
    }
    
    public function MoveTo(nXp:Number,nYp:Number){
        Xp = nXp
        Yp = nYp
    }    
    
    function get Xp():Number { return _x }
    function set Xp(nXp:Number):Void { _x = nXp; }
    
    function get Yp():Number { return _y }
    function set Yp(nYp:Number):Void { _y = nYp; }
    
    function set Header(tf:Boolean):Void { header._visible = tf }
    }

to call this clip onto the stage, i use


_root.Attach("standard","standardcontainer",0,10,10)
standardcontainer.MoveTo(0,0)
standardcontainer.Resize(100,100)

which also seems long winded.

thanks!