#!usr/bin/perl
use Tkx;
use strict;
use warnings;

my $crit;
my $mw = Tkx::widget->new(".");
my @fail_crit = (
	'1. Maximum Strain',
	'2. Maximum Stress',
	'3. Tsai-Hill',
	'4. Modified Tsai-Wu',
	'5. Hoffman',
);
my $fail_crit_optmen = $mw -> new_optionmenu(-options=>\@fail_crit,
		-variable=> \$crit)->g_pack(-side=>'right');

Tkx::MainLoop();