Listen Inhalt per DD verschieben

[speedhost]

Hallo
Ich habe eine Klasse geschrieben mit der man in einer Liste die Items per
Drag 'n Drop verschieben kann.

Elemente werden immer oberhalb des Elementes eingetragen wo die Maustaste
losgelassen wird.
also wenn man Element 1 auf Element 2 legt passiert nix weil Elemnt 1 oberhalb von Element 2 platziert wird.
wer es brauchen kann bitte hier in AS3

package
{
    import fl.events.ListEvent;
    import flash.events.MouseEvent;
    import fl.controls.List;
    
    
    public class ddList
        {
             var itemHolder:int;
             var itemOver:int;
             var ddl:List=new List();
             
    public function ddList(Li:List) 
        {
            ddl=Li;
            ddl.addEventListener(MouseEvent.MOUSE_DOWN,imd);      
            ddl.addEventListener(MouseEvent.MOUSE_UP,imu);        
            ddl.addEventListener(ListEvent.ITEM_ROLL_OVER,iro);   
        };
        
    function iro(evt:ListEvent):void {itemOver=evt.index;}    
 
    function imd(evt:MouseEvent):void {itemHolder=itemOver;}
    
    function imu(evt:MouseEvent):void
        {
            if(itemHolder!=itemOver)
            { 
                
                ddl.addItemAt(ddl.getItemAt(itemHolder),itemOver);
                if(itemHolder>itemOver){itemHolder++;}
                ddl.removeItemAt(itemHolder);   
            }
        };
 
}//Ende Class
}//Ende Package