first release

name will be changed soon..

1 files changed, 195 insertions, 0 deletions

diff --git a/cest_ton_boot b/cest_ton_boot
new file mode 100755
index 00000000..c9fe3d78
--- /dev/null
+++ b/cest_ton_boot
@@ -0,0 +1,195 @@
+#!/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;
+
+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->set_usize( 300, 300 );
+$window->border_width (10);
+
+### 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);
+
+######## up part
+my $up_vbox  = new Gtk::VBox (0, 0);
+
+# device part
+my $aurora_frame = new Gtk::Frame( I_("Boot mode") );
+$box2 = new Gtk::VBox(0,10);
+$box2->border_width(10);
+$up_vbox->pack_start($box2, 1, 1, 0);
+$box2->show;
+
+$button = new Gtk::RadioButton "horizontal nice looking aurora";
+$box2->pack_start($button, 1, 1, 0);
+$button->show;
+
+$button = new Gtk::RadioButton "vertical traditionnal aurora", $button;
+$button->set_active(1);
+$box2->pack_start($button, 1, 1, 0);
+$button->show;
+
+$button = new Gtk::RadioButton "gMonitor (choose this only if you have a non FrameBuffer kernel", $button;
+$box2->pack_start($button, 1, 1, 0);
+$button->show;
+
+$button = new Gtk::RadioButton "old text based boot", $button;
+$box2->pack_start($button, 1, 1, 0);
+$button->show;
+
+$aurora_frame->add($up_vbox);
+$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 {
+				  if ($x_mode) {
+				    $x_box->set_sensitive(0)
+				  } else {
+				    $x_box->set_sensitive(1);
+				  }
+				    $x_mode = !$x_mode;
+				});
+$x_dedans->pack_start ($x_button, 0, 0, 0);
+
+
+$button = new Gtk::RadioButton "no, I do not want autologin", $button;
+$button->set_active(1);
+$x_box->pack_start($button, 1, 1, 0);
+
+$button = new Gtk::RadioButton "yes, I want it with all my friends", $button;
+$x_box->pack_start($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>' ) );
+}
+
+