diff options
| -rwxr-xr-x | control-center2 | 313 |
1 files changed, 313 insertions, 0 deletions
diff --git a/control-center2 b/control-center2 new file mode 100755 index 00000000..748ce4e5 --- /dev/null +++ b/control-center2 @@ -0,0 +1,313 @@ +#!/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; +init Gtk; +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 $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); + +######### 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/sep1", 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(70, 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); + +$window_global->realize; +map { + $pixmaps_global{$_ . '_pixmap'} = + Gtk::Gdk::Pixmap->create_from_xpm($window_global->window, Gtk::Widget->get_default_style->bg('normal'), "$xpm_path/$_.xpm"); +} ('item1', 'item2', 'item3', 'item4', 'item5','draknet1','draknet2','draknet3','draknet4', 'draknet5', 'drakgw'); + +my %tree; +$tree{nb_groups}=2; +$tree[0]{name}="groupe1"; +$tree[0]{nb_applis}=2; +$tree[0]{applis}[0]{name}='drakfont'; +$tree[0]{applis}[1]{name}='drakfloppy'; +$tree[1]{name}="groupe2"; +$tree[1]{nb_applis}=2; +$tree[1]{applis}[0]{name}='drakxservices'; +$tree[1]{applis}[1]{name}='drakboot'; +#print Data::Dumper->Dump([%tree], ['tree']) . "\n"; +print "nb gr : " . $tree{nb_groups} . "\n"; +my $num=0; +my $group; +for ( $group=0; $group<$tree{nb_groups}; $group++) { + print "group : $group\n"; + # print Data::Dumper->Dump([$v], ['v']) . "\n"; + +# print Data::Dumper->Dump([[$tree{$arg}]], ['tree-->']) . "\n"; + draw_icon(56, 36, 'item', 0, ""); + + + for ($item=0; $item<$tree[$group]{nb_applis}; $item++) { + print "item : $item\n"; + draw_icon(56, 36, 'item', 1, $tree[$group]{applis}[$item]{name}, $num); + $num++; + } +} + + ######### + +$window_global->show_all; +print "num : " . $notebook_global->page_num($vbox_about) . "\n"; +$notebook_global->set_page(0); +Gtk->main; + + + + +sub draw_icon { + my ($width, $height, $icon_name, $decalage, $exec_string, $number ) = @_; + my %hash; + if ($exec_string) { + my $socket = new Gtk::Socket; + $socket->show; + $notebook_global->append_page($socket, ""); + $socket->realize; + print ("The XID of the sockets window n°$arg is [" . $socket->window->XWINDOW . "]\n"); + system ( $exec_string . " --embedded " . $socket->window->XWINDOW . "&"); + $hash=$tree[$group]{applis}[$item]; + } else { + $hash=$tree[$group]; + } + $hash{PIX_W} = $width; + $hash{PIX_H} = $height; + $hash{actual_pixmap}=1; + $hash{save_pixmap}=0; + $hash{anim_idle}=undef; + $hash{timeout}=undef; + $hash{darea} = new Gtk::DrawingArea; + $hash{darea}->set_usize($width,$height); + $hash{darea}->set_events(['exposure_mask', 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]); + $hash{darea}->signal_connect + (expose_event => sub { + $hash{darea}->window->draw_pixmap + ($hash{darea}->style->bg_gc('normal'), + $pixmaps_global{ $icon_name . $hash{actual_pixmap} . '_pixmap'}, 0, 0, + ($hash{darea}->allocation->[2]-$hash{PIX_W})/2+($decalage * 10), + ($hash{darea}->allocation->[3]-$hash{PIX_H})/2, + $hash{PIX_W} , $hash{PIX_H} ); + }); + + + $hash{darea}->signal_connect + (enter_notify_event => sub { + $hash{anim_idle} ||= Gtk->idle_add + ( sub { + $hash{actual_pixmap}==$hash{save_pixmap} and return 1; + $hash{darea}->window->draw_pixmap + ($hash{darea}->style->bg_gc('normal'), + $pixmaps_global{ $icon_name . $hash{actual_pixmap} . '_pixmap'}, + 0, 0, + ($hash{darea}->allocation->[2]-$hash{PIX_W})/2+($decalage * 10), + ($hash{darea}->allocation->[3]-$hash{PIX_H})/2, + $hash{PIX_W} , $hash{PIX_H} ); + $hash{save_pixmap}=$hash{actual_pixmap}; + return 1; + }); + + $hash{timeout} ||= Gtk->timeout_add + ( 50, sub { + $hash{actual_pixmap}++; + $hash{actual_pixmap}>5 and $hash{actual_pixmap}=1; + return 1; + }); + }); + + + $hash{darea}->signal_connect + (leave_notify_event => sub { + Gtk->main_iteration() while ($hash{save_pixmap}!=1); + Gtk->idle_remove($hash{anim_idle}); + Gtk->timeout_remove($hash{timeout}); + undef $hash{anim_idle}; + undef $hash{timeout}; + }); + # $hash{darea}->signal_connect(button_press_event => sub { }); + if ($exec_string) { + $hash{darea}->signal_connect(button_release_event => sub { $notebook_global->set_page($number+1); }); + } else { + $hash{darea}->signal_connect(button_release_event => sub { $notebook_global->set_page($number+1); }); + } + $vbox_global_left->pack_start($hash{darea},0,1,5); + print Data::Dumper->Dump([$hash], ['hash-->']) . "\n"; +} + +sub item_factory_cb { + my ($widget, $action, @data) = @_; + + print "ItemFactory: activated ", $widget->item_factory_path(), " -> ", $action, "\n"; + $action == 5 and Gtk->exit(0); +} + + +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; + } +} |