1
0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-22 08:33:24 -05:00

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

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]) {