How to drag the items in several ListBoxes at the same time?

[Tony]

     Just as the attatchement,there are two ListBoxes in VBox, I select the
"red" and "blue" items of the first ListBox and the "yellow" and "green"
items of the second ListBox.I want to drag these four items at the same
time.How to realize it?

  Codes:
  {curl 3.0, 4.0, 5.0,5.1 applet}

  {VBox
    {ListBox
        "red", "blue", "green",  
        graphic-selectable={GraphicSelectable},
        list-item-creation-proc =
            {proc {val:any}:ListItem
                let d:Graphic = val asa Graphic
                set d.color = val asa FillPattern  
                let lv:ListValueItem ={ListValueItem d}
                set lv.dragee = {ListItemDragee}
                || return it.
                {return lv}
            },
        value="red"
    },
    {ListBox
        "red", "yellow", "green",  
        graphic-selectable={GraphicSelectable},
        list-item-creation-proc =
            {proc {val:any}:ListItem
                let d:Graphic = val asa Graphic
                set d.color = val asa FillPattern  
                let lv:ListValueItem ={ListValueItem d}
                set lv.dragee = {ListItemDragee}
                || return it.
                {return lv}
            },
        value="red"
    }
  }

            
  
Best wishes.




----------------------------------------------------------------------------------------------
Confidentiality Notice: The information contained in this e-mail and any 
accompanying attachment(s) is intended only for the use of the intended 
recipient and may be confidential and/or privileged of Neusoft Group Ltd., its 
subsidiaries and/or its affiliates. If any reader of this communication is not 
the intended recipient, unauthorized use, forwarding, printing, storing, 
disclosure or copying is strictly prohibited, and may be unlawful. If you have 
received this communication in error, please immediately notify the sender by 
return e-mail, and delete the original message and all copies from your system. 
Thank you. 
-----------------------------------------------------------------------------------------------


{curl 3.0,4.0,5.0 applet}

{VBox
    {ListBox
        "red", "blue", "green",  
        graphic-selectable={GraphicSelectable},
        list-item-creation-proc =
            {proc {val:any}:ListItem
                let d:Graphic = val asa Graphic
                set d.color = val asa FillPattern  
                let lv:ListValueItem ={ListValueItem d}
                set lv.dragee = {ListItemDragee}
                || return it.
                {return lv}
            },
        value="red"
    },
    {ListBox
        "red", "yellow", "green",  
        graphic-selectable={GraphicSelectable},
        list-item-creation-proc =
            {proc {val:any}:ListItem
                let d:Graphic = val asa Graphic
                set d.color = val asa FillPattern  
                let lv:ListValueItem ={ListValueItem d}
                set lv.dragee = {ListItemDragee}
                || return it.
                {return lv}
            },
        value="red"
    }
}