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