From 080349d7b71363945c57418666303b206baa544d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
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