bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-22 16:43:23 -05:00
Code Issues Projects Releases Wiki Activity

Makes the submit button the default for the replacements box.

Browse Source
This commit is contained in:
freesource 2001-08-29 04:01:55 +00:00
parent 04e2351a58
commit 52fbcbfaff
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
BootRoot/YardBox.pm
View File

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