From f49d9e0f8316ff550cf68a23106440c546a0532f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 24 Feb 2003 08:00:01 +0000
Subject: clean up: - no more directly handle embeddign - use ugtk2

---
 perl-install/bootlook.pm | 39 +++++++++++++++------------------------
 1 file changed, 15 insertions(+), 24 deletions(-)

(limited to 'perl-install/bootlook.pm')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 9e46180fd..015f7ced2 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -44,30 +44,21 @@ my $auto_mode = any::get_autologin();
 my $inmain = 0;
 my $lilogrub = chomp_(`detectloader -q`);
 
-my $window = $::isEmbedded ? new Gtk2::Plug($::XID) : new Gtk2::Window("toplevel");
+my $w = ugtk2->new();
+my $window = $w->{window};
 $window->signal_connect(delete_event => sub { utk2->exit(0) });
-$window->set_title(N("Boot Style Configuration"));
-$window->set_border_width(2);
-#$window->realize;
-
-# drakX mode
-#my ($t_pixmap, $t_mask) = gtkcreate_img("tradi.png");
-#my ($h_pixmap, $h_mask) = gtkcreate_img("hori.png");
-#my ($v_pixmap, $v_mask) = gtkcreate_img("verti.png");
-#my ($g_pixmap, $g_mask) = gtkcreate_img("gmon.png");
-#my ($c_pixmap, $c_mask) = gtkcreate_img("categ.png");
-
-# a pixmap widget to contain the pixmap
-#my $pixmap = new Gtk2::Pixmap($h_pixmap, $h_mask);
-
-### menus definition
-# 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 { ugtk2->exit(0) } },
-		 );
-my $menubar = create_factory_menu($window, @menu_items);
-######### menus end
+unless ($::isEmbedded) {
+    $w->{rwindow}->set_title(N("Boot Style Configuration"));
+    $window->set_border_width(2);
+
+    ### menus definition
+    # 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 { ugtk2->exit(0) } },
+                      );
+    my $menubar = create_factory_menu($w->{rwindow}, @menu_items);
+    ######### menus end
+}
 
 my $user_combo = new Gtk2::Combo;
 $user_combo->set_popdown_strings(@usernames);
@@ -348,7 +339,7 @@ $window->show_all();
 $no_bootsplash and $thm_frame->hide();
 gtkflush();
 $inmain = 1;
-Gtk2->main;
+$w->main;
 Gtk2->exit(0);
 
 #-------------------------------------------------------------
-- 
cgit v1.2.1