$frames{"Account.List"} = $mw->Scrolled(
	"Listbox",
	-bg		=> $config{'background'},
	-fg		=> '#FFFFFF',
	-font		=> [$config{'font'},$config{'fontsize'},'normal'],
	-relief		=> 'raised',
	-scrollbars	=> 'e',
	-cursor		=> 'left_ptr',
);

##</code><code>##


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