Help for this page
$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", );