summaryrefslogtreecommitdiffstats
path: root/cest_ton_boot
diff options
context:
space:
mode:
Diffstat (limited to 'cest_ton_boot')
-rwxr-xr-xcest_ton_boot223
1 files changed, 0 insertions, 223 deletions
diff --git a/cest_ton_boot b/cest_ton_boot
deleted file mode 100755
index a43b4e01..00000000
--- a/cest_ton_boot
+++ /dev/null
@@ -1,223 +0,0 @@
-#!/usr/bin/perl -w
-
-# Control-center
-
-# Copyright (C) 2001 MandrakeSoft
-# Yves Duret <yduret at mandrakesoft.com>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-
-
-use Gtk;
-use Config;
-init Gtk;
-use POSIX;
-use Locale::GetText;
-
-setlocale (LC_ALL, "");
-Locale::GetText::textdomain ("c'est ton boot !");
-#Locale::GetText::bindtextdomain ("drakfloppy", "/usr/share/locale");
-
-import Locale::GetText I_;
-
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\S*) (\S*)/;
-if ($::isEmbedded) {
- print "EMBED\n";
- print "XID : $::XID\n";
- print "CCPID : $::CCPID\n";
-}
-
-local $_ = join '', @ARGV;
-
-/-h/ and die I_("usage: drakfloppy\n");
-
-$x_mode = 0;
-$a_mode = (-e "/etc/aurora/Monitor");
-
-my @xpm_data = ( "16 16 4 1",
- " c None s None",
- ". c black",
- "X c #808080",
- "o c white",
- " ",
- " .. ",
- " .Xo. ... ",
- " .Xoo. ..oo. ",
- " .Xooo.Xooo... ",
- " .Xooo.oooo.X. ",
- " .Xooo.Xooo.X. ",
- " .Xooo.oooo.X. ",
- " .Xooo.Xooo.X. ",
- " .Xooo.oooo.X. ",
- " .Xoo.Xoo..X. ",
- " .Xo.o..ooX. ",
- " .X..XXXXX. ",
- " ..X....... ",
- " .. ",
- " ");
-
-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( I_("ce soir tu choisis ton boot") );
-#$window->set_policy('automatic', 'automatic');
-$window->set_policy(0, 0, 0);
-$window->border_width (10);
-$window->realize;
-
-
-### menus definition
-# the menus are not shown
-# but they provides shiny shortcut like C-q
-my @menu_items = ( { path => I_("/_File"),
- type => '<Branch>' },
- { path => I_("/File/_New"),
- accelerator => I_("<control>N"),
- callback => \&print_hello },
- { path => I_("/File/_Open"),
- accelerator => I_("<control>O"),
- callback => \&print_hello },
- { path => I_("/File/_Save"),
- accelerator => I_("<control>S"),
- callback => \&print_hello },
- { path => I_("/File/Save _As") },
- { path => I_("/File/-"),
- type => '<Separator>' },
- { path => I_("/File/_Quit"),
- accelerator => I_("<control>Q"),
- callback => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } },
-
- { path => I_("/_Options"),
- type => '<Branch>' },
- { path => I_("/Options/Test") },
-
- { path => I_("/_Help"),
- type => '<LastBranch>' },
- { path => I_("/Help/_About...") } );
-
-my $menubar = get_main_menu( $window );
-
-######### menus end
-
-my $global_vbox = new Gtk::VBox();
-
-$global_vbox->pack_start (new Gtk::Label(I_("special c'est ton choix")), 0, 0, 0);
-
-######## aurora part
-my $aurora_frame = new Gtk::Frame( I_("Boot mode") );
-my $a_main_hbox = new Gtk::HBox;
-
-my $a_dedans = new Gtk::VBox( 0, 10 );
-$a_dedans->border_width (5);
-my $a_box = new Gtk::VBox(0, 0 );
-
-my $a_button = new Gtk::CheckButton( I_("Launch Aurora at boot time") );
-$a_button->signal_connect( "clicked", sub {
- ($a_mode) ? $a_box->set_sensitive(0) : $a_box->set_sensitive(1);
- $a_mode = !$a_mode;
- });
-$a_dedans->pack_start ($a_button, 0, 0, 0);
-
-my $a_h_button = new Gtk::RadioButton I_("horizontal nice looking aurora");
-$a_h_button->set_active(1);
-$a_box->pack_start($a_h_button, 1, 1, 0);
-
-my $a_v_button = new Gtk::RadioButton I_("vertical traditionnal aurora"), $a_h_button;
-$a_box->pack_start($a_v_button, 1, 1, 0);
-
-my $a_g_button = new Gtk::RadioButton I_("gMonitor (choose this only if you have a non FrameBuffer kernel"), $a_h_button;
-$a_box->pack_start($a_g_button, 1, 1, 0);
-
-$a_box->set_sensitive (0);
-$a_dedans->pack_start ($a_box, 0, 0, 0);
-
-# now for the pixmap from gdk
-my ( $pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm( $window->window, $window->get_style()->bg( 'normal' ), "./c.xpm" );
-
-# a pixmap widget to contain the pixmap
-my $pixmapwid = new Gtk::Pixmap( $pixmap, $mask );
-$pixmapwid->show();
-
-$a_main_hbox->pack_start ($a_dedans, 0, 0, 0);
-$a_main_hbox->pack_start ($pixmapwid, 0, 0, 0);
-$aurora_frame->add($a_main_hbox);
-$global_vbox->pack_start ($aurora_frame, 1, 1, 0);
-
-### X mode
-my $x_main_frame = new Gtk::Frame( I_("System mode") );
-my $x_dedans = new Gtk::VBox( 0, 10 );
-$x_dedans->border_width (5);
-my $x_box = new Gtk::VBox(0, 0 );
-
-my $x_button = new Gtk::CheckButton( I_("Launch the X-Window system at start") );
-$x_button->signal_connect( "clicked", sub {
- ($x_mode) ? $x_box->set_sensitive(0) : $x_box->set_sensitive(1);
- $x_mode = !$x_mode;
- });
-$x_dedans->pack_start ($x_button, 0, 0, 0);
-
-
-my $x_no_button = new Gtk::RadioButton I_("no, I do not want autologin");
-#$x_no_button->set_active(1);
-$x_box->pack_start($x_no_button, 1, 1, 0);
-
-my $x_yes_button = new Gtk::RadioButton I_("yes, I want autologin with this user"), $x_no_button;
-$x_box->pack_start($x_yes_button, 1, 1, 0);
-
-my $user_dedans = new Gtk::VBox( 0, 10 );
-$user_dedans->border_width (0);
-
-my $user_combo = new Gtk::Combo;
-$user_combo->set_popdown_strings( "you", "me", "rms", "linus");
-$user_dedans->pack_start($user_combo, 0, 0, 0);
-$x_box->pack_start ($user_dedans, 0, 0, 0);
-$x_box->set_sensitive (0);
-$x_dedans->pack_start ($x_box, 0, 0, 0);
-$x_main_frame->add($x_dedans);
-$global_vbox->pack_start ($x_main_frame, 1, 1, 0);
-
-### final buttons
-my $build_button = new Gtk::Button( I_("OK") );
-my $cancel_button = new Gtk::Button( I_("Cancel") );
-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', \&print_hello);
-$fin_hbox->pack_end($cancel_button, 0, 0, 0);
-$fin_hbox->pack_end($build_button, 0, 0, 10);
-$global_vbox->pack_start ($fin_hbox, 0, 0, 0);
-
-### back to window
-$window->add( $global_vbox );
-
-$window->show_all();
-
-main Gtk;
-
-#-------------------------------------------------------------
-# menu callback functions
-#-------------------------------------------------------------
-
-sub print_hello {
- print( "mcdtg !\n" );
-}
-
-sub get_main_menu {
- my ( $window ) = @_;
-
- my $accel_group = new Gtk::AccelGroup();
- my $item_factory = new Gtk::ItemFactory( 'Gtk::MenuBar', '<main>', $accel_group );
- $item_factory->create_items( @menu_items );
- $window->add_accel_group( $accel_group );
- return ( $item_factory->get_widget( '<main>' ) );
-}