#!/usr/bin/perl

# Control-center

# Copyright (C) 1999 MandrakeSoft (damien@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;
# for i18n
use POSIX;
use Locale::GetText;

setlocale (LC_ALL, "");
Locale::GetText::textdomain ("DrakConf");

import Locale::GetText I_;
*_ = *I_;

init Gtk;
#use lib qw(/usr/lib/libDrakX);
#use netconnect;
#use c;
#use Data::Dumper;
#local $_ = join '', @ARGV;
#if ($ARGV[1]=  )
#/-h/ and die "usage: draknet[--xf3] [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing]\n";

my %pixmaps_global;
my $xpm_path="pixmaps";
#my $label_splash = new Gtk::Label();

my $window_global = new Gtk::Window -toplevel;
$window_global->set_usize(640, 480);
$window_global->signal_connect ( delete_event => sub { Gtk->exit(0); });
$window_global->set_position(1);
$window_global->set_title(_("Control Center"));
$window_global->border_width(0);

$vbox_global = new Gtk::VBox(0, 0);
$window_global->add($vbox_global);

######### tree

my @tree = (
	    group1 => ( appli1 => 'drakfont',
			appli2 => 'drakfloppy'),
	    group2 => ( appli1 => 'drakxservices',
			appli2 => 'drakboot'),
	   );

######### menus
my @item_factory_entries = (
			    [_("/_File"),	undef,	0,	"<Branch>"],
			    [_("/File/tearoff1"),	undef,	0,	"<Tearoff>"],
			    [_("/File/_New"),	_("<control>N"),	1],
			    [_("/File/_Open"),	_("<control>O"),	2],
			    [_("/File/_Save"), _("<control>S"),	3],
			    [_("/File/Save _As..."),	undef,	4],
			    [_("/File/-"),	undef,	0,	"<Separator>"],
			    #[_("/File/_Quit"),	"<control>Q",	5],
			    {
			     'path' => _("/File/_Quit"), 
			     'accelerator' => _("<control>Q"),	
			     'action' => 5,
			     'type' => '<Item>'
			    },

			    [_("/_Preferences"),	undef,	0,	"<Branch>"],
			    [_("/_Preferences/_Color"),	undef,	0,	"<Branch>"],
			    [_("/_Preferences/Color/_Red"),	undef,	10,	"<RadioItem>"],
			    [_("/_Preferences/Color/_Green"),	undef,	11,	"<RadioItem>"],
			    [_("/_Preferences/Color/_Blue"),	undef,	12,	"<RadioItem>"],
			    [_("/_Preferences/_Shape"),	undef,	0,	"<Branch>"],
			    [_("/_Preferences/Shape/_Square"),	undef,	20,	"<RadioItem>"],
			    [_("/_Preferences/Shape/_Rectangle"),	undef,	21,	"<RadioItem>"],
			    [_("/_Preferences/Shape/_Oval"),	undef,	22,	"<RadioItem>"],

			    [_("/_Help"),	undef,	0,	"<LastBranch>"],
			    [_("/Help/_About..."),	undef,	30]
			   );

my ($accel_group, $item_factory, $box1, $label, $box2);
my ($separator, $button, $dummy);

#  		$item_factory_window = new Gtk::Window('toplevel');
#  		signal_connect $item_factory_window destroy => \&destroy_window, \$item_factory_window;
#  		signal_connect $item_factory_window "delete-event" => \&destroy_window, \$item_factory_window;

$accel_group = new Gtk::AccelGroup;
$item_factory = new Gtk::ItemFactory('Gtk::MenuBar', "<main>", $accel_group);

#$window_global->set_data('<main>', $item_factory);
$accel_group->attach($window_global);
#$item_factory->create_items();
foreach (@item_factory_entries) {
    $item_factory->create_item($_, \&item_factory_cb);
}

#		$item_factory_window->set_title(_("Item Factory"));
#		$item_factory_window->set_border_width(0);

#		$box1 = new Gtk::VBox(0, 0);
#		$item_factory_window->add($box1);
$vbox_global->pack_start($item_factory->get_widget('<main>'), 0, 0, 0);
$hseparator_global = new Gtk::HSeparator;
$vbox_global->pack_start($hseparator_global, 0, 1, 0);
######### menus end


my $hbox_global = new Gtk::HBox(0,0);
$vbox_global->pack_start($hbox_global, 1, 1, 0);
$hbox_global->border_width(5);
my $scrolled_global = new Gtk::ScrolledWindow;
$scrolled_global->set_policy('automatic','automatic');
$scrolled_global->set_usize(52, 0);
$hbox_global->pack_start($scrolled_global,0,1,0);
my $vseparator_global = new Gtk::VSeparator;
$hbox_global->pack_start($vseparator_global,0,1,0);

my $notebook_global = new Gtk::Notebook;
$notebook_global->set_show_border(0);
$notebook_global->set_show_tabs(0);
$hbox_global->pack_start($notebook_global,1,1,0);

my ($pix_about_map, $pix_about_mask) = Gtk::Gdk::Pixmap->create_from_xpm(NULL, Gtk::Widget->get_default_style->bg('normal'),  "$xpm_path/logo1.xpm");
my $pix_about = new Gtk::Pixmap ($pix_about_map, $pix_about_mask);
my $vbox_about = new Gtk::VBox(1,0);
$vbox_about->pack_start($pix_about, 1, 1, 0);
my $text_about = new Gtk::Text ();
$text_about->set_editable(0);
$text_about->insert ( undef, undef, undef, _("About, help, click on that button..."));
$vbox_about->pack_start($text_about, 1, 1, 0);
my $label_about2 = new Gtk::Label ("");
$vbox_about->pack_start($label_about2, 1, 1, 0);
$notebook_global->append_page($vbox_about, "$arg");

my $vbox_global_left = new Gtk::VBox(0,0);
$scrolled_global->add_with_viewport($vbox_global_left);
my %tools;

for ( my $arg=0; $arg<=$#ARGV; $arg++) {
    $tools[$arg]{socket} = new Gtk::Socket;
    $tools[$arg]{socket}->show;
    $notebook_global->append_page($tools[$arg]{socket}, "$ARGV[$arg]");
    $tools[$arg]{socket}->realize;
#    print ("The XID of the sockets window n°$arg is [" . $tools[$arg]{socket}->window->XWINDOW . "]\n");
    system ( $ARGV[$arg] . " --embedded " . $tools[$arg]{socket}->window->XWINDOW . "&");
    map {
	$pixmaps_global{$_ . '_pixmap'} =
	  Gtk::Gdk::Pixmap->create_from_xpm($window_global->window, Gtk::Widget->get_default_style->bg('normal'),  "$xpm_path/$_.xpm");
    } ('draknet1','draknet2','draknet3','draknet4', 'draknet5', 'drakgw');
    $tools[$arg]{PIX_W} = 48;
    $tools[$arg]{PIX_H} = 48;
    $tools[$arg]{actual_pixmap}=1;
    $tools[$arg]{save_pixmap}=0;
    $tools[$arg]{anim_idle}=undef;
    $tools[$arg]{timeout}=undef;
    $tools[$arg]{darea} = new Gtk::DrawingArea;
    $tools[$arg]{darea}->set_usize($tools[$arg]{PIX_W},$tools[$arg]{PIX_H});
    $tools[$arg]{darea}->set_events(['exposure_mask', 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]);


    $tools[$arg]{darea}->signal_connect
      (expose_event => sub {
	   my $arg=$_[1];
#	   print Data::Dumper->Dump([%tools], ['$tools[$arg]']) . "\n";
#	   print Data::Dumper->Dump([$tools[$arg]{darea}], ['area']) . "\n";
	   $tools[$arg]{darea}->window->draw_pixmap
	     ($tools[$arg]{darea}->style->bg_gc('normal'),
	      $pixmaps_global{'draknet' . $tools[$arg]{actual_pixmap} . '_pixmap'}, 0, 0,
	      ($tools[$arg]{darea}->allocation->[2]-$tools[$arg]{PIX_W})/2,
	      ($tools[$arg]{darea}->allocation->[3]-$tools[$arg]{PIX_H})/2,
	      $tools[$arg]{PIX_W} , $tools[$arg]{PIX_H} );
       }, $arg );


    $tools[$arg]{darea}->signal_connect
      (enter_notify_event => sub {
	   my $arg=$_[1];

	   $tools[$arg]{anim_idle} ||= Gtk->idle_add
	     ( sub {
		   $tools[$arg]{actual_pixmap}==$tools[$arg]{save_pixmap} and return 1;
		   $tools[$arg]{darea}->window->draw_pixmap 
		     ($tools[$arg]{darea}->style->bg_gc('normal'),
		      $pixmaps_global{'draknet' . $tools[$arg]{actual_pixmap} . '_pixmap'},
		      0, 0,
		      ($tools[$arg]{darea}->allocation->[2]-$tools[$arg]{PIX_W})/2,
		      ($tools[$arg]{darea}->allocation->[3]-$tools[$arg]{PIX_H})/2,
		      $tools[$arg]{PIX_W} , $tools[$arg]{PIX_H} );
		   $tools[$arg]{save_pixmap}=$tools[$arg]{actual_pixmap};
		   return 1;
	       });

	   $tools[$arg]{timeout} ||= Gtk->timeout_add
	     ( 50, sub {
		   $tools[$arg]{actual_pixmap}++;
		   $tools[$arg]{actual_pixmap}>5 and $tools[$arg]{actual_pixmap}=1;
		   return 1;
	       });
       }, $arg);


    $tools[$arg]{darea}->signal_connect
      (leave_notify_event => sub {
	   my $arg=$_[1];
	   Gtk->main_iteration() while ($tools[$arg]{save_pixmap}!=1);
	   Gtk->idle_remove($tools[$arg]{anim_idle});
	   Gtk->timeout_remove($tools[$arg]{timeout});
	   undef $tools[$arg]{anim_idle};
	   undef $tools[$arg]{timeout};
       }, $arg);
#    $tools[$arg]{darea}->signal_connect(button_press_event => sub { });
    $tools[$arg]{darea}->signal_connect(button_release_event => sub { $notebook_global->set_page($_[1]+1);}, $arg);
    $vbox_global_left->pack_start($tools[$arg]{darea},0,1,5);
    #$vbox_global_left->pack_start($pixmaps_global{'drakgw'},0,1,5);
}

$window_global->show_all;
print _("num: ") . $notebook_global->page_num($vbox_about) . "\n";
$notebook_global->set_page(0);
Gtk->main;


sub item_factory_cb {
	my ($widget, $action, @data) = @_;

	print "ItemFactory: activated ", $widget->item_factory_path(), " -> ", $action, "\n";
	$action == 5 and Gtk->exit;
}


sub create_item_factory {
	if (!defined $item_factory_window) {
		my ($accel_group, $item_factory, $box1, $label, $box2);
		my ($separator, $button, $dummy);

		
		$item_factory_window = new Gtk::Window('toplevel');
		signal_connect $item_factory_window destroy => \&destroy_window, \$item_factory_window;
		signal_connect $item_factory_window "delete-event" => \&destroy_window, \$item_factory_window;

		$accel_group = new Gtk::AccelGroup;
		$item_factory = new Gtk::ItemFactory('Gtk::MenuBar', "<main>", $accel_group);
		
		#$item_factory_window->set_data('<main>', $item_factory);
		$accel_group->attach($item_factory_window);
		# $item_factory->create_items();
		foreach (@item_factory_entries) {
			$item_factory->create_item($_, \&item_factory_cb);
		}
		
		$item_factory_window->set_title(_("Item Factory"));
		$item_factory_window->set_border_width(0);
		
		$box1 = new Gtk::VBox(0, 0);
		$item_factory_window->add($box1);
		$box1->pack_start($item_factory->get_widget('<main>'), 0, 0, 0);

		$label = new Gtk::Label _("Type\n<alt>\nto start");

		$label->set_usize(200, 200);
		$label->set_alignment(0.5, 0.5);
		$box1->pack_start($label, 1, 1, 0);

		$separator = new Gtk::HSeparator;
		$box1->pack_start($separator, 0, 1, 0);

		$box2 = new Gtk::VBox(0, 10);
		$box2->set_border_width(10);
		$box1->pack_start($box2, 0, 1, 0);

		$button = new Gtk::Button(_("Close"));
		$button->signal_connect('clicked', sub {$item_factory_window->destroy;});
		$box2->pack_start($button, 1, 1, 0);
		$button->can_default(1);
		$button->grab_default;

	}
	if (!visible $item_factory_window) {
		show_all $item_factory_window;
	} else {
		destroy $item_factory_window;
	}
}