#widgets in Card

$fastcard = $card->Radiobutton(
				   -text=>"Fast Card",
				   -value=>"fast",
				   -variable=>\$cardspeed,
			       -command=>\&card_choice
				   )->pack();
$slowcard = $card->Radiobutton(
				   -text=>"Slow Card",
				   -value=>"slow",
				   -variable=>\$cardspeed,
			       -command=>\&card_choice
				   )->pack();