my $button_ok = $dialog->{SubWidget}{B_OK};