Hi Monks, especially the followers of the
Tk cult. Is there a more elegant way how to change the behaviour of a button in a Tk dialog? Using
Walk works correctly, but the code is long and unreadable. Having a more straightforward way of identifying the button object would be great (ideally something like
$dialog->get_button_by_text('OK');).
#! /usr/bin/perl
use warnings;
use strict;
use Tk;
sub show_dialog {
my ($mw) = @_;
my $dialog = $mw->Dialog(-buttons => ['OK', 'Cancel']);
my $lb = $dialog->Listbox(
-listvariable => my $valid = [ 'valid', 'invalid' ]
)->pack;
$dialog->Walk(sub {
my $widget = shift;
if ('Button' eq $widget->class && 'OK' eq $widget->cget('-text
+')) {
my $orig = $widget->cget('-command');
$widget->configure(-command => sub {
if ('valid' eq $valid->[ $lb->curselection->[0] ]) {
$orig->[0]->();
} else {
$dialog->Dialog(-title => 'Invalid',
-text => 'Invalid',
-bitmap => 'error',
-buttons => [ 'OK' ]
)->Show;
}
});
}
});
$dialog->Show;
}
my $mw = 'MainWindow'->new(-title => 'Validation');
$mw->Button(-text => 'Show Dialog',
-command => [\&show_dialog, $mw])->pack;
$mw->Button(-text => 'Quit',
-command => \&Tk::exit)->pack;
MainLoop();
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,