diff options
author | Yves Duret <yduret@mandriva.com> | 2001-08-28 15:54:05 +0000 |
---|---|---|
committer | Yves Duret <yduret@mandriva.com> | 2001-08-28 15:54:05 +0000 |
commit | 9ad0c5398f18230e9fb2a33e7d78e24dcf13a17b (patch) | |
tree | 6b826ca170febc3b27870b969054482e3af86cbe | |
parent | 7a08acb4a208d713ca11110a62496e5e41ec931a (diff) | |
download | control-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-x | control-center | 24 |
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) =@_; |