From a5df968081df8035d6ef2a849674a8cb5102bf47 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 6 Dec 2002 20:10:51 +0000
Subject: s/Gtk->/Gtk2->/

---
 perl-install/bootlook.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index fd02a259d..b641ee966 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -49,7 +49,7 @@ my $inmain = 0;
 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) : Gtk->exit(0) });
+$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->realize;
@@ -68,7 +68,7 @@ $window->border_width(2);
 # the menus are not shown
 # but they provides shiny shortcut like C-q
 my @menu_items = ({ path => N("/_File"), type => '<Branch>' },
-		  { path => N("/File/_Quit"), accelerator => N("<control>Q"), callback    => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) } },
+		  { path => N("/File/_Quit"), accelerator => N("<control>Q"), callback    => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk2->exit(0) } },
 		 );
 my $menubar = create_factory_menu($window, @menu_items);
 ######### menus end
@@ -332,8 +332,8 @@ Click on Configure to launch the setup wizard.", $lilogrub),
 				    )
 			 ),
 		 gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'end'),
-			 gtksignal_connect(new Gtk2::Button(N("OK")), clicked => sub { any::runlevel($x_mode ? 5 : 3); updateAutologin(); updateAurora(); $::isEmbedded ? kill('USR1',$::CCPID) : Gtk->exit(0) }),
-			 gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) })
+			 gtksignal_connect(new Gtk2::Button(N("OK")), clicked => sub { any::runlevel($x_mode ? 5 : 3); updateAutologin(); updateAurora(); $::isEmbedded ? kill('USR1',$::CCPID) : Gtk2->exit(0) }),
+			 gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk2->exit(0) })
 			)
 	       )
       );
@@ -355,8 +355,8 @@ $no_bootsplash and $thm_frame->hide();
 gtkflush();
 $::isEmbedded and kill 'USR2', $::CCPID;
 $inmain = 1;
-Gtk->main;
-Gtk->exit(0);
+Gtk2->main;
+Gtk2->exit(0);
 
 #-------------------------------------------------------------
 # get user names to put in combo  
-- 
cgit v1.2.1