no more used (drakcronat just removed from distro)

=> less dependancies :-)

2 files changed, 0 insertions, 1469 deletions

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
deleted file mode 100644
index 937132650..000000000
--- a/perl-install/my_gtk.pm
+++ /dev/null
@@ -1,575 +0,0 @@
-package my_gtk; # $Id$
-
-use diagnostics;
-use strict;
-use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border);
-
-@ISA = qw(Exporter);
-%EXPORT_TAGS = (
-    helpers => [ qw(create_okcancel createScrolledWindow create_menu create_notebook create_packtable create_hbox create_vbox create_adjustment create_box_with_title create_treeitem) ],
-    wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack2_ gtkpack2__ gtkpowerpack gtkset_editable gtksetstyle gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkset_relief gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_sensitive gtkset_visibility gtkset_modal gtkset_border_width gtkmove gtkresize gtkshow gtkhide gtkdestroy gtkcolor gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng create_pix_text get_text_coord fill_tiled gtkicons_labels_widget write_on_pixmap gtkcreate_xpm gtkcreate_png gtkbuttonset create_pixbutton gtkroot gtkentry) ],
-    ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry ask_browse_tree_info ask_browse_tree_info_given_widgets ask_dir) ],
-    various => [ qw(add_icon_path) ],
-);
-$EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
-@EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
-
-use ugtk qw(:helpers :wrappers :various);
-use common;
-use log;
-
-add_icon_path(@ugtk::icon_paths, "$ENV{SHARE_PATH}/libDrakX/pixmaps", '/usr/lib/libDrakX/icons', 'standalone/icons');
-
-my $forgetTime = 1000; #- in milli-seconds
-$border = 5;
-
-#-###############################################################################
-#- OO stuff
-#-###############################################################################
-
-sub new {
-    my ($type, $title, %opts) = @_;
-
-    Gtk->set_locale;
-
-    my $o = bless { %opts }, $type;
-    $o->_create_window($title);
-    while (my $e = shift @tempory::objects) { $e->destroy }
-    foreach (@interactive::objects) {
-	$_->{rwindow}->set_modal(0) if $_->{rwindow}->can('set_modal');
-    }
-    push @interactive::objects, $o if !$opts{no_interactive_objects};
-    $o->{rwindow}->set_position('center_always') if $::isStandalone;
-    $o->{rwindow}->set_modal(1) if $my_gtk::grab || $o->{grab};
-    
-    if ($::isWizard && !$my_gtk::pop_it) {
-	$o->{isWizard} = 1;
-	$o->{window} = new Gtk::VBox(0,0);
-	$o->{window}->set_border_width($::Wizard_splash ? 0 : 10);
-	$o->{rwindow} = $o->{window};
-	if (!defined($::WizardWindow)) {
-	    $::WizardWindow = new Gtk::Window;
-	    $::WizardWindow->set_position('center_always');
-	    $::WizardWindow->signal_connect(delete_event => sub { die 'wizcancel' });
-	    $::WizardTable = new Gtk::Table(2, 2, 0);
-	    $::WizardWindow->add($::WizardTable);
-	    my $draw1 = new Gtk::DrawingArea;
-	    $draw1->set_usize(540,100);
-	    my $draw2 = new Gtk::DrawingArea;
-	    $draw2->set_usize(100,300);
-	    my ($im_up, $_mask_up) = gtkcreate_png($::Wizard_pix_up || "wiz_default_up.png");
-	    my ($y1, $x1) = $im_up->get_size;
-	    my ($im_left, $_mask_left) = gtkcreate_png($::Wizard_pix_left || "wiz_default_left.png");
-	    my ($y2, $x2) = $im_left->get_size;
-	    my $style = $draw1->style->copy;
-	    $style->font(Gtk::Gdk::Font->fontset_load(N("-adobe-utopia-regular-r-*-*-25-*-*-*-p-*-iso8859-*,*-r-*")));
-	    $draw1->signal_connect(expose_event => sub {
-				       for (my $i = 0; $i < 540/$y1; $i++) {
-					   $draw1->window->draw_pixmap($draw1->style->bg_gc('normal'),
-									$im_up, 0, 0, 0, $y1*$i,
-									$x1, $y1);
-					   $draw1->window->draw_string(
-								       $style->font,
-								       $draw1->style->white_gc,
-								       40, 62,
-								       ($::Wizard_title));
-				       }
-				   });
-	    $draw2->signal_connect(expose_event => sub {
-				       for (my $i = 0; $i < 300/$y2; $i++) {
-					   $draw2->window->draw_pixmap($draw2->style->bg_gc('normal'),
-									$im_left, 0, 0, 0, $y2*$i,
-									$x2, $y2);
-				       }
-				   });
-	    $::WizardTable->attach($draw1, 0, 2, 0, 1, 'fill', 'fill', 0, 0);
-	    #- $::WizardTable->attach($draw2, 0, 1, 1, 2, 'fill', 'fill', 0, 0);
-	    $::WizardTable->set_usize(540,420);
-	    $::WizardWindow->show_all;
-	    flush();
-	}
-	$::WizardTable->attach($o->{window}, 0, 2, 1, 2, ['fill', 'expand'], ['fill', 'expand'], 0, 0);
-    }
-
-    if ($::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug && $::Plug->child }) {
-	$o->{isEmbedded} = 1;
-	$o->{window} = new Gtk::HBox(0,0);
-	$o->{rwindow} = $o->{window};
-	$::Plug ||= new Gtk::Plug($::XID);
-	$::Plug->show;
-	flush();
-	$::Plug->add($o->{window});
-    }
-    $o;
-}
-sub main {
-    my ($o, $completed, $canceled) = @_;
-    gtkset_mousecursor_normal();
-    my $timeout = Gtk->timeout_add(1000, sub { gtkset_mousecursor_normal(); 1 });
-    my $_b = MDK::Common::Func::before_leaving { Gtk->timeout_remove($timeout) };
-    $o->show;
-
-    do {
-	Gtk->main;
-    } while ($o->{retval} ? $completed && !$completed->() : $canceled && !$canceled->());
-    $o->destroy;
-    $o->{retval}
-}
-
-sub show($) {
-    my ($o) = @_;
-    $o->{window}->show;
-    $o->{rwindow}->show;
-}
-sub destroy($) {
-    my ($o) = @_;
-    $o->{rwindow} and $o->{rwindow}->destroy;
-    gtkset_mousecursor_wait();
-    flush();
-}
-sub DESTROY { goto &destroy }
-sub sync {
-    my ($o) = @_;
-    show($o);
-    flush();
-}
-sub flush { gtkflush() }
-sub exit {
-    gtkset_mousecursor_normal(); #- for restoring a normal in any case
-    flush();
-    c::_exit($_[1]) #- workaround 
-}
-
-#- in case "exit" above was not called by the program
-END { print "BUG in $0 : my_gtk->exit was *NOT* called !! \n"; &exit() }
-
-#-###############################################################################
-#- createXXX functions
-
-#- these functions return a widget
-#-###############################################################################
-
-sub create_okcancel {
-    my ($w, $ok, $cancel, $spread, @other) = @_;
-    $spread ||= $::isWizard ? "end" : "spread";
-    $cancel = $::isWizard ? N("<- Previous") : N("Cancel") if !defined $cancel && !defined $ok;
-    $ok = $::isWizard ? ($::Wizard_finished ? N("Finish") : N("Next ->")) : N("Ok") if !defined $ok;
-    my $b1 = gtksignal_connect($w->{ok} = new Gtk::Button($ok), clicked => $w->{ok_clicked} || sub { $w->{retval} = 1; Gtk->main_quit });
-    my $b2 = $cancel && gtksignal_connect($w->{cancel} = new Gtk::Button($cancel), clicked => $w->{cancel_clicked} || sub { log::l("default cancel_clicked"); undef $w->{retval}; Gtk->main_quit });
-    $::isWizard and gtksignal_connect($w->{wizcancel} = new Gtk::Button(N("Cancel")), clicked => sub { die 'wizcancel' });
-    my @l = grep { $_ } $::isWizard ? ($w->{wizcancel}, if_(!$::Wizard_no_previous, $b2, $b1)) : ($b1, $b2);
-    push @l, map { gtksignal_connect(new Gtk::Button($_->[0]), clicked => $_->[1]) } @other;
-
-    $_->can_default($::isWizard) foreach @l;
-    gtkadd(create_hbox($spread), @l);
-}
-
-
-sub _create_window($$) {
-    my ($o, $title) = @_;
-    my $w = new Gtk::Window;
-    my $gc = Gtk::Gdk::GC->new(gtkroot());
-    !$::isStandalone && !$::live && !$::g_auto_install and $my_gtk::shape_width = 3;
-#-  $gc->set_foreground(gtkcolor(8448, 17664, 40191)); #- in hex : 33, 69, 157
-    $gc->set_foreground(gtkcolor(5120, 10752, 22784)); #- in hex : 20, 42, 89
-#-    $gc->set_foreground(gtkcolor(16896, 16896, 16896)); #- in hex : 66, 66, 66
-    my $inner = gtkadd(gtkset_shadow_type(new Gtk::Frame(undef), 'out'),
-		       my $f = gtkset_border_width(gtkset_shadow_type(new Gtk::Frame(undef), 'none'), 3)
-		      );
-    my $table;
-    if ($::isStandalone || $::live || $::g_auto_install || $::noShadow) { gtkadd($w, $inner) if !$::noBorder } else {
-	my $sqw = $my_gtk::shape_width;
-	gtkadd($w, $table = new Gtk::Table(2, 2, 0));
-	$table->attach($inner, 0, 1, 0, 1, 1|4, 1|4, 0, 0);
-	$table->attach(gtksignal_connect(gtkset_usize(new Gtk::DrawingArea, $sqw, 1), expose_event => sub {
-					      $_[0]->window->draw_rectangle($_[0]->style->bg_gc('normal'), 1, 0, 0, $sqw, $sqw);
-					      $_[0]->window->draw_rectangle($gc, 1, 0, $sqw, $sqw, $_[0]->allocation->[3]);
-					  }),
-			1, 2, 0, 1, 'fill', 'fill', 0, 0);
-	$table->attach(gtksignal_connect(gtkset_usize(new Gtk::DrawingArea, 1, $sqw), expose_event => sub {
-					      $_[0]->window->draw_rectangle($_[0]->style->bg_gc('normal'), 1, 0, 0, $sqw, $sqw);
-					      $_[0]->window->draw_rectangle($gc, 1, $sqw, 0, $_[0]->allocation->[2], $sqw);
-					  }),
-			0, 1, 1, 2, 'fill', 'fill', 0, 0);
-	$table->attach(gtksignal_connect(gtkset_usize(new Gtk::DrawingArea, $sqw, $sqw), expose_event => sub {
-					      $_[0]->window->draw_rectangle($gc, 1, 0, 0, $sqw, $sqw);
-					  }),
-			1, 2, 1, 2, 'fill', 'fill', 0, 0);
-	$table->show_all;
-    }
-    $w->set_name("Title");
-    $w->set_title($title);
-
-    $w->signal_connect(expose_event => sub { eval { $interactive::objects[-1]{rwindow} == $w and $w->window->XSetInputFocus } }) if $my_gtk::force_focus || $o->{force_focus};
-    $w->signal_connect(delete_event => sub { if ($::isWizard) { $w->destroy; die 'wizcancel' } else { Gtk->main_quit } });
-    $w->set_uposition(@{$my_gtk::force_position || $o->{force_position}}) if $my_gtk::force_position || $o->{force_position};
-
-    my $focusing;
-    $w->signal_connect(focus => sub { 
-        return 1 if $focusing;
-	$focusing = 1;
-	Gtk->idle_add(sub { $w->ensure_focus($_[0]); $focusing = 0; 0 }, $_[1]);
-    }) if $w->can('ensure_focus');
-
-    if ($::o->{mouse}{unsafe}) {
-	$w->set_events("pointer_motion_mask");
-	my $signal;
-	$signal = $w->signal_connect(motion_notify_event => sub {
-	    delete $::o->{mouse}{unsafe};
-	    log::l("unsetting unsafe mouse");
-	    $w->signal_disconnect($signal);
-	});
-    }
-    $w->signal_connect(key_press_event => sub {
-	my $d = ${{ 0xffbe => 'help',
-		    0xffbf => 'screenshot' }}{$_[1]{keyval}};
-
-	if ($d eq "help") {
-	    require install_gtk;
-	    install_gtk::create_big_help($::o);
-	} elsif ($::isInstall && $d eq 'screenshot') {
-	    common::take_screenshot();
-	} elsif (chr($_[1]{keyval}) eq 'e' && $_[1]{state} & 8) {
-	    log::l("Switching to " . ($::expert ? "beginner" : "expert"));
-	    $::expert = !$::expert;
-	}
-    });
-
-    $w->signal_connect(size_allocate => sub {
-	my ($wi, $he) = @{$_[1]}[2,3];
-	my ($X, $Y, $Wi, $He) = @{$my_gtk::force_center || $o->{force_center}};
-        $w->set_uposition(max(0, $X + ($Wi - $wi) / 2), max(0, $Y + ($He - $he) / 2));
-
-	if (!$::isStandalone && !$::live && !$::g_auto_install && !$::noShadow) {
-	    my $sqw = $my_gtk::shape_width; #square width
-	    my $wia = int(($wi+7)/8);
-	    my $s = "\xFF" x ($wia*$he);
-	    my $wib = $wia*8;
-	    my $dif = $wib-$wi;
-	    foreach my $y (0..$sqw-1) { vec($s, $wib-1-$dif-$_+$wib*$y, 1) = 0x0 foreach 0..$sqw-1 }
-	    foreach my $y (0..$sqw-1) { vec($s, (($he-1)*$wib)-$wib*$y+$_, 1) = 0x0 foreach 0..$sqw-1 }
-	    $w->realize;
-	    my $b = Gtk::Gdk::Bitmap->create_from_data($w->window, $s, $wib, $he);
-	    $w->window->shape_combine_mask($b, 0, 0);
-	}
-    }) if ($my_gtk::force_center || $o->{force_center}) && !($my_gtk::force_position || $o->{force_position});
-
-    $o->{window} = $::noBorder ? $w : $f;
-    $o->{rwindow} = $w;
-    $table and $table->draw(undef);
-}
-
-#-###############################################################################
-#- ask_XXX
-
-#- just give a title and some args, and it will return the value given by the user
-#-###############################################################################
-
-sub ask_warn       { my $w = my_gtk->new(shift @_); $w->_ask_warn(@_); main($w) }
-sub ask_yesorno    { my $w = my_gtk->new(shift @_); $w->_ask_okcancel(@_, N("Yes"), N("No")); main($w) }
-sub ask_okcancel   { my $w = my_gtk->new(shift @_); $w->_ask_okcancel(@_, N("Is this correct?"), N("Ok"), N("Cancel")); main($w) }
-sub ask_from_entry { my $w = my_gtk->new(shift @_); $w->_ask_from_entry(@_); main($w) }
-sub ask_dir        { my $w = my_gtk->new(shift @_); $w->_ask_dir(@_); main($w) }
-
-sub _ask_from_entry($$@) {
-    my ($o, @msgs) = @_;
-    my $entry = new Gtk::Entry;
-    my $f = sub { $o->{retval} = $entry->get_text; Gtk->main_quit };
-    $o->{ok_clicked} = $f;
-    $o->{cancel_clicked} = sub { undef $o->{retval}; Gtk->main_quit };
-
-    gtkadd($o->{window},
-	  gtkpack($o->create_box_with_title(@msgs),
-		 gtksignal_connect($entry, 'activate' => $f),
-		 ($o->{hide_buttons} ? () : create_okcancel($o))),
-	  );
-    $entry->grab_focus;
-}
-
-sub _ask_warn($@) {
-    my ($o, @msgs) = @_;
-    gtkadd($o->{window},
-	  gtkpack($o->create_box_with_title(@msgs),
-		 gtksignal_connect(my $w = new Gtk::Button(N("Ok")), "clicked" => sub { Gtk->main_quit }),
-		 ),
-	  );
-    $w->grab_focus;
-}
-
-sub _ask_okcancel($@) {
-    my ($o, @msgs) = @_;
-    my ($ok, $cancel) = splice @msgs, -2;
-
-    gtkadd($o->{window},
-	   gtkpack(create_box_with_title($o, @msgs),
-		   create_okcancel($o, $ok, $cancel),
-		 )
-	 );
-    $o->{ok}->grab_focus;
-}
-
-
-sub _ask_file {
-    my ($o, $title, $path) = @_;
-    my $f = $o->{rwindow} = new Gtk::FileSelection($title);
-    $f->set_filename($path);
-    $f->ok_button->signal_connect(clicked => sub { $o->{retval} = $f->get_filename; Gtk->main_quit });
-    $f->cancel_button->signal_connect(clicked => sub { Gtk->main_quit });
-    $f->hide_fileop_buttons;
-    $f;
-}
-
-sub _ask_dir {
-    my $f = _ask_file(@_);
-    $f->file_list->parent->hide;
-    $f->selection_entry->parent->hide;
-}
-
-sub ask_browse_tree_info {
-    my ($common) = @_;
-
-    my $w = my_gtk->new($common->{title});
-    my $tree = Gtk::CTree->new(3, 0);
-    $tree->set_selection_mode('browse');
-    $tree->set_column_auto_resize($_, 1) foreach 1..2;
-    $tree->set_column_width(0, 200);
-
-    gtkadd($w->{window}, 
-	   gtkpack_(new Gtk::VBox(0,5),
-		    0, $common->{message},
-		    1, gtkpack(new Gtk::HBox(0,0),
-			       createScrolledWindow($tree),
-			       gtkadd(gtkset_usize(new Gtk::Frame(N("Info")), $::windowwidth - 490, 0),
-				      createScrolledWindow(my $info = new Gtk::Text),
-				     )),
-		    0, my $l = new Gtk::HBox(0,15),
-		    0, gtkpack(new Gtk::HBox(0,10),
-			       my $go = gtksignal_connect(new Gtk::Button($common->{ok}), "clicked" => sub { $w->{retval} = 1; Gtk->main_quit }),
-			       $common->{cancel} ? gtksignal_connect(new Gtk::Button($common->{cancel}), "clicked" => sub { $w->{retval} = 0; Gtk->main_quit }) : (),
-			      )
-    ));
-    gtkpack__($l, my $toolbar = new Gtk::Toolbar('horizontal', 'icons'));
-
-    if ($common->{auto_deps}) {
-	gtkpack__($l, gtksignal_connect(gtkset_active(new Gtk::CheckButton($common->{auto_deps}), $common->{state}{auto_deps}),
-					clicked => sub { invbool \$common->{state}{auto_deps} }));
-    }
-    $l->pack_end(my $status = new Gtk::Label, 0, 1, 20);
-
-    $w->{window}->set_usize(map { $_ - 2 * $my_gtk::border - 4 } $::windowwidth, $::windowheight);
-    $go->grab_focus;
-    $w->{rwindow}->show_all;
-
-    my @toolbar = (ftout  =>  [ N("Expand Tree"), sub { $tree->expand_recursive(undef) } ],
-		   ftin   =>  [ N("Collapse Tree"), sub { $tree->collapse_recursive(undef) } ],
-		   reload =>  [ N("Toggle between flat and group sorted"), sub { invbool(\$common->{state}{flat}); $common->{rebuild_tree}->() } ]);
-    foreach my $ic (@{$common->{icons} || []}) {
-	push @toolbar, ($ic->{icon} => [ $ic->{help}, sub {
-					     if ($ic->{code}) {
-						 my $_w = $ic->{wait_message} && $common->{wait_message}->('', $ic->{wait_message});
-						 $ic->{code}();
-						 $common->{rebuild_tree}->();
-					     }
-					 } ]);
-    }
-    my %toolbar = @toolbar;
-    $toolbar->set_button_relief("none");
-    foreach (grep_index { $::i % 2 == 0 } @toolbar) {
-	gtksignal_connect($toolbar->append_item(undef, $toolbar{$_}[0], undef, gtkpng("$_.png")),
-			  clicked => $toolbar{$_}[1]);
-    }
-    $toolbar->set_style("icons");
-
-    my $widgets = { w => $w, tree => $tree, info => $info, status => $status };
-    ask_browse_tree_info_given_widgets($common, $widgets);
-}
-
-sub ask_browse_tree_info_given_widgets {
-    my ($common, $w) = @_;
-    my ($curr, $parent, $prev_label, $idle);
-    my (%wtree, %ptree, %pix);
-    my $update_size = sub {
-	my $new_label = $common->{get_status}();
-	$prev_label ne $new_label and $w->{status}->set($prev_label = $new_label);
-    };
-    
-    my $set_node_state_flat = sub {
-	my ($node, $state) = @_;
-	$state eq 'XXX' and return;
-	$pix{$state} ||= [ gtkcreate_png($state) ];
-	$w->{tree}->node_set_pixmap($node, 1, $pix{$state}[0], $pix{$state}[1]);
-    };
-    my $set_node_state_tree; $set_node_state_tree = sub {
-	my ($node, $state) = @_;
-	$state eq 'XXX' and return;
-	$pix{$state} ||= [ gtkcreate_png($state) ];
-	if ($node->{state} ne $state) {
-	    if ($node->row->is_leaf) {
-		my $parent = $node->row->parent;
-		my $stats = $parent->{state_stats} ||= {}; --$stats->{$node->{state}}; ++$stats->{$state};
-		my @list = grep { $stats->{$_} > 0 } keys %$stats;
-		my $new_state = @list == 1 ? $list[0] : 'semiselected';
-		$parent->{state} ne $new_state and $set_node_state_tree->($parent, $new_state);
-	    }
-	    $w->{tree}->node_set_pixmap($node, 1, $pix{$state}[0], $pix{$state}[1]);
-	    $node->{state} = $state; #- hack to to get this features efficiently.
-	}
-    };
-    my $set_node_state = $common->{state}{flat} ? $set_node_state_flat : $set_node_state_tree;
-
-    my $set_leaf_state = sub {
-	my ($leaf, $state) = @_;
-	$set_node_state->($_, $state) foreach @{$ptree{$leaf}};
-    };
-    my $add_parent; $add_parent = sub {
-	my ($root, $state) = @_;
-	$root or return undef;
-	if (my $w = $wtree{$root}) { return $w }
-	my $s; foreach (split '\|', $root) {
-	    my $s2 = $s ? "$s|$_" : $_;
-	    $wtree{$s2} ||= do {
-		my $n = $w->{tree}->insert_node($s ? $add_parent->($s, $state) : undef, undef, [$_, '', ''], 5, (undef) x 4, 0, 0);
-		$n;
-	    };
-	    $s = $s2;
-	}
-	$set_node_state->($wtree{$s}, $state); #- use this state by default as tree is building.
-	$wtree{$s};
-    };
-    my $add_node = sub {
-	my ($leaf, $root, $options) = @_;
-	my $state = $common->{node_state}($leaf) or return;
-	if ($leaf) {
-	    my $node = $w->{tree}->insert_node($add_parent->($root, $state), undef, [$leaf, '', ''], 5, (undef) x 4, 1, 0);
-	    $set_node_state->($node, $state);
-	    push @{$ptree{$leaf}}, $node;
-	} else {
-	    my $parent = $add_parent->($root, $state);
-	    #- hackery for partial displaying of trees, used in rpmdrake:
-	    #- if leaf is void, we may create the parent and one child (to have the [+] in front of the parent in the ctree)
-	    #- though we use '' as the label of the child; then rpmdrake will connect on tree_expand, and whenever
-	    #- the first child has '' as the label, it will remove the child and add all the "right" children
-	    $options->{nochild} or $w->{tree}->insert_node($parent, undef, ['', '', ''], 5, (undef) x 4, 1, 0);
-	}
-    };
-    $common->{delete_all} = sub {
-	foreach (values %ptree) {
-	    delete $_->{state} foreach @$_;
-	}
-	foreach (values %wtree) {
-	    delete $_->{state};
-	    delete $_->{state_stats};
-	}
-	%ptree = %wtree = ();
-	$w->{tree}->freeze; $w->{tree}->clear; $w->{tree}->thaw;
-    };
-    $common->{rebuild_tree} = sub {
-	$common->{delete_all}->();
-	$set_node_state = $common->{state}{flat} ? $set_node_state_flat : $set_node_state_tree;
-	$w->{tree}->freeze;
-	$common->{build_tree}($add_node, $common->{state}{flat}, $common->{tree_mode});
-	$w->{tree}->thaw;
-	&$update_size;
-    };
-    $common->{delete_category} = sub {
-	my ($cat) = @_;
-	exists $wtree{$cat} or return;
-	$w->{tree}->freeze;
-	foreach (keys %ptree) {
-	    my @to_remove;
-	    foreach my $node (@{$ptree{$_}}) {
-		my $category;
-		my $parent = $node;
-		while ($parent->row->parent) {
-		    $parent = $parent->row->parent;
-		    my $parent_name = ($w->{tree}->node_get_pixtext($parent, 0))[0];
-		    $category = $category ? "$parent_name|$category" : $parent_name;
-		}
-		$cat eq $category and push @to_remove, $node;
-	    }
-	    delete $_->{state} foreach @to_remove;
-	    @{$ptree{$_}} = difference2($ptree{$_}, \@to_remove);
-	}
-	if (exists $wtree{$cat}) {
-	    delete $wtree{$cat}{$_} foreach qw(state state_stats);
-	    $w->{tree}->remove_node($wtree{$cat});
-	    delete $wtree{$cat};
-	}
-	$w->{tree}->thaw;
-	&$update_size;
-    };
-    $common->{add_nodes} = sub {
-	my (@nodes) = @_;
-	$w->{tree}->freeze;
-	$add_node->($_->[0], $_->[1], $_->[2]) foreach @nodes;
-	$w->{tree}->thaw;
-	&$update_size;
-    };
-    
-    $common->{display_info} = sub { gtktext_insert($w->{info}, $common->{get_info}($curr)); 0 };
-    my $children = sub { map { ($w->{tree}->node_get_pixtext($_, 0))[0] } gtkctree_children($_[0]) };
-    my $toggle = sub {
-	if (ref $curr && ! $_[0]) {
-	    $w->{tree}->toggle_expansion($curr);
-	} else {
-	    if (ref $curr) {
-		my @l = $common->{grep_allowed_to_toggle}($children->($curr)) or return;
-		my @unsel = $common->{grep_unselected}(@l);
-		my @p = @unsel ?
-		  #- not all is selected, select all if no option to potentially override
-		  (exists $common->{partialsel_unsel} && $common->{partialsel_unsel}->(\@unsel, \@l) ? difference2(\@l, \@unsel) : @unsel) : @l;
-		$common->{toggle_nodes}($set_leaf_state, @p);
-		&$update_size;
-		$parent = $curr;
-	    } else {
-		$common->{check_interactive_to_toggle}($curr) and $common->{toggle_nodes}($set_leaf_state, $curr);
-		&$update_size;
-	    }
-	}
-    };
-
-    $w->{tree}->signal_connect(key_press_event => sub {
-        my ($_w, $e) = @_;
-	my $c = chr($e->{keyval} & 0xff);
-	$toggle->(0) if $e->{keyval} >= 0x100 ? $c eq "\r" || $c eq "\x8d" : $c eq ' ';
-	1;
-    });
-    $w->{tree}->signal_connect(tree_select_row => sub {
-	Gtk->timeout_remove($idle) if $idle;
-
-	if ($_[1]->row->is_leaf) {
-	    ($curr) = $w->{tree}->node_get_pixtext($_[1], 0);
-	    $parent = $_[1]->row->parent;
-	    $idle = Gtk->timeout_add(100, $common->{display_info});
-	} else {
-	    $curr = $_[1];
-	}
-	$toggle->(1) if $_[2] == 1;
-    });
-    $common->{rebuild_tree}->();
-    &$update_size;
-    my $_b = before_leaving { #- ensure cleaning here.
-	foreach (values %ptree) {
-	    delete $_->{state} foreach @$_;
-	}
-	foreach (values %wtree) {
-	    delete $_->{state};
-	    delete $_->{state_stats};
-	}
-    };
-    $w->{w}->main;
-}
-
-1;
-
-#-###############################################################################
-#- rubbish
-#-###############################################################################
-
-#-sub label_align($$) {
-#-    my $w = shift;
-#-    local $_ = shift;
-#-    $w->set_alignment(!/W/i, !/N/i);
-#-    $w
-#-}
-
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
deleted file mode 100644
index e7095a18c..000000000
--- a/perl-install/ugtk.pm
+++ /dev/null
@@ -1,894 +0,0 @@
-package ugtk;
-
-# DO NOT USE THIS MODULE ANYMORE; IT'S DEPRECATED
-# BETTER USE ugtk2 (gtk+2, fontconfig, ... and the like support)
-#
-# ONLY standalone/net_monitor STILL USES IT
-
-use diagnostics;
-use strict;
-use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border $use_pixbuf $use_imlib);
-
-@ISA = qw(Exporter);
-%EXPORT_TAGS = (
-    helpers => [ qw(createScrolledWindow create_menu create_notebook create_packtable create_hbox create_vbox create_adjustment create_box_with_title create_treeitem create_dialog destroy_window) ],
-    wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack2_ gtkpack2__ gtkpowerpack gtkcombo_setpopdown_strings gtkset_editable gtksetstyle gtkset_text gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkset_relief gtkadd gtkexpand gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_sensitive gtkset_visibility gtkset_modal gtkset_border_width gtkmove gtkresize gtkshow gtkhide gtkdestroy gtkflush gtkcolor gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng create_pix_text get_text_coord fill_tiled gtkicons_labels_widget write_on_pixmap gtkcreate_xpm gtkcreate_png gtkcreate_png_pixbuf gtkbuttonset create_pixbutton gtkroot gtkentry compose_with_back compose_pixbufs) ],
-    various => [ qw(add2notebook add_icon_path n_line_size) ],
-);
-$EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
-@EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
-
-use Gtk;
-
-if (!$::no_ugtk_init) {
-    !check_for_xserver() and die "Cannot be run in console mode.\n";
-    Gtk->init;
-    eval { require Gtk::Gdk::Pixbuf; Gtk::Gdk::Pixbuf->init };
-    $use_pixbuf = $@ ? 0 : 1;
-}
-eval { require Gtk::Gdk::ImlibImage; Gtk::Gdk::ImlibImage->init };
-$use_imlib = $@ ? 0 : 1;
-
-use c;
-use log;
-use common;
-
-my @icon_paths;
-sub add_icon_path { push @icon_paths, @_ }
-sub icon_paths() {
-   (@icon_paths, $ENV{SHARE_PATH}, "$ENV{SHARE_PATH}/icons", "$ENV{SHARE_PATH}/libDrakX/pixmaps", "/usr/lib/libDrakX/icons", "pixmaps", 'standalone/icons');
-}  
-
-#-#######################
-# gtk widgets wrappers
-#-#######################
-
-sub gtkdestroy                { $_[0] and $_[0]->destroy }
-sub gtkflush()                  { Gtk->main_iteration while Gtk->events_pending }
-sub gtkhide                   { $_[0]->hide; $_[0] }
-sub gtkmove                   { $_[0]->window->move($_[1], $_[2]); $_[0] }
-sub gtkpack                   { gtkpowerpack(1, 1, @_) }
-sub gtkpack_                  { gtkpowerpack('arg', 1, @_) }
-sub gtkpack__                 { gtkpowerpack(0, 1, @_) }
-sub gtkpack2                  { gtkpowerpack(1, 0, @_) }
-sub gtkpack2_                 { gtkpowerpack('arg', 0, @_) }
-sub gtkpack2__                { gtkpowerpack(0, 0, @_) }
-sub gtkput                    { $_[0]->put(gtkshow($_[1]), $_[2], $_[3]); $_[0] }
-sub gtkpixmap                 { new Gtk::Pixmap(gdkpixmap(@_)) }
-sub gtkresize                 { $_[0]->window->resize($_[1], $_[2]); $_[0] }
-sub gtkset_active             { $_[0]->set_active($_[1]); $_[0] }
-sub gtkset_border_width       { $_[0]->set_border_width($_[1]); $_[0] }
-sub gtkset_editable           { $_[0]->set_editable($_[1]); $_[0] }
-sub gtkset_justify            { $_[0]->set_justify($_[1]); $_[0] }
-sub gtkset_layout             { $_[0]->set_layout($_[1]); $_[0] }
-sub gtkset_modal              { $_[0]->set_modal($_[1]); $_[0] }
-sub gtkset_mousecursor_normal { gtkset_mousecursor(68, @_) }
-sub gtkset_mousecursor_wait   { gtkset_mousecursor(150, @_) }
-sub gtkset_relief             { $_[0]->set_relief($_[1]); $_[0] }
-sub gtkset_sensitive          { $_[0]->set_sensitive($_[1]); $_[0] }
-sub gtkset_visibility         { $_[0]->set_visibility($_[1]); $_[0] }
-sub gtkset_tip                { $_[0]->set_tip($_[1], $_[2]) if $_[2]; $_[1] }
-sub gtkset_shadow_type        { $_[0]->set_shadow_type($_[1]); $_[0] }
-sub gtkset_style              { $_[0]->set_style($_[1]); $_[0] }
-sub gtkset_usize              { $_[0]->set_usize($_[1], $_[2]); $_[0] }
-sub gtkshow                   { $_[0]->show; $_[0] }
-sub gtksize                   { $_[0]->size($_[1], $_[2]); $_[0] }
-sub gtkexpand                 { $_[0]->expand; $_[0] }
-
-sub gdkpixmap {
-    my ($f, $w) = @_;
-    $f =~ m|.png$| and return gtkcreate_png($f);
-    $f =~ m|.xpm$| and return gtkcreate_xpm($w, $f);
-}
-
-sub gtkadd {
-    my $w = shift;
-    foreach (@_) {
-	my $l = $_;
-	ref $l or $l = new Gtk::Label($l);
-	$w->add($l);
-	$l->show;
-    }
-    $w
-}
-
-sub gtkappend {
-    my $w = shift;
-    foreach (@_) {
-	my $l = $_;
-	ref $l or $l = new Gtk::Label($l);
-	$w->append($l);
-	$l->show;
-    }
-    $w
-}
-
-sub gtkappenditems {
-    my $w = shift;
-    $_->show() foreach @_;
-    $w->append_items(@_);
-    $w
-}
-
-sub gtkbuttonset {
-    gtkdestroy($_[0]->child);
-    gtkadd($_[0], gtkshow($_[1]))
-}
-
-sub create_pixbutton {
-    my ($label, $pix, $reverse_order) = @_;
-    gtkadd(new Gtk::Button(), gtkpack_(new Gtk::HBox(0, 3), 1, "", $reverse_order ? (0, $label, if_($pix, 0, $pix)) : (if_($pix, 0, $pix), 0, $label), 1, ""));
-}
-
-sub gtkentry {
-    my ($text) = @_;
-    my $e = new Gtk::Entry;
-    $e->set_text($text);
-    $e;
-}
-
-sub gtksetstyle { 
-    my ($w, $s) = @_;
-    $w->set_style($s);
-    $w;
-}
-
-sub gtkcolor {
-    my ($r, $g, $b) = @_;
-    my $color = bless { red => $r, green => $g, blue => $b }, 'Gtk::Gdk::Color';
-    gtkroot()->get_colormap->color_alloc($color);
-}
-
-sub gtkradio {
-    my $def = shift;
-    my $radio;
-    map { $radio = new Gtk::RadioButton($_, if_($radio, $radio));
-	  $radio->set_active($_ eq $def); $radio } @_;
-}
-
-sub gtkroot {
-    Gtk->init;
-    Gtk->set_locale;
-    Gtk::Gdk::Window->new_foreign(Gtk::Gdk->ROOT_WINDOW);
-}
-
-sub gtkset_background {
-    my ($r, $g, $b) = @_;
-    my $root = gtkroot();
-    my $gc = Gtk::Gdk::GC->new($root);
-    my $color = gtkcolor($r, $g, $b);
-    $gc->set_foreground($color);
-    $root->set_background($color);
-    my ($h, $w) = $root->get_size;
-    $root->draw_rectangle($gc, 1, 0, 0, $w, $h);
-}
-
-sub gtktext_insert {
-    my ($w, $t) = @_;
-    $w->freeze;
-    $w->backward_delete($w->get_length);
-    if (ref($t) eq 'ARRAY') {
-	$w->insert($_->[0], $_->[1], $_->[2], $_->[3]) foreach @$t;
-    } else {
-	$w->insert(undef, undef, undef, $t); 
-    }
-    #- DEPRECATED? needs \n otherwise in case of one line text the beginning is not shown (even with the vadj->set_value)
-    $w->set_word_wrap(1);
-#-    $w->vadj->set_value(0);
-    $w->thaw;
-    $w;
-}
-
-sub gtkset_text {
-    my ($w, $s) = @_;
-    $w->set_text($s);
-    $w;
-}
-
-sub gtkcombo_setpopdown_strings {
-    my $w = shift;
-    $w->set_popdown_strings(@_);
-    $w;
-}
-
-sub gtkappend_text {
-    my ($w, $s) = @_;
-    $w->append_text($s);
-    $w;
-}
-
-sub gtkprepend_text {
-    my ($w, $s) = @_;
-    $w->prepend_text($s);
-    $w;
-}
-
-sub gtkset_mousecursor {
-    my ($type, $w) = @_;
-    ($w || gtkroot())->set_cursor(Gtk::Gdk::Cursor->new($type));
-}
-
-sub gtksignal_connect {
-    my $w = shift;
-    $w->signal_connect(@_);
-    $w;
-}
-
-#-#######################
-# create widgets wrappers
-#-#######################
-
-sub create_adjustment {
-    my ($val, $min, $max) = @_;
-    new Gtk::Adjustment($val, $min, $max + 1, 1, ($max - $min + 1) / 10, 1);
-}
-
-sub create_box_with_title {
-    my $o = shift;
-
-    my $nbline = sum(map { round(length($_) / 60 + 1/2) } map { split "\n" } @_);
-    my $box = new Gtk::VBox(0,0);
-    return $box if $nbline == 0;
-
-    $o->{box_size} = n_line_size($nbline, 'text', $box);
-    if (@_ <= 2 && $nbline > 4) {
-	$o->{icon} && !$::isWizard and 
-	  eval { gtkpack__($box, gtkset_border_width(gtkpack_(new Gtk::HBox(0,0), 1, gtkpng($o->{icon})),5)) };
-	my $wanted = $o->{box_size};
-	$o->{box_size} = min(200, $o->{box_size});
-	my $has_scroll = $o->{box_size} < $wanted;
-
-	my $wtext = new Gtk::Text;
-	$wtext->can_focus($has_scroll);
-	chomp(my $text = join("\n", @_));
-	my $scroll = createScrolledWindow(gtktext_insert($wtext, $text));
-	$scroll->set_usize(400, $o->{box_size});
-	gtkpack($box, $scroll);
-    } else {
-	my $a = !$::no_separator;
-	undef $::no_separator;
-	if ($o->{icon} && !$::isWizard) {
-	    gtkpack__($box,
-		      gtkpack_(new Gtk::HBox(0,0),
-			       0, gtkset_usize(new Gtk::VBox(0,0), 15, 0),
-			       0, eval { gtkpng($o->{icon}) },
-			       0, gtkset_usize(new Gtk::VBox(0,0), 15, 0),
-			       1, gtkpack_($o->{box_title} = new Gtk::VBox(0,0),
-					   1, new Gtk::HBox(0,0),
-					   (map {
-					       my $w = ref $_ ? $_ : new Gtk::Label($_);
-					       $::isWizard and $w->set_justify("left");
-					       $w->set_name("Title");
-					       (0, $w);
-					   } map { ref $_ ? $_ : warp_text($_) } @_),
-					   1, new Gtk::HBox(0,0),
-					  )
-			      ),
-		      if_($a, new Gtk::HSeparator)
-		     )
-	} else {
-	    gtkpack__($box,
-		      (map {
-			  my $w = ref $_ ? $_ : new Gtk::Label($_);
-			  $::isWizard and $w->set_justify("left");
-			  $w->set_name("Title");
-			  $w;
-		      } map { ref $_ ? $_ : warp_text($_) } @_),
-		      if_($a, new Gtk::HSeparator)
-		     )
-	}
-    }
-}
-
-# drakfloppy / logdrake
-sub create_dialog {
-    my ($label, $c) = @_;
-    my $ret = 0;
-    my $dialog = new Gtk::Dialog;
-    $dialog->signal_connect(delete_event => sub { Gtk->main_quit() });
-    $dialog->set_title(N("logdrake"));
-    $dialog->border_width(10);
-    $dialog->vbox->pack_start(new Gtk::Label($label),1,1,0);
-
-    my $button = new Gtk::Button(N("OK"));
-    $button->can_default(1);
-    $button->signal_connect(clicked => sub { $ret = 1; $dialog->destroy(); Gtk->main_quit() });
-    $dialog->action_area->pack_start($button, 1, 1, 0);
-    $button->grab_default;
-
-    if ($c) {
-	my $button2 = new Gtk::Button(N("Cancel"));
-	$button2->signal_connect(clicked => sub { $ret = 0; $dialog->destroy(); Gtk->main_quit() });
-	$button2->can_default(1);
-	$dialog->action_area->pack_start($button2, 1, 1, 0);
-    }
-
-    $dialog->show_all;
-    Gtk->main();
-    $ret;
-}
-
-# drakfloppy / logdrake
-sub destroy_window {
-	my ($_widget, $windowref, $w2) = @_;
-	$$windowref = undef;
-	$w2 = undef if defined $w2;
-	0;
-}
-
-sub create_hbox { gtkset_layout(gtkset_border_width(new Gtk::HButtonBox, 3), $_[0] || 'spread') }
-
-sub create_factory_menu_ {
-    my ($type, $name, $window, @menu_items) = @_;
-    my $widget = new Gtk::ItemFactory($type, $name, my $accel_group = new Gtk::AccelGroup);
-    $widget->create_items(@menu_items);
-    $window->add_accel_group($accel_group); #$accel_group->attach($main_win);
-    my $menu = $widget->get_widget($name);
-    $menu->{factory} = $widget;
-    $menu; # return menu bar
-}
-
-sub create_factory_menu { create_factory_menu_('Gtk::MenuBar', '<main>', @_) }
-
-sub create_menu {
-    my $title = shift;
-    my $w = new Gtk::MenuItem($title);
-    $w->set_submenu(gtkshow(gtkappend(new Gtk::Menu, @_)));
-    $w
-}
-
-sub create_notebook {
-    my $n = new Gtk::Notebook;
-    add2notebook($n, splice(@_, 0, 2)) while @_;
-    $n
-}
-
-sub create_packtable {
-    my ($options, @l) = @_;
-    my $w = new Gtk::Table(0, 0, $options->{homogeneous} || 0);
-    each_index {
-	my ($i, $l) = ($_[0], $_);
-	each_index {
-	    my ($j) = @_;
-	    if ($_) {
-		ref $_ or $_ = new Gtk::Label($_);
-		$j != $#$l ?
-		  $w->attach($_, $j, $j + 1, $i, $i + 1, 'fill', 'fill', 5, 0) :
-		  $w->attach($_, $j, $j + 1, $i, $i + 1, 1|4, ref($_) eq 'Gtk::ScrolledWindow' ? 1|4 : 0, 0, 0);
-		$_->show;
-	    }
-	} @$l;
-    } @l;
-    $w->set_col_spacings($options->{col_spacings} || 0);
-    $w->set_row_spacings($options->{row_spacings} || 0);
-    $w
-}
-
-sub createScrolledWindow {
-    my ($W, $policy, $viewport_shadow) = @_;
-    my $w = new Gtk::ScrolledWindow(undef, undef);
-    $policy ||= [ 'automatic', 'automatic' ];
-    $w->set_policy(@$policy);
-    if (member(ref $W, qw(Gtk::CList Gtk::CTree Gtk::Text))) {
-       $w->add($W)
-    } else {
-       $w->add_with_viewport($W);
-       $viewport_shadow and gtkset_shadow_type($w->child, $viewport_shadow);
-    }
-    $W->can("set_focus_vadjustment") and $W->set_focus_vadjustment($w->get_vadjustment);
-    $W->show;
-    $w
-}
-
-sub create_treeitem {
-    my ($name) = @_;
-    
-    my ($next_child, $left, $right, $up, $down);
-    $next_child = sub {
-	my ($c, $dir) = @_;
-	my @childs = $c->parent->children;
-	my $i; for ($i = 0; $i < @childs; $i++) { last if $childs[$i] == $c || $childs[$i]->subtree == $c }
-	$i += $dir;
-	0 <= $i && $i < @childs ? $childs[$i] : undef;
-    };
-    $left = sub { &$next_child($_[0]->parent, 0) };
-    $right = sub { my ($c) = @_; $c->subtree and $c->expand, return ($c->subtree->children)[0]; $c };
-    $down = sub {
-	my ($c) = @_;
-	return &$right($c) if ref $c eq "Gtk::TreeItem" && $c->subtree && $c->expanded;
-	if (my $n = &$next_child($c, 1)) {
-	    $n;
-	} else {
-	    return if ref $c->parent ne 'Gtk::Tree';	
-	    &$down($c->parent);
-	}
-    };
-    $up = sub {
-	my ($c) = @_;
-	if (my $n = &$next_child($c, -1)) {
-	    $n = ($n->subtree->children)[-1] while ref $n eq "Gtk::TreeItem" && $n->subtree && $n->expanded;
-	    $n;
-	} else {
-	    return if ref $c->parent ne 'Gtk::Tree';	
-	    &$left($c);
-	}
-    };
-    my $w = new Gtk::TreeItem($name);
-    $w->signal_connect(key_press_event => sub {
-        my (undef, $e) = @_;
-        local $_ = chr $e->{keyval};
-
-	if ($e->{keyval} > 0x100) {
-	    my $n;
-	    $n = &$left($w)  if /[Q\xb4\x96]/;
-	    $n = &$right($w) if /[S\xb6\x98]/;
-	    $n = &$up($w)    if /[R\xb8\x97]/;
-	    $n = &$down($w)  if /[T\xb2\x99]/;
-	    if ($n) {
-		$n->focus('up');
-		$w->signal_emit_stop("key_press_event"); 
-	    }
-	    $w->expand if /[+\xab]/;
-	    $w->collapse if /[-\xad]/;
-	    do { 
-		$w->expanded ? $w->collapse : $w->expand; 
-		$w->signal_emit_stop("key_press_event"); 
-	    } if /[\r\x8d]/;
-	}
-        1;
-    });
-    $w;
-}
-
-sub create_vbox { gtkset_layout(new Gtk::VButtonBox, $_[0] || 'spread') }
-
-#-#######################
-# public gtk routines
-#-#######################
-
-sub add2notebook {
-    my ($n, $title, $book) = @_;
-    my ($w1, $w2) = map { new Gtk::Label($_) } $title, $title;
-    $book->{widget_title} = $w1;
-    $n->append_page_menu($book, $w1, $w2);
-    $book->show;
-    $w1->show;
-    $w2->show;
-}
-
-
-sub tree_set_icon {
-    my ($node, $label, $icon) = @_;
-    my $hbox = new Gtk::HBox(0,0);
-    gtkpack__(1, $hbox, gtkshow(gtkpng($icon)), gtkshow(new Gtk::Label($label)));
-    gtkadd($node, gtkshow($hbox));
-}
-
-
-sub ctree_set_icon {
-    my ($tree, $node, $icon_pixmap, $icon_mask) = @_;
-
-    my ($text, $spacing, undef, undef, undef, undef, $isleaf, $expanded) = $tree->get_node_info($node);
-    $tree->set_node_info($node, $text, $spacing, $icon_pixmap, $icon_mask, $icon_pixmap, $icon_mask, $isleaf, $expanded);
-}
-
-sub get_text_coord {
-    my ($text, $widget4style, $max_width, $max_height, $can_be_greater, $can_be_smaller, $centeredx, $centeredy, $wrap_char) = @_;
-    $wrap_char ||= ' ';
-    my $idx = 0;
-    my $real_width = 0;
-    my $real_height = 0;
-    my @lines;
-    my @widths;
-    my @heights;
-    my $height_elem = $widget4style->style->font->ascent + $widget4style->style->font->descent;
-    $heights[0] = 0;
-    my $max_width2 = $max_width;
-    my $height = $heights[0] = $height_elem;
-    my $width = 0;
-    my $flag = 1;
-    my @t = split($wrap_char, $text);
-    my @t2;
-    if ($::isInstall && $::o->{lang} =~ /ja|zh/) {
-	@t = map { $_ . $wrap_char } @t;
-	$wrap_char = '';
-	foreach (@t) {
-	    my @c = split('');
-	    my $i = 0;
-	    my $el = '';
-	    while (1) {
-		$i >= @c and last;
-		$el .= $c[$i];
-		if (ord($c[$i]) >= 128) { $el .= $c[$i+1]; $i++; push @t2, $el; $el = '' }
-		$i++;
-	    }
-	    $el and push @t2, $el;
-	}
-    } else {
-	@t2 = @t;
-    }
-    foreach (@t2) {
-	my $l = $widget4style->style->font->string_width($_ . (!$flag ? $wrap_char : ''));
-	if ($width + $l > $max_width2 && !$flag) {
-	    $flag = 1;
-	    $height += $height_elem + 1;
-	    $heights[$idx+1] = $height;
-	    $widths[$idx] = $centeredx && !$can_be_smaller ? (max($max_width2-$width, 0))/2 : 0;
-	    $width = 0;
-	    $idx++;
-	}
-	$lines[$idx] = $flag ? $_ : $lines[$idx] . $wrap_char . $_;
-	$width += $l;
-	$flag = 0;
-	$l <= $max_width2 or $max_width2 = $l;
-	$width <= $real_width or $real_width = $width;
-    }
-    $height += $height_elem;
-    $widths[$idx] = $centeredx && !$can_be_smaller ? (max($max_width2-$width, 0))/2 : 0;
-
-    $height < $real_height or $real_height = $height;
-    $width = $max_width;
-    $height = $max_height;
-    $real_width < $max_width && $can_be_smaller and $width = $real_width;
-    $real_width > $max_width && $can_be_greater and $width = $real_width;
-    $real_height < $max_height && $can_be_smaller and $height = $real_height;
-    $real_height > $max_height && $can_be_greater and $height = $real_height;
-    if ($centeredy) {
- 	my $dh = ($height-$real_height)/2 + ($height_elem)/2;
- 	@heights = map { $_ + $dh } @heights;
-    }
-    ($width, $height, \@lines, \@widths, \@heights)
-}
-
-sub gtkicons_labels_widget {
-    my ($args, $_w, $widget_for_font, $background,  $back_pixbuf, $_xback, $_yback, $x_round,
-	$y_round, $x_back2, $y_back2, $_icon_width, $_icon_height, $exec_func, $exec_hash) = @_;
-
-    my @tab;
-    my $cursor_hand = new Gtk::Gdk::Cursor(60);
-	my @args = @$args;
-    foreach (@args) {
-	my ($label, $tag) = ($_->[0], $_->[1]);
-	die "$label 's icon is missing" unless $exec_hash->{$label};
-	my ($dbl_area, $pix, $width, $height); # initialized in call back
-	my $darea = new Gtk::DrawingArea;
-	my $pixbuf = compose_with_back($tag, $back_pixbuf);
-	my $pixbuf_h = compose_with_back($tag, $back_pixbuf, 170);
-
-	my $draw = sub {
-	    my ($_widget) = @_;
-	    my ($dx, $dy) = ($darea->allocation->[2], $darea->allocation->[3]);
-	    my $state = $darea->{state};
-	    if (!defined($dbl_area)) {
-		   ($pix, $width, $height) = create_pix_text($darea, $label, $widget_for_font->style->font, $x_round, 1,
-										  1, 0, [$background, $background], $x_back2, $y_back2, 1, 0);
-		   ($dx, $dy) = (max($width, $x_round), $y_round + $height);
-		   $darea->set_usize($dx, $dy);
-		   $dbl_area = new Gtk::Gdk::Pixmap($darea->window, max($width, $x_round), $y_round + $height);
-	    }
-	    # Redraw if state change (selected <=> not selected)
-	    if (!$dbl_area->{state} || $state != $dbl_area->{state}) {
-		   $dbl_area->{state} = $state;
-		   fill_tiled($darea, $dbl_area, $background, $x_back2, $y_back2, $dx, $dy);
-		   ($state ? $pixbuf_h : $pixbuf)->render_to_drawable($dbl_area, $darea->style->fg_gc('normal'), 0, 0, 0, 0,
-								      $pixbuf->get_width, $pixbuf->get_height, 'normal', 0, 0);
-		   $dbl_area->draw_pixmap($darea->style->bg_gc('normal'), ($state ? $pix->[1] : $pix->[0]),
-							 0, 0, ($dx - $width)/2, $y_round, $width, $height);
-	    }
-	    $darea->window->draw_pixmap($darea->style->bg_gc('normal'), $dbl_area, 0, 0, 0, 0, $dx, $dy);
-	    ($darea->{dx}, $darea->{dy}) = ($dx, $dy);
-
-	};
-	$darea->{state} = 0;
-	$darea->signal_connect(expose_event => $draw);
-	$darea->set_events([ 'exposure_mask', 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]);
-	$darea->signal_connect(enter_notify_event => sub {
-				    if ($darea->{state} == 0) {
-					$darea->{state} = 1;
-					&$draw(@_);
-				    }
-				});
-	$darea->signal_connect(leave_notify_event => sub {
-				    if ($darea->{state} == 1) {
-					$darea->{state} = 0;
-					&$draw(@_);
-				    }
-				});
-	$darea->signal_connect(button_release_event => sub {
-				    $darea->{state} = 0;
-				    $darea->draw(undef);
-				    $exec_func->($tag, $exec_hash->{$label});
-				});
-	$darea->signal_connect(realize => sub { $darea->window->set_cursor($cursor_hand) });
-	push @tab, $darea;
-    }
-    my $fixed = new Gtk::Fixed;
-    foreach (@tab) { $fixed->put($_, 75, 65) }
-    my $w_ret = createScrolledWindow($fixed, undef, 'none');
-    my $redraw_function = sub { 
-	 $fixed->move(@$_) foreach compute_icons($fixed->allocation->[2], $fixed->allocation->[3], 40, 15, 20, @tab);
-    };
-    $fixed->signal_connect(expose_event => $redraw_function);
-    $fixed->signal_connect(realize => sub { $fixed->window->set_back_pixmap($background, 0) });
-    $fixed->{redraw_function} = $redraw_function;
-
-    $w_ret->vscrollbar->set_usize(19, undef);
-    gtkhide($w_ret);
-}
-
-sub n_line_size {
-    my ($nbline, $type, $widget) = @_;
-    my $font = $widget->style->font;
-    my $spacing = ${{ text => 0, various => 17 }}{$type};
-    $nbline * ($font->ascent + $font->descent + $spacing) + 8;
-}
-
-sub write_on_pixmap {
-    my ($pixmap, $x_pos, $y_pos, @text) = @_;
-    my ($gdkpixmap, undef) = $pixmap->get();
-    my ($width, $height) = (440, 250);
-    my $gc = Gtk::Gdk::GC->new(gtkroot());
-    $gc->set_foreground(gtkcolor(8448, 17664, 40191)); #- in hex : 33, 69, 157
-
-    my $darea = new Gtk::DrawingArea();
-    $darea->size($width, $height);
-    $darea->set_usize($width, $height);
-    my $draw = sub {
-	my $style = new Gtk::Style;
-	#- i18n : you can change the font.
-	$style->font(Gtk::Gdk::Font->fontset_load(N("-adobe-times-bold-r-normal--17-*-100-100-p-*-iso8859-*,*-r-*")));
-	my $y_pos2 = $y_pos;
-  	foreach (@text) {
-  	    $darea->window->draw_string($style->font, $gc, $x_pos, $y_pos2, $_);
-  	    $y_pos2 += 20;
-  	}
-    };
-    $darea->signal_connect(expose_event => sub { $darea->window->draw_rectangle($darea->style->white_gc, 1, 0, 0, $width, $height);
-						 $darea->window->draw_pixmap(
-						    $darea->style->white_gc,
-						    $gdkpixmap, 0, 0,
-						    ($darea->allocation->[2]-$width)/2, ($darea->allocation->[3]-$height)/2,
-						    $width, $height);
-						 &$draw();
-					     });
-    $darea;
-}
-
-#-#######################
-# kind of private gtk routines
-#-#######################
-
-sub create_pix_text {
-    #ref widget, txt, color_txt, [font], [width], [height], flag1, flag2, [ (background background_highlighted background_selecteded) backsize x y], centeredx, centeredy
-    my ($w, $text, $font, $max_width, $max_height, $can_be_greater, $can_be_smaller, $backgrounds,  $x_back, $y_back, $centeredx, $centeredy) = @_;
-    my $fake_darea = new Gtk::DrawingArea;
-    my $style = $fake_darea->style->copy();
-    if (ref($font) eq 'Gtk::Gdk::Font') {
-	$style->font($font);
-    } else {
-	$font and $style->font(Gtk::Gdk::Font->fontset_load($font));
-    }
-    $fake_darea->set_style($style);
-    my ($width, $height, $lines, $widths, $heights) = get_text_coord(
-        $text, $fake_darea, $max_width, $max_height, $can_be_greater, $can_be_smaller, $centeredx, $centeredy);
-    my $pix;
-    my $j = 0;
-    foreach (@$backgrounds) { 
-	   $pix->[$j] = new Gtk::Gdk::Pixmap($w->window, $width, $height);
-	   fill_tiled($w, $pix->[$j], $backgrounds->[$j], $x_back, $y_back, $width, $height);
-	   $j++;
-    }
-    
-    
-    my $color_text = gtkcolor(0, 0, 0);
-    my $gc_text = new Gtk::Gdk::GC($w->window);
-    $gc_text->set_foreground($color_text);
-    my $i = 0;
-    foreach (@$lines) {
-	$j = 0;
-	foreach my $pix (@$pix) { 
-	  $pix->draw_string($style->font, $gc_text, $widths->[$i], $heights->[$i], $_);
-	  $pix->draw_string($style->font, $gc_text, $widths->[$i] + 1, $heights->[$i], $_) if $j;
-	  $j++;
-	}
-	$i++;
-    }
-    ($pix, $width, $height);
-}
-
-sub gtkctree_children {
-    my ($node) = @_;
-    my @l;
-    $node or return;
-    for (my $p = $node->row->children; $p; $p = $p->row->sibling) {
-	push @l, $p;
-    }
-    @l;
-}
-
-
-
-
-sub gtkpowerpack {
-    #- Get Default Attributes (if any). 2 syntaxes allowed :
-    #- gtkpowerpack( {expand => 1, fill => 0}, $box...) : the attributes are picked from a specified hash ref
-    #- gtkpowerpack(1,0,1, $box, ...) : the attributes are picked from the non-ref list, in the order (expand, fill, padding, pack_end).
-    my $RefDefaultAttrs;
-    if (ref($_[0]) eq 'HASH') { $RefDefaultAttrs = shift }
-    elsif (!ref($_[0])) {
-	$RefDefaultAttrs = {};
-	foreach ("expand", "fill", "padding", "pack_end") {
-	    !ref($_[0]) ? ($RefDefaultAttrs->{$_} = shift) : last
-	}
-    }
-    my $box = shift;
-
-    while (@_) {
-	#- Get attributes (if specified). 4 syntaxes allowed (default values are undef ie. false...) :
-	#- gtkpowerpack({defaultattrs}, $box, $widget1, $widget2, ...) : the attrs are picked from the default ones (if they exist)
-	#- gtkpowerpack($box, {fill=>1, expand=>0, ...}, $widget1, ...) : the attributes are picked from a specified hash ref
-	#- gtkpowerpack($box, [1,0,1], $widget1, ...) : the attributes are picked from the array ref : (expand, fill, padding, pack_end).
-	#- gtkpowerpack({attr=>'arg'}, $box, 1, $widget1, 0, $widget2, etc...) : the 'arg' value will tell gtkpowerpack to always read the 
-	#- attr value directly in the arg list (avoiding confusion between value 0 and Gtk::Label("0"). That can simplify some writings but
-	#- this arg(s) MUST then be present...
-	my %attr;
-	my $RefAttrs;
-	ref($_[0]) eq 'HASH' || ref($_[0]) eq 'ARRAY' and $RefAttrs = shift;
-	foreach ("expand", "fill", "padding", "pack_end") {
-	    if ($RefDefaultAttrs->{$_} eq 'arg') {
-		ref $_[0] and die "error in packing definition\n";
-		$attr{$_} = shift;
-		ref($RefAttrs) eq 'ARRAY' and shift @$RefAttrs;
-	    } elsif (ref($RefAttrs) eq 'HASH' && defined($RefAttrs->{$_})) {
-		$attr{$_} = $RefAttrs->{$_};
-	    } elsif (ref($RefAttrs) eq 'ARRAY') {
-		$attr{$_} = shift @$RefAttrs;
-	    } elsif (defined($RefDefaultAttrs->{$_})) {
-		$attr{$_} = int $RefDefaultAttrs->{$_};
-	    } else {
-		$attr{$_} = 0;
-	    }
-	}
-	#- Get and pack the widget (create it if necessary when it is a label...)
-	my $widget = ref($_[0]) ? shift : new Gtk::Label(shift);
-	if ($attr{pack_end}) { $box->pack_end($widget, $attr{expand}, $attr{fill}, $attr{padding}) }
-	else { $box->pack_start($widget, $attr{expand}, $attr{fill}, $attr{padding}) }
-	$widget->show;
-    }
-    $box
-}
-
-sub gtkset_default_fontset {
-    my ($fontset) = @_;
-    my $style = Gtk::Widget->get_default_style;
-    my $f = Gtk::Gdk::Font->fontset_load($fontset) or die '';
-    $style->font($f);
-    Gtk::Widget->set_default_style($style);
-}
-
-sub gtkcreate_imlib {
-    my ($f) = shift;
-    $f =~ m|.png$| or $f = "$f.png";
-    if ($f !~ m!/!) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() }
-    Gtk::Gdk::ImlibImage->load_image($f);
-}
-
-sub gtkxpm { new Gtk::Pixmap(gtkcreate_xpm(@_)) }
-sub gtkpng { new Gtk::Pixmap(gtkcreate_png(@_)) }
-sub gtkcreate_xpm {
-    my ($f) = @_;
-    my $rw = gtkroot();
-    $f =~ m|.xpm$| or $f = "$f.xpm";
-    if ($f !~ m!/!) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() }
-    my @l = Gtk::Gdk::Pixmap->create_from_xpm($rw, new Gtk::Style->bg('normal'), $f) or die "gtkcreate_xpm: missing pixmap file $f";
-    @l;
-}
-
-sub gtkcreate_png_pixbuf {
-    my ($f) = shift;
-    die 'gdk-pixbuf library is not available' unless $use_pixbuf;
-    $f =~ /\.(png|jpg)$/ or $f .= '.png';
-    if ($f !~ m!^/!) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() }
-    Gtk::Gdk::Pixbuf->new_from_file($f) or die "gtkcreate_png: missing png file $f";
-}
-
-sub gtkcreate_png {
-    my ($f) = shift;
-    $f =~ /\.png$/ or $f .= '.png';
-    if ($f !~ m!^/!) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() }
-    if ($use_imlib) {
-	my $im = Gtk::Gdk::ImlibImage->load_image($f) or die "gtkcreate_png: missing png file $f";
-	$im->render($im->rgb_width, $im->rgb_height);
-	return ($im->move_image(), $im->move_mask);
-    } elsif ($use_pixbuf) {
-#	my $pixbuf = gtkcreate_png_pixbuf($f);
-	my $pixbuf = Gtk::Gdk::Pixbuf->new_from_file($f) or die "gtkcreate_png: missing png file $f";
-	my ($width, $height) = ($pixbuf->get_width(), $pixbuf->get_height);
-	my $rw = gtkroot();
-	my $pix = new Gtk::Gdk::Pixmap($rw, $width, $height, 16);
-	$pixbuf->render_to_drawable_alpha($pix, 0, 0, 0, 0, $width, $height, 'bilevel', 127, 'normal', 0, 0);
- 	my $bit = new Gtk::Gdk::Bitmap($rw, $width, $height, 1);
- 	$pixbuf->render_threshold_alpha($bit, 0, 0, 0, 0, $width, $height, '127');
-	return ($pix, $bit);
-    } else {
-	die "gtkcreate_png: cannot find a suitable library for rendering png (imlib1 or gdk_pixbuf)";
-    }
-}
-
-sub compose_pixbufs {
-    my ($pixbuf, $back_pixbuf_unaltered, $alpha_threshold) = @_;
-    $alpha_threshold ||= 255;
-    my ($width, $height) = ($pixbuf->get_height, $pixbuf->get_width);
-    my $back_pixbuf = Gtk::Gdk::Pixbuf->new('rgb', 0, 8, $height, $width);
-
-    $back_pixbuf_unaltered->copy_area(0, 0, $height, $width, $back_pixbuf, 0, 0);
-    $pixbuf->composite($back_pixbuf, 0, 0, $width, $height, 0, 0, 1, 1, 'nearest', $alpha_threshold);
-    $back_pixbuf;
-}
-
-sub compose_with_back {
-    my ($f, $back_pixbuf_unaltered, $alpha_threshold) = @_;
-    compose_pixbufs(gtkcreate_png_pixbuf($f), $back_pixbuf_unaltered, $alpha_threshold);
-}
-
-sub xpm_d { my $w = shift; Gtk::Gdk::Pixmap->create_from_xpm_d($w->window, undef, @_) }
-
-sub fill_tiled {
-    my ($w, $pix, $bitmap, $x_back, $y_back, $width, $height) = @_;
-    my ($x2, $y2) = (0, 0);
-    while (1) {
-	$x2 = 0;
-	while (1) {
-	    $pix->draw_pixmap($w->style->bg_gc('normal'),
-			      $bitmap, 0, 0, $x2, $y2, $x_back, $y_back);
-	    $x2 += $x_back;
-	    $x2 >= $width and last;
-	}
-	$y2 += $y_back;
-	$y2 >= $height and last;
-    }
-}
-
-sub compute_icons {
-    my ($fx, $_fy, $decx, $decy, $interstice, @tab) = @_;
-    my $nb = $#tab;
-    my $nb_sav = $nb;
-    my $index = 0;
-    my @dx2;
-    my @dx;
-    my @dy;
-    my $line_up = 0;
-  bcl_init:
-    @dx2 = undef;
-  bcl:
-    @dx = map { $_->{dx} || 78 } @tab[$index..$index+$nb];
-    $dy[$index] = max(map { $_->{dy} || 89 } @tab[$index..$index+$nb]);
-    foreach (0..$#dx) {
-	if ($dx[$_] > $dx2[$_]) { $dx2[$_] = $dx[$_] } else { $dx[$_] = $dx2[$_] }
-    }
-    my $line_size = 0;
-    $line_size = $decx + sum(@dx2) + $nb * $interstice;
-    if ($line_size > $fx) {
-	$index = 0; $nb--; goto bcl_init;
-    }
-    $nb and $line_up = ($fx-$line_size)/($nb+2);
-    $index += $nb+1;
-    $index <= $#tab and goto bcl;
-    my @ret;
-    my $n = 0;
-    my $y = $decy;
-    my $x = $decx/2 + $line_up;
-    foreach (0..$nb_sav) {
-	$ret[$_] = [$tab[$_], $x, $y];
-	$x += $dx2[$n] + $interstice + $line_up;
-	$n++;
-	if ($n > $nb) {
-	    $n = 0;
-	    $x = $decx/2 + $line_up;
-	    $y += int($dy[$_-$nb]/5)*5 + 15;
-	}
-    }
-    @ret;
-}
-
-1;