sub option_menuitems {
# create the menu items for the Options menu.
#############################################	
	[
	  [qw/command/, 'Create Consensus', qw/-accelerator Ctrl-c -command/=> \&create_consensus],
	  '',
	  [qw/command/, 'View Text 1', qw/-accelerator Ctrl-i if ($consensus_created==0){-state disabled} -command/=> \&view_text1],
	  [qw/command/, 'View Text 2', qw/-accelerator Ctrl-r -command/=> \&view_text2],
	];
}  # end of option_menuitems