From 080349d7b71363945c57418666303b206baa544d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 20 Feb 2003 16:01:00 +0000 Subject: don't use gtk+2 deprecated functions --- perl-install/bootlook.pm | 4 ++-- perl-install/standalone/drakgw | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index 4292a2b87..86115149f 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -47,7 +47,7 @@ my $lilogrub = chomp_(`detectloader -q`); my $window = $::isEmbedded ? new Gtk2::Plug($::XID) : new Gtk2::Window("toplevel"); $window->signal_connect(delete_event => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk2->exit(0) }); $window->set_title(N("Boot Style Configuration")); -$window->border_width(2); +$window->set_border_width(2); #$window->realize; # drakX mode @@ -162,7 +162,7 @@ $no_bootsplash == 0 my $img_file = $themes{path}.$combo{boot}->entry->get_text().$themes{boot}{path}."bootsplash-$cur_res.jpg"; undef($boot_pixmap); $boot_pixmap = gtkcreate_pixbuf( $img_file); - $boot_pixmap = $boot_pixmap->scale_simple(155,116,0); + $boot_pixmap = $boot_pixmap->scale_simple(155, 116, 'nearest'); $boot_pic->set($boot_pixmap->render_pixmap_and_mask(0), ''); }); diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index f0d65eeff..302e3bb4f 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -530,7 +530,7 @@ sub pur_gtk_mode { $window1->{rwindow}->set_position('center'); $window1->{rwindow}->set_title(N("Internet Connection Sharing configuration")); } - $window1->{rwindow}->border_width(10); + $window1->{rwindow}->set_border_width(10); my $vbox1 = new Gtk2::VBox(0,0); $window1->{rwindow}->add($vbox1); my $hbox1 = new Gtk2::HBox(0,0); -- cgit v1.2.1