sub CallDialog
{
    $testbox1->configure(-state=>'disabled');
###############################
# Added this line so the displayed value is correct
    $selected = $selected_1;  
###############################
    my $retval = $dialog->Show( -popover=>$form, -overanchor=>'c', -popanchor=>'c');

    if($retval eq "Cancel")
    {
        $testbox1->configure(-state=>'normal');
    }
    elsif($retval eq "Submit")
    {
        $testbox1->configure(-state=>'normal');
        $testbox1->setSelected($selected ); #(optional?)
    }
 
}