my $state = $test1 -> Entry -> cget('-state');