From 4f37308f5535a2f95cfba408d5c6272c334fe8fe Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Sat, 25 Sep 2004 21:39:02 +0000 Subject: - perl_checker cleanups --- mdkonline | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'mdkonline') diff --git a/mdkonline b/mdkonline index 38e6cd63..b1e17b60 100755 --- a/mdkonline +++ b/mdkonline @@ -87,7 +87,7 @@ $o->{actions} = { $p <= 1 and init(0) } }; -foreach my $l (['Next', N("Next"), 1], ['SkipWiz', N("Skip Wizard")], ['Prev', N("Previous"), 1 ]) { +foreach my $l ([ 'Next', N("Next"), 1 ], [ 'SkipWiz', N("Skip Wizard") ], [ 'Prev', N("Previous"), 1 ]) { $o->{$l->[0]} = Gtk2::Button->new($l->[1]); $l->[2] ? $o->{bottomHbox}->pack_end($o->{$l->[0]}, 0, 0, 1) : $o->{bottomHbox}->pack_start($o->{$l->[0]}, 0, 0, 1); $o->{$l->[0]}->signal_connect(clicked => sub { $o->{actions}{$l->[0]}->() }); -- cgit v1.2.1