Browse Source

Makes the submit button the default for the replacements box.

master
freesource 23 years ago
parent
commit
52fbcbfaff
  1. 4
      BootRoot/YardBox.pm

4
BootRoot/YardBox.pm

@ -1845,8 +1845,8 @@ sub Replacements {
#_______________________________________ #_______________________________________
# Submit button # Submit button
my $submit_b = button(0,1,2,3,"Submit",$table_replacements); my $submit_b = button(0,1,2,3,"Submit",$table_replacements);
#$submit_b->can_default($true); $submit_b->can_default($true);
#$submit_b->grab_default(); $submit_b->grab_default();
$submit_b->signal_connect( "clicked", sub { $submit_b->signal_connect( "clicked", sub {
if ($entry[0] && $entry[1]) { if ($entry[0] && $entry[1]) {

Loading…
Cancel
Save