From 210d6d78b10d5b22023ba2df52726a66b1dc25bd Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 17 Feb 2003 07:24:38 +0000 Subject: this was just tested before --- perl-install/standalone/logdrake | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/logdrake') diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index f04cb992f..709eda546 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -55,7 +55,7 @@ unless ($::isEmbedded) { $my_win->{window}->signal_connect(delete_event => \&quit); my $cal = gtkset_sensitive(new Gtk2::Calendar(), 0); -my (undef, undef, undef, $mday) = localtime(time()); +my $mday = (localtime(time()))[3]; $cal->select_day($mday); my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); my $cal_mode = 0; @@ -246,7 +246,7 @@ sub parse_file { $pbar = new Gtk2::ProgressBar() ) ); - $win_pb->set_transient_for($my_win->{rwindow}) unless $::isEmbedded; + $win_pb->set_transient_for($my_win->{rwindow}); $win_pb->set_modal(1); $win_pb->set_position('center'); $win_pb->realize(); -- cgit v1.2.1