I think your expectations are wrong. (If your running on windows; ignore this post otherwise.)

The <enter> key will always select the default value, regardless of whether the user has moved the input focus prior to hitting the enter key.

To select a non-default value, you must move a) the input focus; b) select that option using the <spacebar>. This is WAD.

The documentation says "by typing return to invoke the default Button (if any)". The behavior you see is by design and conventional.

Hi, my issue is when i want to select 'No' Button, i press a Tab button and now the focus will be on No and press Return Key even in that case "YES" is selected :(

That is your issue maybe, it is not a bug in the DialogBox code. It is expected behaviour and it is by design. That is the way all dialogues work in Windows. To activate the control that has focus use the space bar, not the enter key - the enter key always "presses" the default button.

---

Perl's payment curve coincides with its learning curve.

This is a bug in Tk::DialogBox, you should report it here. To test run widget, under "Common Dialogs" click on "1. Message boxes.", when "messageBox Demo" pops up, choose Type OkCancel, then click "Message Box" button, and perform the test (tab over to cancel button, hit enter). Default is "Tk::DialogBox", and selecting Cancel and hitting enter doesn't work (falsely returns that you selected Ok). If you click radio button to switch to Tk::MsgBox , and perform test again, you will get Cancel as expected.

#!/usr/bin/perl
use warnings;
use strict;
use Glib qw(TRUE FALSE);
use Gtk2 '-init';


my $dialog = Gtk2::Dialog->new ('Confirmation Dialog', undef, 'modal',
    'gtk-ok'   => 'ok',      # response ids may be one of the built-in
+ enums...
    '_Cancel'  => 2,        # or any positive integer.
        'gtk-undo' => 'reject',
        'gtk-save' => 'accept',
        'gtk-cancel' => 'cancel',
        'Do it'      => 'ok',
);

# put an hbox with a label and entry into the dialog's vbox area.
my $hbox = Gtk2::HBox->new (FALSE, 6);
$hbox->pack_start (Gtk2::Label->new ('Continue Real Transfer? '), TRUE
+, TRUE, 0);
$hbox->show_all;

$dialog->vbox->pack_start ($hbox, TRUE, TRUE, 0);

# Set which response is the default:
$dialog->set_default_response ('ok');

# connect a signal to the dialog's response signal.
$dialog->signal_connect (response => sub {
        print "@_\n";
        # get our params
        shift; # we don't need the dialog
        my $response = shift;    # the clicked button

                print "The user clicked: $response\n";
        
        if ($response eq 'ok'){
            Gtk2->main_quit;
            }
            
            if ($response eq 'cancel'){
            return
            }
       
            #more if's and elsif's......
            
        });

# show the dialog
$dialog->show;

Gtk2->main;
[download]

$dialogBox->bind('<Return>' => undef);
[download]

Additionally, you can play with the binding when shifting focus on tabs, like

$dialogBox->bind('<Tab>' => sub{  
             #get currently focused button
             $dialogBox->configure(-focus => $my_focussed_button);
              # there is also forceFocus which may help force it
              });
[download]