updated , added

1 files changed, 2 insertions, 7 deletions

diff --git a/clock.pm b/clock.pm
index b4a7601e..4cdee33b 100755
--- a/clock.pm
+++ b/clock.pm
@@ -29,13 +29,8 @@ my $hbox = new Gtk::HBox(0,0);
 $vbox->pack_start($hbox, 1, 1, 0);
 my $calendar = new Gtk::Calendar;
 $hbox->pack_start($calendar, 1, 1, 0);
-$calendar->signal_connect ( 'month-changed' => \&cal_changed );
-$calendar->signal_connect ( 'day-selected' => \&cal_changed );
-$calendar->signal_connect ( 'day-selected-double-click' => \&cal_changed );
-$calendar->signal_connect ( 'prev-month' => \&cal_changed );
-$calendar->signal_connect ( 'next-month' => \&cal_changed );
-$calendar->signal_connect ( 'prev-year' => \&cal_changed );
-$calendar->signal_connect ( 'next-year' => \&cal_changed );
+$calendar->signal_connect ( $_ => \&cal_changed )
+  foreach ('month-changed', 'day-selected', 'day-selected-double-click', 'prev-month', 'next-month', 'prev-year', 'next-year');
 
 my $vbox2 = new Gtk::VBox(0,0);
 $hbox->pack_start($vbox2, 1, 1, 0);