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