Select Code to Download

$frames{"Account.List"} = $mw->Scrolled(
    "Listbox",
...
    -scrollbars    => 'e',
    -cursor        => 'left_ptr',
);

$frames{"Account.List"}->bind(    '<Double-1>',
    $frames{'Account.List'}->itemconfigure($frames{"Account.List"}->cu
+rselection(), -foreground=> "#FF0000", 
);