#!/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);

######## aurora part
my $aurora_frame = new Gtk::Frame( I_("Boot mode") );
my $aurora_sw = new Gtk::ScrolledWindow();
$aurora_sw->set_policy( 'automatic', 'automatic' );
#$aurora_sw->set_usize( 500, 500 );
my $box2 = new Gtk::VBox(0,10);
$box2->border_width(10);

$button = new Gtk::RadioButton I_("horizontal nice looking aurora");
$button->set_active(1);
$box2->pack_start($button, 1, 1, 0);

$button = new Gtk::RadioButton I_("vertical traditionnal aurora"), $button;
$box2->pack_start($button, 1, 1, 0);

$button = new Gtk::RadioButton I_("gMonitor (choose this only if you have a non FrameBuffer kernel"), $button;
$box2->pack_start($button, 1, 1, 0);

$button = new Gtk::RadioButton I_("old text based boot"), $button;
$box2->pack_start($button, 1, 1, 0);

$aurora_sw->add_with_viewport ($box2);
$aurora_frame->add($aurora_sw);
$global_vbox->pack_start ($aurora_frame, 0, 0, 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 I_("no, I do not want autologin"), $button;
$button->set_active(1);
$x_box->pack_start($button, 1, 1, 0);

$button = new Gtk::RadioButton I_("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>' ) );
}