From 1a11bcea71c171356ca422e21a1b2dd3cbc9167b Mon Sep 17 00:00:00 2001 From: Yves Duret Date: Thu, 9 Aug 2001 12:58:35 +0000 Subject: rewrite in a more drakx fashion --- perl-install/bootlook.pm | 281 ++++++++++++++--------------------------------- 1 file changed, 84 insertions(+), 197 deletions(-) (limited to 'perl-install/bootlook.pm') diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index 1cda66f6f..1ee78c7a7 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -20,6 +20,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +use MDK::Common; use Gtk; use Config; init Gtk; @@ -27,11 +28,10 @@ use POSIX; use lib qw(/usr/lib/libDrakX); use interactive; use standalone; -use common; -use my_gtk qw(:helpers :wrappers); use any; use bootloader; use fs; +use my_gtk qw(:helpers :wrappers :ask); $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~/--embedded (\S*) (\S*)/; if ($::isEmbedded) { @@ -43,7 +43,7 @@ if ($::isEmbedded) { my $in = interactive::vnew('su'); local $_ = join '', @ARGV; -/-h/ and die _("no help implemented yet.\n"); +/-h/ and die _("bootlook.pm $Id$\nno help implemented yet.\n"); my @winm; my @usernames; @@ -60,7 +60,7 @@ my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window ("toplevel $window->signal_connect(delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) }); $window->set_title(_("Boot Style Configuration") ); $window->border_width(2); -$window->realize; +#$window->realize; # drakX mode my ($t_pixmap, $t_mask) = gtkcreate_png("tradi.png"); @@ -70,181 +70,93 @@ my ($g_pixmap, $g_mask) = gtkcreate_png("gmon.png"); my ($c_pixmap, $c_mask) = gtkcreate_png("categ.png"); # a pixmap widget to contain the pixmap -my $pixmap = new Gtk::Pixmap( $h_pixmap, $h_mask ); +my $pixmap = new Gtk::Pixmap($h_pixmap, $h_mask); ### menus definition # the menus are not shown # but they provides shiny shortcut like C-q -my @menu_items = ( { path => _("/_File"), - type => '' }, - { path => _("/File/_New"), - accelerator => _("N"), - callback => \&print_hello }, - { path => _("/File/_Open"), - accelerator => _("O"), - callback => \&print_hello }, - { path => _("/File/_Save"), - accelerator => _("S"), - callback => \&print_hello }, - { path => _("/File/Save _As") }, - { path => _("/File/-"), - type => '' }, - { path => _("/File/_Quit"), - accelerator => _("Q"), - callback => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } }, - { path => _("/_Options"), - type => '' }, - { path => _("/Options/Test")}, - { path => _("/_Help"), - type => '' }, - { path => _("/Help/_About...")} ); - +my @menu_items = ( { path => _("/_File"), type => '' }, + { path => _("/File/_Quit"), accelerator => _("Q"), callback => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } }, + ); my $menubar = get_main_menu( $window ); - ######### menus end -my $global_vbox = new Gtk::VBox(); - -########### lilo/grub -my $lilo_dedans = new Gtk::HBox(0, 0); -my $lilo_button = new Gtk::Button _("Configure"); - -my $lilo_label = new Gtk::Label( -_("You are currently using %s as Boot Manager. -Click on Configure to launch the setup wizard.", $lilogrub)); - -$lilo_dedans->pack_start($lilo_label,0,0,0); -$lilo_dedans->pack_end($lilo_button,0,0,0); -$lilo_button->signal_connect(clicked => sub { lilo_choice(); }); - -my $lilo_frame = new Gtk::Frame _("Lilo/grub mode"); -$lilo_frame->add($lilo_dedans); -$global_vbox->pack_start ($lilo_frame, 0, 0, 0); - - -######## aurora part -my $a_dedans = new Gtk::VBox(0, 5); -$a_dedans->border_width(0); -my $a_box = new Gtk::VBox(0, 0); - -my $a_c_button = new Gtk::RadioButton _("NewStyle Categorizing Monitor"); -$a_c_button->signal_connect(clicked => sub { $pixmap->set($c_pixmap, $c_mask) }); -$a_box->pack_start($a_c_button, 0, 0, 0); -my $a_h_button = new Gtk::RadioButton _("NewStyle Monitor"), $a_c_button; -$a_h_button->signal_connect(clicked => sub { $pixmap->set($h_pixmap, $h_mask) }); -$a_box->pack_start($a_h_button, 0, 0, 0); -my $a_v_button = new Gtk::RadioButton _("Traditional Monitor"), $a_c_button; -$a_v_button->signal_connect(clicked => sub { $pixmap->set($v_pixmap, $v_mask) }); -$a_box->pack_start($a_v_button, 0, 0, 0); -my $a_g_button = new Gtk::RadioButton _("Traditional Gtk+ Monitor"), $a_c_button; -$a_g_button->signal_connect(clicked => sub { $pixmap->set($g_pixmap, $g_mask) }); -$a_box->pack_start($a_g_button, 0, 0, 0); - -my $a_button = new Gtk::CheckButton(_("Launch Aurora at boot time") ); -$a_button->signal_connect(clicked => sub { - if ($inmain) { - $a_box->set_sensitive(!$a_mode); - $a_mode = !$a_mode; - if ($a_mode) { - $pixmap->set($c_pixmap, $c_mask) if $a_c_button->get_active(); - $pixmap->set($h_pixmap, $h_mask) if $a_h_button->get_active(); - $pixmap->set($v_pixmap, $v_mask) if $a_v_button->get_active(); - $pixmap->set($g_pixmap, $g_mask) if $a_g_button->get_active(); - } else { - $pixmap->set($t_pixmap, $t_mask); - } - } - }); -$a_dedans->pack_start($a_button, 0, 0, 0); -$a_dedans->pack_start ($a_box, 0, 0, 0); - -my $a_main_hbox = new Gtk::HBox; -$a_main_hbox->pack_start ($a_dedans, 0, 0, 0); -my $a_pix_hbox = new Gtk::HBox; -$a_pix_hbox->border_width(0); -$a_pix_hbox->pack_start ($pixmap, 0, 0, 0); -$a_main_hbox->pack_end ($a_pix_hbox, 0, 0, 0); - -my $aurora_frame = new Gtk::Frame _("Boot mode"); -$aurora_frame->add($a_main_hbox); -$global_vbox->pack_start ($aurora_frame, 0, 0, 0); - -### X mode -my $x_dedans = new Gtk::VBox(0, 0); -$x_dedans->border_width (0); -my $x_box = new Gtk::VBox(0, 0); -$x_box->border_width (0); - -my $x_button = new Gtk::CheckButton _("Launch the X-Window system at start"); -$x_button->set_active($x_mode); -$x_button->signal_connect(clicked => sub { - $x_box->set_sensitive(!$x_mode); - $x_mode = !$x_mode; - }); -$x_dedans->pack_start ($x_button, 0, 0, 0); - -my $x_no_button = new Gtk::RadioButton _("No, I don't want autologin"); -$x_no_button->set_active(!$l_mode); -$x_box->pack_start($x_no_button, 0, 0, 0); - -my $user_dedans = new Gtk::HBox(0, 10); -$user_dedans->border_width (0); -my $x_yes_button = new Gtk::RadioButton _("Yes, I want autologin with this (user, desktop)"), $x_no_button; -$x_yes_button->set_active($l_mode); -my $x_combo_vbox = new Gtk::VBox(0, 10); my $user_combo = new Gtk::Combo; $user_combo->set_popdown_strings(@usernames); $user_combo->entry->set_text($auto_mode{autologin}) if ($auto_mode{autologin}); - my $desktop_combo =new Gtk::Combo; $desktop_combo->set_popdown_strings(get_wm()); $desktop_combo->entry->set_text($auto_mode{desktop}) if ($auto_mode{desktop}); -$x_combo_vbox->pack_start($user_combo, 0, 0, 0); -$x_combo_vbox->pack_start($desktop_combo, 0, 0, 0); -$user_dedans->pack_start($x_yes_button, 0, 0, 0); -$user_dedans->pack_start($x_combo_vbox, 0, 0, 0); -$x_box->pack_start ($user_dedans, 0, 0, 0); -$x_box->set_sensitive($x_mode); -$x_dedans->pack_start ($x_box, 0, 0, 0); -my $x_main_frame = new Gtk::Frame _("System mode"); -$x_main_frame->add($x_dedans); -$global_vbox->pack_start ($x_main_frame, 1, 1, 0); - -#deush : hability to choose the runlevel. -my $runl_hbox = new Gtk::HBox; -my $runl_button5 = new Gtk::RadioButton ("level 5"); -my $runl_button1 = new Gtk::RadioButton ("level 1", $runl_button5); -$runl_hbox->add($runl_button1); -my $runl_button2 = new Gtk::RadioButton ("level 2", $runl_button5); -$runl_hbox->add($runl_button2); -my $runl_button3 = new Gtk::RadioButton ("level 3", $runl_button5); -$runl_hbox->add($runl_button3); -my $runl_button4 = new Gtk::RadioButton ("level 4", $runl_button5); -$runl_hbox->add($runl_button4); - -$runl_hbox->add($runl_button5); -#$runl_hbox->set_sensitive($x_mode); -my $runlevel_frame = new Gtk::Frame _("Default Runlevel"); -$runlevel_frame->add($runl_hbox); -$global_vbox->pack_start ($runlevel_frame, 0, 0, 0); - -### final buttons -my $bbox = new Gtk::HButtonBox; -$global_vbox->pack_start($bbox, 0, 0, 0); -$bbox->set_layout(-end); -my $build_button = new Gtk::Button _("OK"); -$bbox->add($build_button); -my $cancel_button = new Gtk::Button $::isEmbedded ? _("Cancel") : _("Quit"); -$bbox->add($cancel_button); -my $fin_hbox = new Gtk::HBox( 0, 0 ); -$cancel_button->signal_connect(clicked => sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)}); -$build_button->signal_connect(clicked=>sub{updateInit();updateAutologin();updateAurora();runlevel_choice();$::isEmbedded ? kill(USR1,$::CCPID) : Gtk->exit(0)}); - -### back to window -$window->add($global_vbox); -$window->show_all(); +my $a_c_button = new Gtk::RadioButton (_("NewStyle Categorizing Monitor")); +my $a_h_button = new Gtk::RadioButton _("NewStyle Monitor"), $a_c_button; +my $a_v_button = new Gtk::RadioButton _("Traditional Monitor"), $a_c_button; +my $a_g_button = new Gtk::RadioButton _("Traditional Gtk+ Monitor"),$a_c_button ; +my $a_button = new Gtk::CheckButton(_("Launch Aurora at boot time")); +my $a_box = new Gtk::VBox(0, 0); +my $x_box = new Gtk::VBox(0, 0); +gtkadd($window, + gtkpack__ (my $global_vbox = new Gtk::VBox(0,0), + gtkadd (new Gtk::Frame (_("Lilo/grub mode")), + gtkpack__(new Gtk::HBox(0, 0), + _("You are currently using %s as Boot Manager. +Click on Configure to launch the setup wizard.", $lilogrub), + gtksignal_connect(new Gtk::Button (_("Configure")), clicked => \&lilo_choice) + ) + ), + # aurora + gtkadd (new Gtk::Frame (_("Boot mode")), + gtkpack__ (new Gtk::HBox(0,0), + gtkpack__ (new Gtk::VBox(0, 5), + gtksignal_connect ($a_button, clicked => sub { + if ($inmain) { + $a_box->set_sensitive(!$a_mode); + $a_mode = !$a_mode; + if ($a_mode) { + $pixmap->set($c_pixmap, $c_mask) if $a_c_button->get_active(); + $pixmap->set($h_pixmap, $h_mask) if $a_h_button->get_active(); + $pixmap->set($v_pixmap, $v_mask) if $a_v_button->get_active(); + $pixmap->set($g_pixmap, $g_mask) if $a_g_button->get_active(); + } else { + $pixmap->set($t_pixmap, $t_mask); + } + } + }), + gtkpack__ ( gtkset_sensitive ($a_box, $a_mode), + gtksignal_connect ($a_c_button,clicked => sub{$pixmap->set($c_pixmap, $c_mask)}), + gtksignal_connect ($a_h_button,clicked => sub{$pixmap->set($h_pixmap, $h_mask)}), + gtksignal_connect ($a_v_button,clicked => sub{$pixmap->set($v_pixmap, $v_mask)}), + gtksignal_connect ($a_g_button,clicked => sub{$pixmap->set($g_pixmap, $g_mask)}) + ) + ), + gtkpack__ (new Gtk::HBox(0,0), $pixmap) + ) + ), + # X + gtkadd (new Gtk::Frame (_("System mode")), + gtkpack__ (new Gtk::VBox(0, 5), + gtksignal_connect(gtkset_active(new Gtk::CheckButton (_("Launch the X-Window system at start")), $x_mode ), clicked => sub { + $x_box->set_sensitive(!$x_mode); + $x_mode = !$x_mode; + }), + gtkpack__ (gtkset_sensitive ($x_box, $x_mode), + gtkset_active($x_no_button = new Gtk::RadioButton (_("No, I don't want autologin")), !$l_mode), + gtkpack__ (new Gtk::HBox(0, 10), + gtkset_active($x_yes_button = new Gtk::RadioButton((_("Yes, I want autologin with this (user, desktop)")), $x_no_button), $l_mode), + gtkpack__ (new Gtk::VBox(0, 10), + $user_combo, + $desktop_combo + ) + ) + ) + ) + ), + gtkadd (gtkset_layout(new Gtk::HButtonBox,-end), + gtksignal_connect(new Gtk::Button (_("OK")), clicked=>sub{updateInit();updateAutologin();updateAurora();$::isEmbedded ? kill(USR1,$::CCPID) : Gtk->exit(0)}), + gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)}) + ) + ) + ); -$a_box->set_sensitive($a_mode); # box grisée == false == "0" $a_button->set_active($a_mode); # up == false == "0" if ($a_mode) { my $a = readlink "/etc/aurora/Monitor"; @@ -257,6 +169,7 @@ if ($a_mode) { $pixmap->set($t_pixmap, $t_mask); } +$window->show_all(); Gtk->main_iteration while Gtk->events_pending; $::isEmbedded and kill USR2, $::CCPID; $inmain=1; @@ -274,9 +187,7 @@ sub parse_etc_passwd do { @user_info = getpwent(); ($uname, $uid) = @user_info[0,2]; - if ($uid > 500) { - push (@usernames, $uname); - } + push (@usernames, $uname) if ($uid > 500); } while (@user_info); } @@ -310,7 +221,6 @@ sub get_main_menu { sub isXlaunched { my $line; - open INITTAB, "/etc/inittab" or die _("can not open /etc/inittab for reading: $!"); while () { if (/id:([1-6]):initdefault:/) { $line = $_; last; } @@ -337,19 +247,19 @@ sub updateAurora if ($a_mode) { if ($a_c_button->get_active()) { symlinkf("/lib/aurora/Monitors/NewStyle-Categorizing-WsLib", "/etc/aurora/Monitor"); - $in->do_pkgs->install(q(Aurora-Monitor-NewStyle-Categorizing-WsLib)) if !(-e "/lib/aurora/Monitors/NewStyle-Categorizing-WsLib"); + $in->standalone::pkgs_install(q(Aurora-Monitor-NewStyle-Categorizing-WsLib)) if !(-e "/lib/aurora/Monitors/NewStyle-Categorizing-WsLib"); } if ($a_h_button->get_active()) { symlinkf("/lib/aurora/Monitors/NewStyle-WsLib", "/etc/aurora/Monitor"); - $in->do_pkgs->install(q(Aurora-Monitor-NewStyle-WsLib)) if !(-e "/lib/aurora/Monitors/NewStyle-WsLib"); + $in->standalone::pkgs_install(q(Aurora-Monitor-NewStyle-WsLib)) if !(-e "/lib/aurora/Monitors/NewStyle-WsLib"); } if ($a_v_button->get_active()) { symlinkf("/lib/aurora/Monitors/Traditional-WsLib", "/etc/aurora/Monitor"); - $in->do_pkgs->install(q(Aurora-Monitor-Traditional-WsLib)) if !(-e "/lib/aurora/Monitors/Traditional-WsLib"); + $in->standalone::pkgs_install(q(Aurora-Monitor-Traditional-WsLib)) if !(-e "/lib/aurora/Monitors/Traditional-WsLib"); } if ($a_g_button->get_active()) { symlinkf("/lib/aurora/Monitors/Traditional-Gtk+", "/etc/aurora/Monitor"); - $in->do_pkgs->install(q(Aurora-Monitor-Traditional-Gtk+)) if !(-e "/lib/aurora/Monitors/Traditional-Gtk+"); + $in->standalone::pkgs_install(q(Aurora-Monitor-Traditional-Gtk+)) if !(-e "/lib/aurora/Monitors/Traditional-Gtk+"); } } else { unlink "/etc/aurora/Monitor"; @@ -392,7 +302,7 @@ sub updateAutologin my ($usern,$deskt)=($user_combo->entry->get_text(), $desktop_combo->entry->get_text()); if ($x_yes_button->get_active()) { - $in->do_pkgs->install(q(autologin)) if $x_mode; + $in->standalone::pkgs_install(q(autologin)) if $x_mode; set_autologin('',$usern,$deskt); } else { set_autologin('',undef) if ($x_no_button->get_active()); @@ -437,26 +347,3 @@ sub lilo_choice goto ask; } } - -#--------------------------------------------------------------- -# Choose your runlevel: from 1 to 5 -#--------------------------------------------------------------- -sub runlevel_choice -{ - if ($runl_button1->get_active()) { - any::runlevel('',1); - } - if ($runl_button2->get_active()) { - any::runlevel('',2); - } - if ($runl_button3->get_active()) { - any::runlevel('',3); - } - if ($runl_button4->get_active()) { - any::runlevel('',4); - } - if ($runl_button5->get_active()) { - any::runlevel('',5); - } -} - -- cgit v1.2.1