diff options
Diffstat (limited to 'relcontrolcenter')
| -rwxr-xr-x | relcontrolcenter | 447 |
1 files changed, 0 insertions, 447 deletions
diff --git a/relcontrolcenter b/relcontrolcenter deleted file mode 100755 index 8fe12a3f..00000000 --- a/relcontrolcenter +++ /dev/null @@ -1,447 +0,0 @@ -#!/usr/bin/perl -w - -# Control-center - -# Copyright (C) 1999-2001 MandrakeSoft -# Damien Krotkine (damien@mandrakesoft.com) -# Daouda Lo (daouda@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; -use POSIX; -# for i18n -use Locale::GetText; - -setlocale (LC_ALL, ""); -Locale::GetText::textdomain ("DrakConf"); - -import Locale::GetText I_; -*_ = *I_; - -init Gtk; -use Data::Dumper; - -my %pixmaps_global; -my $xpm_path="pixmaps"; -my $tree_depth_max = 1; -my @ctree_sib; - -my $window_global = new Gtk::Window -toplevel; -$window_global->set_usize(800, 600); -$window_global->signal_connect ( delete_event => sub { Gtk->exit(0); }); -$window_global->set_position(1); -$window_global->set_title(_("Mandrake 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/_Quit"), "<control>Q", 5], - { - 'path' => _("/File/_Quit"), - 'accelerator' => _("<control>Q"), - 'action' => 1, - 'type' => '<Item>' - }, - [_("/_Help"), undef, 0, "<Branch>"], - [_("/Help/_Mandrake Control Center"), undef, 2], - [_("/Help/_Report Bug"), undef, 3 ], - [_("/Help/_About..."), undef, 4 ] - ); - -my ($accel_group, $item_factory, $box1, $label, $box2); -my ($separator, $button, $dummy); - -$accel_group = new Gtk::AccelGroup; -$item_factory = new Gtk::ItemFactory('Gtk::MenuBar', "<main>", $accel_group); - -$accel_group->attach($window_global); -foreach (@item_factory_entries) { - $item_factory->create_item($_, \&item_factory_cb); -} - -$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(180, 0); -$scrolled_global->set_name("icons_back"); -#$scrolled_global->window->draw_rectangle(nil,1, 0, 0, 70, 70); #$scrolled_global->window->style->bg_gc('normal') -$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); - -#-------------------------------- splash screeen -------------------------------------------------------- - -<<<<<<< relcontrolcenter -sub splash { -======= -my $hbox1= new Gtk::HBox(0,20); -my ($pix_about_map, $pix_about_mask) = Gtk::Gdk::Pixmap->create_from_xpm(NULL, Gtk::Widget->get_default_style->bg('normal'), "$xpm_path/logo.xpm"); -my $pix_about = new Gtk::Pixmap ($pix_about_map, $pix_about_mask); -$pix_about->set_alignment(10,0); -$hbox1->pack_start($pix_about, 0, 1, 0); -my $style = new Gtk::Style; -$style->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--*-180-100-100-p-*-iso8859-*,*-r-*"))); -my $label_about2 = new Gtk::Label (_("Mandrake Control Center")); -$label_about2->set_alignment(0,0); -$label_about2->set_style($style); -$hbox1->pack_start($label_about2, 0, 1, 0); -my $vbox_about = new Gtk::VBox(0,10); -$vbox_about->pack_start($hbox1, 0, 1, 0); -my $label_about3 = new Gtk::Label (_("The place where you can configure your Mandrake Box")); -$vbox_about->pack_start($label_about3, 0, 0, 0); - -$table_info1 = new Gtk::Table(6,2,1); -$table_info1->set_row_spacings(15); -$table_info1->set_col_spacings(10); - -my @revtree; -my @infotree; -open VERS, "/etc/redhat-release" or die "cannot open this file for read: $!"; -while (<VERS>) { - push (@revtree,$_); -} -@info_tree = split / /, $revtree[0]; ->>>>>>> 1.3 - - my $hbox1= new Gtk::HBox(0,20); - my ($pix_about_map, $pix_about_mask) = Gtk::Gdk::Pixmap->create_from_xpm(NULL, Gtk::Widget->get_default_style->bg('normal'), "$xpm_path/logo.xpm"); - my $pix_about = new Gtk::Pixmap ($pix_about_map, $pix_about_mask); - $pix_about->set_alignment(10,0); - $hbox1->pack_start($pix_about, 0, 1, 0); - my $style = new Gtk::Style; - $style->font(Gtk::Gdk::Font->load('-adobe-times-bold-r-normal--25-180-100-100-p-132-iso8859-1')); - my $label_about2 = new Gtk::Label ("Mandrake Control Center"); - $label_about2->set_alignment(0,0); - $label_about2->set_style($style); - $hbox1->pack_start($label_about2, 0, 1, 0); - my $vbox_about = new Gtk::VBox(0,10); - $vbox_about->pack_start($hbox1, 0, 1, 0); - my $label_about3 = new Gtk::Label ("The place where you can configure your Mandrake Box"); - $vbox_about->pack_start($label_about3, 0, 0, 0); - - $table_info1 = new Gtk::Table(6,2,1); - $table_info1->set_row_spacings(15); - $table_info1->set_col_spacings(10); - -<<<<<<< relcontrolcenter - - my @revtree; - my @infotree; - open VERS, "/etc/redhat-release" or die "cannot open this file for read :$!"; - while (<VERS>) { - push (@revtree,$_); - } - @info_tree = split / /, $revtree[0]; - - my ($sysname, $nodename, $release, $version, $machine ) = POSIX::uname(); - my $username= POSIX::cuserid(); - - my $style1 = new Gtk::Style; - $style1->font(Gtk::Gdk::Font->load('-adobe-times-bold-r-normal--14-100-100-100-p-76-iso8859-1')); - - my $ld = new Gtk::Label("$username"); - $table_info1->attach($ld, 1, 2, 0, 1, 0, 0, 0, 0); - my $label_user = new Gtk::Label("User: "); - $label_user->set_style($style1); - $label_user->set_justify('right'); - $table_info1->attach($label_user, 0, 1, 0, 1, 0, 0, 0, 0); - my $ld1 = new Gtk::Label("$info_tree[0] $info_tree[1] $info_tree[3] $info_tree[4] "); - $table_info1->attach($ld1, 1, 2, 1, 2, 0, 0, 0, 0); - my $ld2 = new Gtk::Label("$nodename"); - $table_info1->attach($ld2, 1, 2, 2, 3, 0, 0, 0, 0); - my $ld3 = new Gtk::Label("$release $version"); - $table_info1->attach($ld3, 1, 2, 3, 4, 0, 0, 0, 0); - my $ld4 = new Gtk::Label("$machine"); - $table_info1->attach($ld4, 1, 2, 4, 5, 0, 0, 0, 0); - my $label_os = new Gtk::Label("System: "); - $label_os->set_style($style1); - $label_os->set_justify('right'); - $table_info1->attach($label_os, 0, 1, 1, 2, 0, 0, 0, 0); - my $label_host = new Gtk::Label("Hostname: "); - $label_host->set_style($style1); - $table_info1->attach_defaults($label_host, 0, 1, 2, 3); - my $label_kernel = new Gtk::Label("Kernel Version : "); - $label_kernel->set_style($style1); - $table_info1->attach_defaults($label_kernel, 0, 1, 3, 4); - my $label_box = new Gtk::Label("Machine: "); - $label_box->set_style($style1); - $table_info1->attach_defaults($label_box, 0, 1, 4, 5); - - $vbox_about->set_spacing(30); - $vbox_about->pack_start($table_info1, 0, 0, 0); - $vbox_about->reorder_child($table_info1,150); - - $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; - - my $ctree_parent = new Gtk::CTree(0,1,0); - $vbox_global_left->pack_start($ctree_parent,1,1,0); -} -======= -my $style1 = new Gtk::Style; -$style1->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--14-*-100-100-p-*-iso8859-*,*-r-*"))); - -my $ld = new Gtk::Label("$username"); -$table_info1->attach($ld, 1, 2, 0, 1, 0, 0, 0, 0); -my $label_user = new Gtk::Label(_("User: ")); -$label_user->set_style($style1); -$label_user->set_justify('right'); -$table_info1->attach($label_user, 0, 1, 0, 1, 0, 0, 0, 0); -my $ld1 = new Gtk::Label("$info_tree[0] $info_tree[1] $info_tree[3] $info_tree[4] "); -$table_info1->attach($ld1, 1, 2, 1, 2, 0, 0, 0, 0); -my $ld2 = new Gtk::Label("$nodename"); -$table_info1->attach($ld2, 1, 2, 2, 3, 0, 0, 0, 0); -my $ld3 = new Gtk::Label("$release $version"); -$table_info1->attach($ld3, 1, 2, 3, 4, 0, 0, 0, 0); -my $ld4 = new Gtk::Label("$machine"); -$table_info1->attach($ld4, 1, 2, 4, 5, 0, 0, 0, 0); -my $label_os = new Gtk::Label(_("System: ")); -$label_os->set_style($style1); -$label_os->set_justify('right'); -$table_info1->attach($label_os, 0, 1, 1, 2, 0, 0, 0, 0); -my $label_host = new Gtk::Label(_("Hostname: ")); -$label_host->set_style($style1); -$table_info1->attach_defaults($label_host, 0, 1, 2, 3); -my $label_kernel = new Gtk::Label(_("Kernel Version: ")); -$label_kernel->set_style($style1); -$table_info1->attach_defaults($label_kernel, 0, 1, 3, 4); -my $label_box = new Gtk::Label(_("Machine: ")); -$label_box->set_style($style1); -$table_info1->attach_defaults($label_box, 0, 1, 4, 5); - -$vbox_about->set_spacing(30); -$vbox_about->pack_start($table_info1, 0, 0, 0); -$vbox_about->reorder_child($table_info1,150); - -$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; - -my $ctree_parent = new Gtk::CTree(0,1,0); -$vbox_global_left->pack_start($ctree_parent,1,1,0); ->>>>>>> 1.3 - -map { - create_ctree($ctree_parent ,$_->[0], "$xpm_path/$_->[1]",0 , 1 , undef , undef); -} ([_("Boot Configuration"), 'logo.xpm'] , [_("Hardware Configuration"), 'logo.xpm'] , [_("User and Groups Management"),'logo.xpm'], - [_("Network and Internet Connection"),'logo.xpm'] , [_("Menu Customization"),'logo.xpm'] , [_("Font Management"),'logo.xpm']); - -map { - create_ctree($ctree_parent ,$_->[0], "$xpm_path/$_->[1]", 1, 0, $_->[2],$_->[3] ); -} ([_("Drakboot"),'item.xpm',1,0] , [_("Drakfloppy"), 'item.xpm',2,0] , [_("Drakelogo"), 'item.xpm',3,0], - [_("XFDrake"),'item.xpm',4,1] , [_("HardDrake"),'item.xpm',5,1] , [_("Mousedrake"), 'item.xpm',6,1] , [_("Printerdrake"),'item.xpm',7,1] , [_("Keyboarddrake"), 'item.xpm',8,1], - [_("Userdrake"),'item.xpm',9,2] , - [_("Draknet") , 'item.xpm',10,3] , [_("Drakgw"),'item.xpm',10,3], - [_("Menudrake") , 'item.xpm',11,4] , - [_("Drakfont"), 'item.xpm', 12,5]); - -%tree_exec = ([_("Drakboot") => "drakeboot"], [_("Drakfloppy") => "drakfloppy"], - [_("Drakelogo") => "DrakeLogo"] , [_("XFDrake") => "XFDrake"] , - [_("HardDrake") => "harddrake-auth"] , [_("Mousedrake") => "mousedrake"] , - [_("Printerdrake") => "printerdrake"] , [_("Keyboarddrake") => "keyboarddrake"] , - [_("Userdrake") => "userdrake"] , [_("Draknet") => "draknet"] , - [_("Drakgw") => "drakgw"] , [_("Menudrake") => "menudrake"] , [_("Drakfont") => "drakfont"] - ); - -my $rc = "control-center.rc"; - Gtk::Rc->parse($rc); -$window_global->show_all; - - -print "num: " . $notebook_global->page_num($vbox_about) . "\n"; -#$notebook_global->set_page(0); -$SIG{USR1} = sub { $notebook_global->set_page(0); }; # embedded applications will send me that signal in order to "hide" them - -Gtk->main; - -sub about_mdk_cc() -{ - my $window_about = new Gtk::Dialog(); - $window_about->set_position(1); - my $button = new Gtk::Button(_("Close")); - $button->signal_connect_object("clicked",$window_about => destroy); - $window_about->action_area->pack_start($button,$true,$true,0); - $button->show(); - - my $label = new Gtk::Label( _("Mandrake Control Center 1.0 \n Copyright (C) 2001 MandrakeSoft SA\n") ); - my $style1 = new Gtk::Style; - $style1->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--14-*-100-100-p-*-iso8859-*,*-r-*"))); - $label->set_style($style1); - $window_about->vbox->pack_start( $label, $true, $true, 0 ); - $label->show(); - - my $label1 = new Gtk::Label( _("Authors: ") . "\n\n Daouda Lo <daouda\@mandrakesoft.com> \n \n Damien Krotkine <dams\@mandrakesoft.com>\n" ); - $window_about->vbox->pack_start( $label1, $true, $true, 0 ); - $label1->show(); - - $window_about->show(); - -} - -sub create_ctree { - my ($ctree, $label , $xpm_filename, $is_leaf , $is_expand, $num, $tree_pos)= @_; - - my ($pixmap, $mask ); - my $sibling = undef; - my $parent = undef; - - # Now on to the xpm stuff - ($pixmap, $mask) = Gtk::Gdk::Pixmap->create_from_xpm($parent->window, $style, $xpm_filename ); - my $pixmapwid = new Gtk::Pixmap( $pixmap, $mask ); - - if(!$is_leaf) { - $sibling=$ctree->insert_node ( - $parent, - $sibling, - $label, - 5, - $pixmap, - $mask, - $pixmap, - $mask, - $is_leaf, - $is_expand - ); - push(@ctree_sib,$sibling); - }; - if($is_leaf) { - $sibling=$ctree->insert_node ( - $ctree_sib[tree_pos], - $sibling, - $label, - 5, - $pixmap, - $mask, - $pixmap, - $mask, - $is_leaf, - $is_expand, - ); - $ctree->signal_connect( 'tree_select_row', sub { - my ($ct, $node) = @_; - my ($t); - ($t, undef, undef) = $ct->node_get_pixtext($node); - exec_treeitem($tree_exec[$ct],$num); - } ); - -} - -} - -sub exec_treeitem { - my ($exec_string,$num) = @_; - - if ($exec_string) { - my $socket = new Gtk::Socket; - $socket->show; - $notebook_global->append_page($socket, ""); - $socket->realize; - printf ("The XID of the sockets window nr. %s is [%s]\n", $arg, $socket->window->XWINDOW ); - printf ("My PID is [%s]\n", $$ ); - my $a = $exec_string . " --embedded " . $socket->window->XWINDOW . " " . $$ . "&"; - print "$a\n"; - system ($a); - $notebook_global->set_page($num); - } -} - -sub item_factory_cb { - my ($widget, $action, @data) = @_; - - print "ItemFactory: activated ", $widget->item_factory_path(), " -> ", $action, "\n"; - $action == 1 and Gtk->exit(0); - $action == 4 and about_mdk_cc(); -} - - -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; - } -} |