From a5df968081df8035d6ef2a849674a8cb5102bf47 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau 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 => '' }, - { path => N("/File/_Quit"), accelerator => N("Q"), callback => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) } }, + { path => N("/File/_Quit"), accelerator => N("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