Makes the submit button the default for the replacements box.

This commit is contained in:
freesource
2001-08-29 04:01:55 +00:00
parent 04e2351a58
commit 52fbcbfaff
+2 -2
View File
@@ -1845,8 +1845,8 @@ sub Replacements {
#_______________________________________
# Submit button
my $submit_b = button(0,1,2,3,"Submit",$table_replacements);
#$submit_b->can_default($true);
#$submit_b->grab_default();
$submit_b->can_default($true);
$submit_b->grab_default();
$submit_b->signal_connect( "clicked", sub {
if ($entry[0] && $entry[1]) {