From 38966219fe1fc073beefd30d7f52dacd4fe09474 Mon Sep 17 00:00:00 2001 From: damien Date: Wed, 7 Mar 2001 16:25:35 +0000 Subject: updated , added --- clock.pm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'clock.pm') 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); -- cgit v1.2.1