summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2001-08-28 15:54:05 +0000
committerYves Duret <yduret@mandriva.com>2001-08-28 15:54:05 +0000
commit9ad0c5398f18230e9fb2a33e7d78e24dcf13a17b (patch)
tree6b826ca170febc3b27870b969054482e3af86cbe
parent7a08acb4a208d713ca11110a62496e5e41ec931a (diff)
downloadcontrol-center-9ad0c5398f18230e9fb2a33e7d78e24dcf13a17b.tar
control-center-9ad0c5398f18230e9fb2a33e7d78e24dcf13a17b.tar.gz
control-center-9ad0c5398f18230e9fb2a33e7d78e24dcf13a17b.tar.bz2
control-center-9ad0c5398f18230e9fb2a33e7d78e24dcf13a17b.tar.xz
control-center-9ad0c5398f18230e9fb2a33e7d78e24dcf13a17b.zip
code
-rwxr-xr-xcontrol-center24
1 files changed, 12 insertions, 12 deletions
diff --git a/control-center b/control-center
index e28cdb4f..230b330e 100755
--- a/control-center
+++ b/control-center
@@ -49,12 +49,16 @@ my %pixmaps_global;
my $xpm_path="$_iconsdir";
my $xpm_path_l="$_iconsdir";
my $tree_depth_max = 1;
+my $treeitem_old;
my @treeitem_sub;
-#- ####### tree def
-#- proposal for the ultimate conf file.. ??
-#- leaf: label, icon, parent, file_to_seek, exec, gtk/x, grep, num_xwininfo
-#-
+#-------------------------------------------------------------
+# tree def
+#-------------------------------------------------------------
+# proposal for the ultimate conf file.. ??
+# leaf: label, icon, parent, file_to_seek, exec, gtk/x, grep, num_xwininfo
+# hum need to have a function to install a package when clicked. => rpmdrake
+
$::isWiz = (-e $_wizdir);
my @tree_parent =
@@ -147,7 +151,7 @@ my %xapp = (_("Console") => ["rxvt", "rxvt", 1],
);
-######### tree def
+#-------------------------------------------------------------
my $nb_pages=0;
@@ -192,10 +196,6 @@ $notebook_global->set_show_border(0);
$notebook_global->set_show_tabs(0);
$hpane_global->pack2($notebook_global,0,1);
-my ($pix_splash_map, $pix_splash_mask) = gtkcreate_png("$xpm_path_l/splash.png");
-my @anim;
-($anim[$_]->[0], $anim[$_]->[1]) = gtkcreate_png("$xpm_path_l/anim_" . ($_ + 1) . ".png") foreach (0..9);
-
my $vbox_about = new Gtk::VBox(0,0);
my $darea1 = new Gtk::DrawingArea();
$darea1->size(540,460);
@@ -208,7 +208,6 @@ $window_global->realize;
my @pid_launched;
my %tree_launched;
-
my $tree= new Gtk::Tree;
$tree->set_selection_mode('browse');
$tree->set_view_lines(0);
@@ -221,6 +220,9 @@ map { create_tree_item($treeitem_sub[st(int($_->[2]))],$_->[0], "$xpm_path_l/$_-
$vbox_global_left->pack_start($tree,1,1,0);
$window_global->show_all;
+my ($pix_splash_map, $pix_splash_mask) = gtkcreate_png("$xpm_path_l/splash.png");
+my @anim;
+($anim[$_]->[0], $anim[$_]->[1]) = gtkcreate_png("$xpm_path_l/anim_" . ($_ + 1) . ".png") foreach (0..9);
my $pix_dbl = new Gtk::Gdk::Pixmap($darea1->window, 540,460);
draw_exposed($pix_dbl);
$darea1->signal_connect( expose_event => sub {
@@ -254,7 +256,6 @@ $SIG{USR2} = sub { Gtk->timeout_remove($lock_time_tag);
Gtk->main_iteration while Gtk->events_pending;
Gtk->main;
-
#-------------------------------------------------------------
# i18n routines
# IMPORTANT: next two routines have to be redefined here to
@@ -471,7 +472,6 @@ sub splash_warning {
}
-my $treeitem_old;
sub create_tree_item {
my ($parent_tree, $label, $pixmap, $tree_depth_max) =@_;