From fe28eb54283b5e81d9101a52bd104db6a0671fe3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 6 Mar 2003 18:12:13 +0000 Subject: - fix #1766 - do not crash when browsing --- perl-install/standalone/draksplash | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index 08e3036c2..4819698ad 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -13,7 +13,7 @@ my $true = 1; my $in = 'interactive'->vnew('su'); -my $window = ugtk2->new; +my $window = ugtk2->new('DrakSplash'); $window->{rwindow}->signal_connect(delete_event => \&CloseAppWindow); #- verification of package image magik @@ -159,8 +159,8 @@ $first{widgets}{combo}{res}->entry->signal_connect(changed => sub { #$first{widgets}{button}{boot_conf}->signal_connect(clicked => sub{show_act(\%boot_conf_frame) } ); #- image file selection for new theme $first{widgets}{button}{file}->signal_connect(clicked => sub { - my $file_dialog = new Gtk2::FileSelection('choose image'); - $file_dialog->set_filename($first{widgets}{label}{file}->get ne N("choose image file") ? $first{widgets}{label}{file}->get : '~/'); + my $file_dialog = new Gtk2::FileSelection(N("choose image")); + $file_dialog->set_filename($first{widgets}{label}{file}->get_text ne N("choose image file") ? $first{widgets}{label}{file}->get_text : '~/'); $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy }); $file_dialog->ok_button->signal_connect(clicked => sub { $first{widgets}{label}{file}->set_text($file_dialog->get_filename); $file_dialog->destroy }); $file_dialog->show; -- cgit v1.2.1