Re: Simple ok/cancel routine

I believe <Return> may be the default action, where <Space> is what you need to press to get the right action. You’ll see OS X behave the same way with its core ok/cancel boxes.

> On Jun 14, 2016, at 10:29 AM, Philip Brady <[email protected]> wrote:
> 
> 
> I'm writing a perl script using Tk and have had some success but I wish to have a very simple subroutine to ask the user a question and get a response 'ok' or 'cancel'. 
> 
> My routine follows but it doesn't quite work as expected.
> It's fine if I mouse click on 'ok' or simply press the return key - it correctly returns 'ok'.
> If I clink 'cancel' it correctly returns 'cancel'.
> 
> Unfortunately, if I tab to 'cancel' then press return it returns 'ok' rather than the desired 'cancel'.
> 
> I'd appreciate any advice on fixing this.
> regards
> Phil
> 
> 
> The code is:
> 
> #!/usr/bin/perl -w
> use strict;
> use Tk;
> use Tk::Dialog;
> use Tk::DialogBox;
> 
> 
> my $main=MainWindow->new();
> my $X=CheckOk('Some old question');
> print "Response was $X\n";
> 
> exit 0;
> 
> 
> sub CheckOk{
>     (my $question)=@_;
>     my $box=$main->DialogBox(
>         -buttons => ['ok','cancel'],
>         -default_button => "ok");
>     $box-> add("Label",
>                 -text => "$question   ")->pack;
>     $box -> Show();
> }