my $button = $form->Button(  -text=>"Dialog", -command=>sub{$selected=$selected_1;CallDialog($testbox1);} )->pack(-side=>'right');