rename for gtk+3

1 files changed, 0 insertions, 1598 deletions

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
deleted file mode 100644
index 779e77e8f..000000000
--- a/perl-install/mygtk2.pm
+++ /dev/null
@@ -1,1598 +0,0 @@
-package mygtk2;
-
-use diagnostics;
-use strict;
-use feature 'state';
-
-our @ISA = qw(Exporter);
-our @EXPORT = qw(gtknew gtkset gtkadd gtkval_register gtkval_modify);
-
-use c;
-use log;
-use common;
-
-use Gtk2;
-
-sub init() {
-    !check_for_xserver() and print("Cannot be run in console mode.\n"), c::_exit(0);
-    $::one_message_has_been_translated and warn("N() was called from $::one_message_has_been_translated BEFORE gtk2 initialisation, replace it with a N_() AND a translate() later.\n"), c::_exit(1);
-
-    Gtk2->init;
-    Locale::gettext::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', if_(!$::isInstall, 'libDrakX-standalone'),
-        if_($::isRestore, 'draksnapshot'), if_($::isInstall, 'urpmi'),
-        'drakx-net', 'drakx-kbd-mouse-x11', # shared translation
-          @::textdomains;
-    Glib->enable_exceptions2;
-}
-init() unless $::no_ugtk_init;
-Glib->enable_exceptions2 if $::isInstall;
-
-
-
-sub gtknew {
-    my $class = shift;
-    if (@_ % 2 != 0) {
-	internal_error("gtknew $class: bad options @_");
-    }
-    if (my $r = find { ref $_->[0] } group_by2(@_)) {
-	internal_error("gtknew $class: $r should be a string in @_");
-    }
-    my %opts = @_;
-    _gtk(undef, $class, 'gtknew', \%opts);
-}
-
-sub gtkset {
-    my $w = shift;
-    my $class = ref($w);
-    if (@_ % 2 != 0) {
-	internal_error("gtkset $class: bad options @_");
-    }
-    if (my $r = find { ref $_->[0] } group_by2(@_)) {
-	internal_error("gtkset $class: $r should be a string in @_");
-    }
-    my %opts = @_;
-
-    $class =~ s/^(Gtk2|Gtk2::Gdk|mygtk2)::// or internal_error("gtkset unknown class $class");
-    
-    _gtk($w, $class, 'gtkset', \%opts);
-}
-
-sub gtkadd {
-    my $w = shift;
-    my $class = ref($w);
-    if (@_ % 2 != 0) {
-	internal_error("gtkadd $class: bad options @_");
-    }
-    if (my $r = find { ref $_->[0] } group_by2(@_)) {
-	internal_error("gtkadd $class: $r should be a string in @_");
-    }
-    my %opts = @_;
-    $class =~ s/^(Gtk2|Gtk2::Gdk|mygtk2)::// or internal_error("gtkadd unknown class $class");
-    
-    _gtk($w, $class, 'gtkadd', \%opts);
-}
-
-
-my %refs;
-
-sub gtkval_register {
-    my ($w, $ref, $sub) = @_;
-    push @{$w->{_ref}}, $ref;
-    $w->signal_connect(destroy => sub { 
-	@{$refs{$ref}} = grep { $_->[1] != $w } @{$refs{$ref}};
-	delete $refs{$ref} if !@{$refs{$ref}};
-    });
-    push @{$refs{$ref}}, [ $sub, $w ];
-}
-sub gtkval_modify {
-    my ($ref, $val, @to_skip) = @_;
-    my $prev = '' . $ref;
-    $$ref = $val;
-    if ($prev ne '' . $ref) {
-	internal_error();
-    }
-    foreach (@{$refs{$ref} || []}) {	
-	my ($f, @para) = @$_;
-	$f->(@para) if !member($f, @to_skip);
-    }
-}
-
-my $global_tooltips;
-
-sub _gtk {
-    my ($w, $class, $action, $opts) = @_;
-
-    if (my $f = $mygtk2::{"_gtk__$class"}) {
-	$w = $f->($w, $opts, $class, $action);
-    } else {
-	internal_error("$action $class: unknown class");
-    }
-
-    $w->set_size_request(delete $opts->{width} || -1, delete $opts->{height} || -1) if exists $opts->{width} || exists $opts->{height};
-    if (my $position = delete $opts->{position}) {
-	$w->move($position->[0], $position->[1]);
-    }
-    $w->set_name(delete $opts->{widget_name}) if exists $opts->{widget_name};
-    $w->can_focus(delete $opts->{can_focus}) if exists $opts->{can_focus};
-    $w->can_default(delete $opts->{can_default}) if exists $opts->{can_default};
-    $w->grab_focus if delete $opts->{grab_focus};
-    $w->set_padding(@{delete $opts->{padding}}) if exists $opts->{padding};
-    $w->set_sensitive(delete $opts->{sensitive}) if exists $opts->{sensitive};
-    $w->signal_connect(expose_event => delete $opts->{expose_event}) if exists $opts->{expose_event};
-    $w->signal_connect(realize => delete $opts->{realize}) if exists $opts->{realize};
-    (delete $opts->{size_group})->add_widget($w) if $opts->{size_group};
-    if (my $tip = delete $opts->{tip}) {
-	$global_tooltips ||= Gtk2::Tooltips->new;
-	$global_tooltips->set_tip($w, $tip);
-    }
-
-    #- WARNING: hide_ref and show_ref are not effective until you gtkval_modify the ref
-    if (my $hide_ref = delete $opts->{hide_ref}) {
-	gtkval_register($w, $hide_ref, sub { $$hide_ref ? $w->hide : $w->show });
-    } elsif (my $show_ref = delete $opts->{show_ref}) {
-	gtkval_register($w, $show_ref, sub { $$show_ref ? $w->show : $w->hide });
-    }
-
-    if (my $sensitive_ref = delete $opts->{sensitive_ref}) {
-	my $set = sub { $w->set_sensitive($$sensitive_ref) };
-	gtkval_register($w, $sensitive_ref, $set);
-	$set->();
-    }
-
-    if (%$opts && !$opts->{allow_unknown_options}) {
-	internal_error("$action $class: unknown option(s) " . join(', ', keys %$opts));
-    }
-    $w;
-}
-
-sub _gtk__Install_Button {
-    my ($w, $opts, $_class) = @_;
-    $opts->{child} = gtknew('HBox', spacing => 5, 
-                             children_tight => [
-                                 # FIXME: not RTL compliant (lang::text_direction_rtl() ? ...)
-                                 gtknew('Image', file => 'advanced_expander'),
-                                 gtknew('Label', text => delete $opts->{text}),
-                             ],
-                         );
-    $opts->{relief} = 'none';
-    _gtk__Button($w, $opts, 'Button');
-}
-
-sub _gtk__Button       { &_gtk_any_Button }
-sub _gtk__ToggleButton { &_gtk_any_Button }
-sub _gtk__CheckButton  { &_gtk_any_Button }
-sub _gtk__RadioButton  { &_gtk_any_Button }
-sub _gtk_any_Button {
-    my ($w, $opts, $class) = @_;
-
-    if (!$w) {
-        my @radio_options;
-        if ($class eq 'RadioButton') {
-            @radio_options = delete $opts->{group};
-	}
-	$w = $opts->{child} ? "Gtk2::$class"->new(@radio_options) :
-	  delete $opts->{mnemonic} ? "Gtk2::$class"->new_with_mnemonic(@radio_options, delete $opts->{text} || '') :
-	    $opts->{text} ? "Gtk2::$class"->new_with_label(@radio_options, delete $opts->{text} || '') :
-           "Gtk2::$class"->new(@radio_options);
-
-	$w->{format} = delete $opts->{format} if exists $opts->{format};
-    }
-
-    if (my $widget = delete $opts->{child}) {
-	$w->add($widget);
-	$widget->show;
-    }
-    $w->set_image(delete $opts->{image}) if exists $opts->{image};
-    $w->set_relief(delete $opts->{relief}) if exists $opts->{relief};
-
-    if (my $text_ref = delete $opts->{text_ref}) {
-	my $set = sub {
-	    eval { $w->set_label(may_apply($w->{format}, $$text_ref)) };
-	};
-	gtkval_register($w, $text_ref, $set);
-	$set->();
-    } elsif (exists $opts->{text}) {
-	$w->set_label(delete $opts->{text});
-    } elsif (exists $opts->{stock}) {
-	$w->set_label(delete $opts->{stock});
-	$w->set_use_stock(1);
-    }
-
-    if ($class eq 'Button') {
-	$w->signal_connect(clicked => delete $opts->{clicked}) if exists $opts->{clicked};
-    } else {
-	if (my $active_ref = delete $opts->{active_ref}) {
-	    my $set = sub { $w->set_active($$active_ref) };
-	    $w->signal_connect(toggled => sub {
-		gtkval_modify($active_ref, $w->get_active, $set);
-	    });
-	    gtkval_register($w, $active_ref, $set);
-	    gtkval_register($w, $active_ref, delete $opts->{toggled}) if exists $opts->{toggled};
-	    $set->();
-	} else {
-	    $w->set_active(delete $opts->{active}) if exists $opts->{active};
-	    $w->signal_connect(toggled => delete $opts->{toggled}) if exists $opts->{toggled};
-	}
-    }
-    $w;
-}
-
-sub _gtk__CheckMenuItem {
-    my ($w, $opts, $class) = @_;
-
-    if (!$w) {
-	add2hash_($opts, { mnemonic => 1 });
-
-	$w = $opts->{image} || !exists $opts->{text} ? "Gtk2::$class"->new :
-	  delete $opts->{mnemonic} ? "Gtk2::$class"->new_with_label(delete $opts->{text}) :
-	    "Gtk2::$class"->new_with_mnemonic(delete $opts->{text});
-    }
-
-    $w->set_active(delete $opts->{active}) if exists $opts->{active};
-    $w->signal_connect(toggled => delete $opts->{toggled}) if exists $opts->{toggled};
-    $w;
-}
-
-sub _gtk__SpinButton {
-    my ($w, $opts) = @_;
-
-    if (!$w) {
-	$opts->{adjustment} ||= do {
-	    add2hash_($opts, { step_increment => 1, page_increment => 5, page_size => 1, value => delete $opts->{lower} });
-	    Gtk2::Adjustment->new(delete $opts->{value}, delete $opts->{lower}, delete $opts->{upper}, delete $opts->{step_increment}, delete $opts->{page_increment}, delete $opts->{page_size});
-	};
-	$w = Gtk2::SpinButton->new(delete $opts->{adjustment}, delete $opts->{climb_rate} || 0, delete $opts->{digits} || 0);
-    }
-
-    $w->signal_connect(value_changed => delete $opts->{value_changed}) if exists $opts->{value_changed};
-    $w;
-}
-
-sub _gtk__HScale {
-    my ($w, $opts) = @_;
-
-    if (!$w) {
-	$opts->{adjustment} ||= do {
-	    add2hash_($opts, { step_increment => 1, page_increment => 5, page_size => 1 });
-	    add2hash_($opts, { value => $opts->{lower} }) if !exists $opts->{value};
-	    Gtk2::Adjustment->new(delete $opts->{value}, delete $opts->{lower}, (delete $opts->{upper}) + 1, delete $opts->{step_increment}, delete $opts->{page_increment}, delete $opts->{page_size});
-	};
-	$w = Gtk2::HScale->new(delete $opts->{adjustment});
-    }
-
-    $w->set_digits(delete $opts->{digits}) if exists $opts->{digits};
-    if (my $value_ref = delete $opts->{value_ref}) {
-	my $set = sub { $w->set_value($$value_ref) };
-	gtkval_register($w, $value_ref, $set);
-	$set->();
-	$w->signal_connect(value_changed => sub {
-		gtkval_modify($value_ref, $w->get_value, $set);
-	});
-    }
-    $w->signal_connect(value_changed => delete $opts->{value_changed}) if exists $opts->{value_changed};
-    $w;
-}
-
-sub _gtk__ProgressBar {
-    my ($w, $opts) = @_;
-
-    if (!$w) {
-	$w = Gtk2::ProgressBar->new;
-    }
-
-    if (my $fraction_ref = delete $opts->{fraction_ref}) {
-	my $set = sub { $w->set_fraction($$fraction_ref) };
-	gtkval_register($w, $fraction_ref, $set);
-	$set->();
-    } elsif (exists $opts->{fraction}) {
-	$w->set_fraction(delete $opts->{fraction});
-    }
-
-    $w;
-}
-
-sub _gtk__VSeparator { &_gtk_any_simple }
-sub _gtk__HSeparator { &_gtk_any_simple }
-sub _gtk__Calendar   { &_gtk_any_simple }
-
-sub _gtk__DrawingArea {
-    my ($w, $_opts) = @_;
-
-    if (!$w) {
-	$w = Gtk2::DrawingArea->new;
-    }
-    $w;
-}
-
-sub _gtk__Pixbuf {
-    my ($w, $opts) = @_;
-
-    if (!$w) {
-	my $name = delete $opts->{file} or internal_error("missing file");
-	my $file = _find_imgfile($name) or internal_error("cannot find image $name");
-	if (my $size = delete $opts->{size}) {
-	    $w = Gtk2::Gdk::Pixbuf->new_from_file_at_scale($file, $size, $size, 1);
-	} else {
-	    $w = Gtk2::Gdk::Pixbuf->new_from_file($file);
-	}
-        $w = $w->flip(1) if delete $opts->{flip};
-    }
-    $w;
-}
-
-# Image_using_pixmap is rendered using DITHER_MAX which is much better on 16bpp displays
-sub _gtk__Image_using_pixmap { &_gtk__Image }
-# Image_using_pixbuf is rendered using DITHER_MAX & transparency which is much better on 16bpp displays
-sub _gtk__Image_using_pixbuf { &_gtk__Image }
-sub _gtk__Image {
-    my ($w, $opts, $class) = @_;
-
-    if (!$w) {
-	$w = Gtk2::Image->new;
-	$w->{format} = delete $opts->{format} if exists $opts->{format};
-        
-        $w->set_from_stock(delete $opts->{stock}, 'button') if exists $opts->{stock};
-
-        $w->{options} = { flip => delete $opts->{flip} };
-
-        $w->{set_from_file} = $class =~ /using_pixmap/ ? sub { 
-            my ($w, $file) = @_;
-            my $pixmap = mygtk2::pixmap_from_pixbuf($w, gtknew('Pixbuf', file => $file));
-	    $w->set_from_pixmap($pixmap, undef);
-        } : $class =~ /using_pixbuf/ ? sub { 
-            my ($w, $file) = @_;
-            my $pixbuf = _pixbuf_render_alpha(gtknew('Pixbuf', file => $file, %{$w->{options}}), 255);
-            my ($width, $height) = ($pixbuf->get_width, $pixbuf->get_height);
-            $w->set_size_request($width, $height);
-            $w->{pixbuf} = $pixbuf;
-            $w->signal_connect(expose_event => sub {
-                                   my (undef, $event) = @_;
-                                   if (!$w->{x}) {
-                                       my $alloc = $w->allocation;
-                                       $w->{x} = $alloc->x;
-                                       $w->{y} = $alloc->y;
-                                   }
-                                   # workaround Gtk+ bug: in installer, first event is not complete and rectables are bogus:
-                                   if ($::isInstall) {
-                                       $pixbuf->render_to_drawable($w->window, $w->style->fg_gc('normal'),
-                                                                   0, 0, $w->{x}, $w->{y}, $width, $height, 'max', 0, 0);
-                                       return;
-                                   }
-                                   foreach my $rect ($event->region->get_rectangles) {
-                                       my @values = $rect->values;
-                                       $pixbuf->render_to_drawable($w->window, $w->style->fg_gc('normal'),
-                                                               @values[0..1], $w->{x}+$values[0], $w->{y}+$values[1], @values[2..3], 'max', 0, 0);
-				   }
-                               });
-        } : sub { 
-            my ($w, $file, $o_size) = @_;
-            my $pixbuf = gtknew('Pixbuf', file => $file, if_($o_size, size => $o_size), %{$w->{options}});
-            $w->set_from_pixbuf($pixbuf);
-        };
-    }
-
-    if (my $name = delete $opts->{file}) {
-	my $file = _find_imgfile(may_apply($w->{format}, $name)) or internal_error("cannot find image $name");
-	$w->{set_from_file}->($w, $file, delete $opts->{size});
-    } elsif (my $file_ref = delete $opts->{file_ref}) {
-	my $set = sub {
-	    my $file = _find_imgfile(may_apply($w->{format}, $$file_ref)) or internal_error("cannot find image $$file_ref");
-	    $w->{set_from_file}->($w, $file, delete $opts->{size});
-	};
-	gtkval_register($w, $file_ref, $set);
-	$set->() if $$file_ref;
-    }
-    $w;
-}
-
-sub _gtk__WrappedLabel {
-    my ($w, $opts) = @_;
-    
-    $opts->{line_wrap} = 1 if !defined $opts->{line_wrap};
-    _gtk__Label($w, $opts);
-}
-
-our $left_padding = 20;
-
-sub _gtk__Label_Left {
-    my ($w, $opts) = @_;
-    $opts->{alignment} ||= [ 0, 0 ];
-    $opts->{padding} ||= [ $left_padding, 0 ];
-    _gtk__WrappedLabel($w, $opts);
-}
-
-sub _gtk__Label_Right {
-    my ($w, $opts) = @_;
-    $opts->{alignment} ||= [ 1, 0.5 ];
-    _gtk__Label($w, $opts);
-}
-
-
-sub _gtk__Label {
-    my ($w, $opts) = @_;
-
-    if ($w) {
-	$w->set_text(delete $opts->{text}) if exists $opts->{text};
-    } else {
-	$w = exists $opts->{text} ? Gtk2::Label->new(delete $opts->{text}) : Gtk2::Label->new;
-	$w->set_selectable(delete $opts->{selectable}) if exists $opts->{selectable};
-	$w->set_ellipsize(delete $opts->{ellipsize}) if exists $opts->{ellipsize};
-	$w->set_justify(delete $opts->{justify}) if exists $opts->{justify};
-	$w->set_line_wrap(delete $opts->{line_wrap}) if exists $opts->{line_wrap};
-	$w->set_alignment(@{delete $opts->{alignment}}) if exists $opts->{alignment};
-	$w->modify_font(Gtk2::Pango::FontDescription->from_string(delete $opts->{font})) if exists $opts->{font};
-    }
-
-    if (my $text_ref = delete $opts->{text_ref}) {
-	my $set = sub { $w->set_text($$text_ref) };
-	gtkval_register($w, $text_ref, $set);
-	$set->();
-    }
-
-    if (my $t = delete $opts->{text_markup}) {
-	$w->set_markup($t);
-	if ($w->get_text eq '') {
-	    log::l("invalid markup in $t. not using the markup");
-	    $w->set_text($t);
-	}
-    }
-    $w;
-}
-
-
-sub _gtk__Alignment {
-    my ($w, $_opts) = @_;
-
-    if (!$w) {
-	$w = Gtk2::Alignment->new(0, 0, 0, 0);
-    }
-    $w;
-}
-
-
-sub title1_to_markup {
-    my ($label) = @_;
-    if ($::isInstall) {
-        my $font = lang::l2pango_font($::o->{locale}{lang});
-        if (my ($font_size) = $font =~ /(\d+)/) {
-            $font_size++;
-            $font =~ s/\d+/$font_size/;
-        }
-        qq(<span foreground="#5A8AD6" font="$font">$label</span>);
-    } else {
-        qq(<b><big>$label</big></b>);
-  }
-}
-
-sub _gtk__Install_Title {
-    my ($w, $opts) = @_;
-    local $opts->{widget_name} = 'Banner';
-    $opts->{text} = uc($opts->{text}) if $::isInstall;
-    gtknew('HBox', widget_name => 'Banner', children => [
-        0, gtknew('Label', padding => [ 6, 0 ]),
-        1, gtknew('VBox', widget_name => 'Banner', children_tight => [
-            _gtk__Title2($w, $opts),
-            if_($::isInstall, Gtk2::HSeparator->new),
-        ]),
-        0, gtknew('Label', padding => [ 6, 0 ]),
-    ]);
-}
-
-sub _gtk__Title1 {
-    my ($w, $opts) = @_;
-    $opts ||= {};
-    $opts->{text_markup} = title1_to_markup(delete($opts->{label})) if $opts->{label};
-    _gtk__WrappedLabel($w, $opts);
-}
-
-sub _gtk__Title2 {
-    my ($w, $opts) = @_;
-    $opts ||= {};
-    $opts->{alignment} = [ 0, 0 ];
-    _gtk__Title1($w, $opts);
-}
-
-sub _gtk__Sexy_IconEntry {
-    my ($w, $opts) = @_;
-
-    require Gtk2::Sexy;
-    if (!$w) {
-	$w = Gtk2::Sexy::IconEntry->new;
-	$w->set_editable(delete $opts->{editable}) if exists $opts->{editable};
-    }
-
-    $w->add_clear_button if delete $opts->{clear_button};
-    if (my $icon = delete $opts->{primary_icon}) {
-        $w->set_icon('primary', $icon);
-        $w->set_icon_highlight('primary', $icon);
-    }
-    if (my $icon = delete $opts->{secondary_icon}) {
-        $w->set_icon('secondary', $icon);
-        $w->set_icon_highlight('secondary', $icon);
-    }
-
-    $w->signal_connect('icon-released' => delete $opts->{'icon-released'}) if exists $opts->{'icon-released'};
-    $w->signal_connect('icon-pressed' => delete $opts->{'icon-pressed'}) if exists $opts->{'icon-pressed'};
-
-    _gtk__Entry($w, $opts);
-}
-
-sub _gtk__Entry {
-    my ($w, $opts) = @_;
-
-    if (!$w) {
-	$w = Gtk2::Entry->new;
-	$w->set_editable(delete $opts->{editable}) if exists $opts->{editable};
-    }
-
-    if (my $icon = delete $opts->{primary_icon}) {
-        $w->set_icon_from_stock('primary', $icon);
-        #$w->set_icon_highlight('primary', $icon);
-    }
-    if (my $icon = delete $opts->{secondary_icon}) {
-        $w->set_icon_from_stock('secondary', $icon);
-        #$w->set_icon_highlight('secondary', $icon);
-    }
-
-    $w->signal_connect('icon-release' => delete $opts->{'icon-release'}) if exists $opts->{'icon-release'};
-    $w->signal_connect('icon-press' => delete $opts->{'icon-press'}) if exists $opts->{'icon-press'};
-
-    $w->set_text(delete $opts->{text}) if exists $opts->{text};
-    $w->signal_connect(key_press_event => delete $opts->{key_press_event}) if exists $opts->{key_press_event};
-
-    if (my $text_ref = delete $opts->{text_ref}) {
-	my $set = sub { $w->set_text($$text_ref) };
-	gtkval_register($w, $text_ref, $set);
-	$set->();
-	$w->signal_connect(changed => sub {
-		gtkval_modify($text_ref, $w->get_text, $set);
-	});
-    }
-
-    $w;
-}
-
-sub _gtk__WeaknessCheckEntry {
-    my ($w, $opts) = @_;
-
-    if (!$w) {
-	$w = _gtk__Entry($w, $opts);
-    }
-
-    $w->signal_connect('changed' => sub {
-	require authentication;
-	my $password_weakness = authentication::compute_password_weakness($w->get_text);
-	$w->set_icon_from_pixbuf('GTK_ENTRY_ICON_SECONDARY', _get_weakness_icon($password_weakness));
-	$w->set_icon_tooltip_text('GTK_ENTRY_ICON_SECONDARY', _get_weakness_tooltip($password_weakness));
-    });
-
-    $w;
-}
-
-sub _gtk__TextView {
-    my ($w, $opts, $_class, $action) = @_;
-	
-    if (!$w) {
-	$w = Gtk2::TextView->new;
-	$w->set_editable(delete $opts->{editable}) if exists $opts->{editable};
-	$w->set_wrap_mode(delete $opts->{wrap_mode}) if exists $opts->{wrap_mode};
-	$w->set_cursor_visible(delete $opts->{cursor_visible}) if exists $opts->{cursor_visible};
-    }
-
-    _text_insert($w, delete $opts->{text}, append => $action eq 'gtkadd') if exists $opts->{text};
-    $w;
-}
-
-sub _gtk__WebKit_View {
-    my ($w, $opts, $_class, $_action) = @_;
-    if (!$w) {
-        $w = Gtk2::WebKit::WebView->new;
-    }
-
-    # disable contextual menu:
-    if (delete $opts->{no_popup_menu}) {
-        $w->signal_connect('populate-popup' => sub {
-                               my (undef, $menu) = @_;
-                               $menu->destroy if $menu;
-                               1;
-                           });
-    }
-
-    $w;
-}
-
-sub _gtk__ComboBox {
-    my ($w, $opts, $_class, $action) = @_;
-
-    if (!$w) {
-	$w = Gtk2::ComboBox->new_text;
-	$w->{format} = delete $opts->{format} if exists $opts->{format};
-
-    }
-    my $set_list = sub {
-	$w->{formatted_list} = $w->{format} ? [ map { $w->{format}($_) } @{$w->{list}} ] : $w->{list};
-	$w->get_model->clear;
-	$w->{strings} = $w->{formatted_list};  # used by Gtk2::ComboBox wrappers such as get_text() in ugtk2
-	$w->append_text($_) foreach @{$w->{formatted_list}};
-    };
-    if (my $list_ref = delete $opts->{list_ref}) {
-	!$opts->{list} or internal_error("both list and list_ref");
-	my $set = sub {
-	    $w->{list} = $$list_ref;
-	    $set_list->();
-	};
-	gtkval_register($w, $list_ref, $set);
-	$set->();
-    } elsif (exists $opts->{list}) {
-	$w->{list} = delete $opts->{list};
-	$set_list->();
-    }
-
-    if ($action eq 'gtknew') {
-	if (my $text_ref = delete $opts->{text_ref}) {
-	    my $set = sub {
-		my $val = may_apply($w->{format}, $$text_ref);
-		eval { $w->set_active(find_index { $_ eq $val } @{$w->{formatted_list}}) };
-	    };
-	    $w->signal_connect(changed => sub {
-		gtkval_modify($text_ref, $w->{list}[$w->get_active], $set);
-	    });
-	    gtkval_register($w, $text_ref, $set);
-	    gtkval_register($w, $text_ref, delete $opts->{changed}) if exists $opts->{changed};
-	    $set->();
-	} else {
-	    my $val = delete $opts->{text};
-	    eval { $w->set_active(find_index { $_ eq $val } @{$w->{formatted_list}}) } if defined $val;
-	    $w->signal_connect(changed => delete $opts->{changed}) if exists $opts->{changed};
-	}
-    }
-    $w;
-}
-
-sub _gtk__ScrolledWindow {
-    my ($w, $opts, $_class, $action) = @_;
-	
-    if (!$w) {
-	$w = Gtk2::ScrolledWindow->new(undef, undef);
-	$w->set_policy(delete $opts->{h_policy} || 'automatic', delete $opts->{v_policy} || 'automatic');
-    }
-
-    my $faked_w = $w;
-
-    if (my $child = delete $opts->{child}) {
-	if (member(ref($child), qw(Gtk2::Layout Gtk2::Html2::View  Gtk2::SimpleList Gtk2::SourceView::View Gtk2::Text Gtk2::TextView Gtk2::TreeView Gtk2::WebKit::WebView))) {
-	    $w->add($child);
-	} else {
-	    $w->add_with_viewport($child);
-	}
-	$child->set_focus_vadjustment($w->get_vadjustment) if $child->can('set_focus_vadjustment');
-	$child->set_left_margin(6) if ref($child) =~ /Gtk2::TextView/ && $child->get_left_margin <= 6;
-	$child->show;
-
-	$w->child->set_shadow_type(delete $opts->{shadow_type}) if exists $opts->{shadow_type};
-
-	if (ref($child) eq 'Gtk2::TextView' && delete $opts->{to_bottom}) {
-	    $child->{to_bottom} = _allow_scroll_TextView_to_bottom($w, $child);
-	}
-
-	if (!delete $opts->{no_shadow} && $action eq 'gtknew' && ref($child) =~ /Gtk2::(Html2|SimpleList|TextView|TreeView|WebKit::WebView)/) {
-	    $faked_w = gtknew('Frame', shadow_type => 'in', child => $w);
-	}
-    }
-    $faked_w;
-}
-
-sub _gtk__Frame {
-    my ($w, $opts) = @_;
-
-    if ($w) {
-	$w->set_label(delete $opts->{text}) if exists $opts->{text};
-    } else {
-	$w = Gtk2::Frame->new(delete $opts->{text});
-	$w->set_border_width(delete $opts->{border_width}) if exists $opts->{border_width};
-	$w->set_shadow_type(delete $opts->{shadow_type}) if exists $opts->{shadow_type};
-    }
-
-    if (my $child = delete $opts->{child}) {
-	$w->add($child);
-	$child->show;
-    }
-    $w;
-}
-
-sub _gtk__Expander {
-    my ($w, $opts) = @_;
-
-    if ($w) {
-	$w->set_label(delete $opts->{text}) if exists $opts->{text};
-    } else {
-	$w = Gtk2::Expander->new(delete $opts->{text});
-    }
-
-    $w->signal_connect(activate => delete $opts->{activate}) if exists $opts->{activate};
-
-    if (my $child = delete $opts->{child}) {
-	$w->add($child);
-	$child->show;
-    }
-    $w;
-}
-
-
-
-sub _gtk__MDV_Notebook {
-    my ($w, $opts, $_class, $_action) = @_;
-    if (!$w) {
-        import_style_ressources();
-
-        my ($layout, $selection_arrow, $selection_bar);
-        my $parent_window = delete $opts->{parent_window} || root_window();
-        my $root_height = first($parent_window->get_size);
-        my $suffix = $root_height == 800 && !$::isStandalone ? '_600' : '_768';
-        # the white square is a little bit above the actual left sidepanel:
-        my $offset = 20;
-        my $is_flip_needed = text_direction_rtl();
-        my $filler = gtknew('Image', file => 'left-background-filler.png');
-        my $filler_height = $filler->get_pixbuf->get_height;
-        my $left_background = gtknew('Image_using_pixbuf', file => 'left-background.png');
-        my $lf_height = $left_background->{pixbuf}->get_height;
-        my @right_background = $::isInstall ? 
-          gtknew('Image', file => "right-white-background_left_part$suffix", flip => $is_flip_needed)
-            : map {
-                gtknew('Image', file => "right-white-background_left_part-$_", flip => $is_flip_needed);
-            } 1, 2, 2, 3;
-        my $width1 = $left_background->{pixbuf}->get_width;
-        my $total_width = $width1 + $right_background[0]->get_pixbuf->get_width;
-        my $arrow_x = text_direction_rtl() ? $offset/2 - 4 : $width1 - $offset - 3;
-        $w = gtknew('HBox', spacing => 0, children => [
-            0, $layout = gtknew('Layout', width => $total_width - $offset, children => [ #Layout Fixed
-                # stacking order is important for "Z-buffer":
-                [ $left_background, 0, 0 ],
-                if_($suffix ne '_600',
-                   [ $filler, 0, $lf_height ],
-                   [ gtknew('Image', file => 'left-background-filler.png'), 0, $lf_height + $filler_height ],
-                   [ gtknew('Image', file => 'left-background-filler.png'), 0, $lf_height + $filler_height*2 ],
-                ),
-                [ $selection_bar = gtknew('Image', file => 'rollover.png'), 0, 0 ], # arbitrary vertical position
-                ($opts->{children} ? @{ delete $opts->{children} } : ()),
-                [ my $box = gtknew('VBox', spacing => 0, height => -1, children => [
-                    0, $right_background[0],
-                    if_(!$::isInstall,
-                        1, $right_background[1],
-                        1, $right_background[2], # enought up to to XYZx1280 resolution
-                        0, $right_background[3],
-                    ),
-                ]), (text_direction_rtl() ? 0 : $width1 - $offset), 0 ],
-                # stack on top (vertical position is arbitrary):
-                [ $selection_arrow = gtknew('Image', file => 'steps_on', flip => $is_flip_needed), $arrow_x, 0, ],
-            ]),
-            1, delete $opts->{right_child} || 
-              gtknew('Image_using_pixbuf', file => "right-white-background_right_part$suffix", flip => $is_flip_needed),
-        ]);
-
-        $w->signal_connect('size-allocate' => sub {
-                               my (undef, $requisition) = @_;
-                               state $width ||= $right_background[0]->get_pixbuf->get_width;
-                               $box->set_size_request($width, $requisition->height);
-                           });
-        $_->set_property('no-show-all', 1) foreach $selection_bar, $selection_arrow;
-        bless($w, 'Gtk2::MDV_Notebook');
-        add2hash($w, {
-            arrow_x         => $arrow_x,
-            layout          => $layout,
-            selection_arrow => $selection_arrow,
-            selection_bar   =>$selection_bar,
-        });
-    }
-    $w;
-}
-
-
-sub _gtk__Fixed {
-    my ($w, $opts, $_class, $_action) = @_;
-	
-    if (!$w) {
-	$w = Gtk2::Fixed->new;
-	$w->set_has_window(delete $opts->{has_window}) if exists $opts->{has_window};
-        _gtknew_handle_layout_children($w, $opts);
-    }
-    $w;
-}
-
-sub _gtk__Layout {
-    my ($w, $opts, $_class, $_action) = @_;
-	
-    if (!$w) {
-	$w = Gtk2::Layout->new;
-        _gtknew_handle_layout_children($w, $opts);
-    }
-    $w;
-}
-
-sub _gtknew_handle_layout_children {
-    my ($w, $opts) = @_;
-        $opts->{children} ||= [];
-        push @{$opts->{children}}, [ delete $opts->{child}, delete $opts->{x}, delete $opts->{y} ] if exists $opts->{child};
-        foreach (@{$opts->{children}}) {
-            $w->put(@$_);
-        }
-        delete $opts->{children};
-
-        if ($opts->{pixbuf_file}) {
-            my $pixbuf = if_($opts->{pixbuf_file}, gtknew('Pixbuf', file => delete $opts->{pixbuf_file}));
-            $w->signal_connect(
-                realize => sub {
-                    ugtk2::set_back_pixbuf($w, $pixbuf);
-                });
-        }
-}
-
-
-sub _gtk__Window { &_gtk_any_Window }
-sub _gtk__Dialog { &_gtk_any_Window }
-sub _gtk__Plug   { &_gtk_any_Window }
-sub _gtk_any_Window {
-    my ($w, $opts, $class) = @_;
-
-    if (!$w) {
-	if ($class eq 'Window') {
-	    $w = "Gtk2::$class"->new(delete $opts->{type} || 'toplevel');
-	} elsif ($class eq 'Plug') {
-	    $opts->{socket_id} or internal_error("cannot create a Plug without a socket_id");
-	    $w = "Gtk2::$class"->new(delete $opts->{socket_id});
-	} elsif ($class eq 'FileChooserDialog') {
-            my $action = delete $opts->{action} || internal_error("missing action for FileChooser");
-            $w = Gtk2::FileChooserDialog->new(delete $opts->{title}, delete $opts->{transient_for} || $::main_window,
-                                              $action, N("Cancel") => 'cancel', delete $opts->{button1} || N("Ok") => 'ok',
-                                          );
-	} else {
-	    $w = "Gtk2::$class"->new;
-	}
-
-	if ($::isInstall || $::set_dialog_hint) {
-	    $w->set_type_hint('dialog'); # for matchbox window manager
-	}
-
-	$w->set_modal(delete $opts->{modal}) if exists $opts->{modal};
-	$opts->{transient_for} ||= $::main_window if $::main_window;
-	$w->set_modal(1) if exists $opts->{transient_for};
-	$w->set_transient_for(delete $opts->{transient_for}) if exists $opts->{transient_for};
-	$w->set_border_width(delete $opts->{border_width}) if exists $opts->{border_width};
-	$w->set_shadow_type(delete $opts->{shadow_type}) if exists $opts->{shadow_type};
-	$w->set_position(delete $opts->{position_policy}) if exists $opts->{position_policy};
-	$w->set_default_size(delete $opts->{default_width} || -1, delete $opts->{default_height} || -1) if exists $opts->{default_width} || exists $opts->{default_height};
-	my $icon_no_error = $opts->{icon_no_error};
-	if (my $name = delete $opts->{icon} || delete $opts->{icon_no_error}) {
-	    if (my $f = _find_imgfile($name)) {
-		$w->set_icon(gtknew('Pixbuf', file => $f));
-	    } elsif (!$icon_no_error) {
-		internal_error("cannot find $name");
-	    }
-	}
-    }
-    $w->set_title(delete $opts->{title}) if exists $opts->{title};
-
-    if (my $child = delete $opts->{child}) {
-	$w->add($child);
-	$child->show;
-    }
-    $w;
-}
-
-my $previous_popped_and_reuse_window;
-
-sub destroy_previous_popped_and_reuse_window() {
-    $previous_popped_and_reuse_window or return;
-
-    $previous_popped_and_reuse_window->destroy;
-    $previous_popped_and_reuse_window = undef;
-}
-
-sub _gtk__MagicWindow {
-    my ($w, $opts) = @_;
-
-    my $pop_it = delete $opts->{pop_it} || !$::isWizard && !$::isEmbedded || $::WizardTable && do {
-	#- do not take into account the wizard banner
-        # FIXME!!!
-	any { !$_->isa('Gtk2::DrawingArea') && $_->visible } $::WizardTable->get_children;
-    };
-
-    my $pop_and_reuse = delete $opts->{pop_and_reuse} && $pop_it;
-    my $sub_child = delete $opts->{child};
-    my $provided_banner = delete $opts->{banner};
-
-    if ($pop_it && $provided_banner) {
-	$sub_child = gtknew('VBox', children => [ 0, $provided_banner, if_($sub_child, 1, $sub_child) ]);
-    } else {
-	$sub_child ||= gtknew('VBox');
-    }
-    if (!$pop_and_reuse) {
-	destroy_previous_popped_and_reuse_window();
-    }
-
-    if ($previous_popped_and_reuse_window && $pop_and_reuse) {
-	$w = $previous_popped_and_reuse_window;
-	$w->remove($w->child);
-
-	gtkadd($w, child => $sub_child);
-	%$opts = ();
-    } elsif ($pop_it) {
-	$opts->{child} = $sub_child;
-
-	$w = _create_Window($opts, '');
-	$previous_popped_and_reuse_window = $w if $pop_and_reuse;
-    } else {
-	if (!$::WizardWindow) {
-
-	    my $banner;
-	    if (!$::isEmbedded && !$::isInstall && $::Wizard_title) {
-		if (_find_imgfile($opts->{icon_no_error})) {
-		    $banner = Gtk2::Banner->new($opts->{icon_no_error}, $::Wizard_title);
-		} else { 
-		    log::l("ERROR: missing wizard banner $opts->{icon_no_error}");
-		}
-	    }
-	    $::WizardTable = gtknew('VBox', if_($banner, children_tight => [ $banner ]));
-
-	    if ($::isEmbedded) {
-		add2hash($opts, {
-		    socket_id => $::XID,
-		    child => $::WizardTable,
-		});
-		delete $opts->{no_Window_Manager};
-		$::Plug = $::WizardWindow = _gtk(undef, 'Plug', 'gtknew', $opts);
-		sync($::WizardWindow);
-	    } else {
-		add2hash($opts, {
-		    child => $::WizardTable,
-		});
-		$::WizardWindow = _create_Window($opts, 'special_center');
-	    }
-	} else {
-	    %$opts = ();
-	}
-
-	set_main_window_size($::WizardWindow);
-
-	$w = $::WizardWindow;
-     
-	gtkadd($::WizardTable, children_tight => [ $provided_banner ]) if $provided_banner;
-	gtkadd($::WizardTable, children_loose => [ $sub_child ]);
-    }
-    bless { 
-	real_window => $w, 
-	child => $sub_child, pop_it => $pop_it, pop_and_reuse => $pop_and_reuse,
-	if_($provided_banner, banner => $provided_banner),
-    }, 'mygtk2::MagicWindow';
-}
-
-# A standard About dialog. Used with:
-# my $w = gtknew('AboutDialog', ...);
-# $w->show_all;
-# $w->run;
-sub _gtk__AboutDialog {
-    my ($w, $opts) = @_;
-
-    if (!$w) {
-        $w = Gtk2::AboutDialog->new;
-        $w->signal_connect(response => sub { $_[0]->destroy });
-        $w->set_program_name(delete $opts->{name}) if exists $opts->{name};
-        $w->set_version(delete $opts->{version}) if exists $opts->{version};
-        $w->set_icon(gtknew('Pixbuf', file => delete $opts->{icon})) if exists $opts->{icon};
-        $w->set_logo(gtknew('Pixbuf', file => delete $opts->{logo})) if exists $opts->{logo};
-        $w->set_copyright(delete $opts->{copyright}) if exists $opts->{copyright};
-        $w->set_url_hook(sub {
-            my (undef, $url) = @_;
-            run_program::raw({ detach => 1 }, 'www-browser', $url);
-        });
-        $w->set_email_hook(sub {
-            my (undef, $url) = @_;
-            run_program::raw({ detach => 1 }, 'www-browser', $url);
-        });
-
-        if (my $url = delete $opts->{website}) {
-            $url =~ s/^https:/http:/; # Gtk2::About doesn't like "https://..." like URLs
-            $w->set_website($url);
-        }
-        $w->set_license(delete $opts->{license}) if exists $opts->{license};
-        $w->set_wrap_license(delete $opts->{wrap_license}) if exists $opts->{wrap_license};
-        $w->set_comments(delete $opts->{comments}) if exists $opts->{comments};
-        $w->set_website_label(delete $opts->{website_label}) if exists $opts->{website_label};
-        $w->set_authors(delete $opts->{authors}) if exists $opts->{authors};
-        $w->set_documenters(delete $opts->{documenters}) if exists $opts->{documenters};
-        $w->set_translator_credits(delete $opts->{translator_credits}) if exists $opts->{translator_credits};
-        $w->set_artists(delete $opts->{artists}) if exists $opts->{artists};
-        $w->set_modal(delete $opts->{modal}) if exists $opts->{modal};
-        $w->set_transient_for(delete $opts->{transient_for}) if exists $opts->{transient_for};
-        $w->set_position(delete $opts->{position_policy}) if exists $opts->{position_policy};
-    }
-    $w;
-}
-
-sub _gtk__FileSelection {
-    my ($w, $opts) = @_;
-
-    if (!$w) {
-	$w = Gtk2::FileSelection->new(delete $opts->{title} || '');
-	gtkset($w->ok_button, %{delete $opts->{ok_button}}) if exists $opts->{ok_button};
-	gtkset($w->cancel_button, %{delete $opts->{cancel_button}}) if exists $opts->{cancel_button};
-    }
-    $w;
-}
-
-sub _gtk__FileChooserDialog    { &_gtk_any_Window }
-
-sub _gtk__FileChooser {
-    my ($w, $opts) = @_;
-
-    #- no nice way to have a {file_ref} on a FileChooser since selection_changed only works for browsing, not file/folder creation
-
-    if (!$w) {
-	my $action = delete $opts->{action} || internal_error("missing action for FileChooser");
-	$w = Gtk2::FileChooserWidget->new($action);
-
-	my $file = $opts->{file} && delete $opts->{file};
-
-	if (my $dir = delete $opts->{directory} || $file && dirname($file)) {
-	    $w->set_current_folder($dir);
-	}
-	if ($file) {
-	    if ($action =~ /save|create/) {
-		$w->set_current_name(basename($file));
-	    } else {
-		$w->set_filename($file);
-	    }
-	}
-    }
-    $w;
-}
-
-sub _gtk__VPaned { &_gtk_any_Paned }
-sub _gtk__HPaned { &_gtk_any_Paned }
-sub _gtk_any_Paned {
-    my ($w, $opts, $class, $action) = @_;
-
-    if (!$w) {
-	$w = "Gtk2::$class"->new;
-	$w->set_border_width(delete $opts->{border_width}) if exists $opts->{border_width};
-        $w->set_position(delete $opts->{position}) if exists $opts->{position};
-    } elsif ($action eq 'gtkset') {
-	$_->destroy foreach $w->get_children;
-    }
-
-    foreach my $opt (qw(resize1 shrink1 resize2 shrink2)) {
-        $opts->{$opt} = 1 if !defined $opts->{$opt};
-    }
-    $w->pack1(delete $opts->{child1}, delete $opts->{resize1}, delete $opts->{shrink1});
-    $w->pack2(delete $opts->{child2}, delete $opts->{resize2}, delete $opts->{shrink2});
-    $w;
-}
-
-sub _gtk__VBox { &_gtk_any_Box }
-sub _gtk__HBox { &_gtk_any_Box }
-sub _gtk_any_Box {
-    my ($w, $opts, $class, $action) = @_;
-
-    if (!$w) {
-	$w = "Gtk2::$class"->new;
-	$w->set_homogeneous(delete $opts->{homogenous}) if exists $opts->{homogenous};
-	$w->set_spacing(delete $opts->{spacing}) if exists $opts->{spacing};
-	$w->set_border_width(delete $opts->{border_width}) if exists $opts->{border_width};
-    } elsif ($action eq 'gtkset') {
-	$_->destroy foreach $w->get_children;
-    }
-
-    _gtknew_handle_children($w, $opts);
-    $w;
-}
-
-sub _gtk__VButtonBox { &_gtk_any_ButtonBox }
-sub _gtk__HButtonBox { &_gtk_any_ButtonBox }
-sub _gtk_any_ButtonBox {
-    my ($w, $opts, $class, $action) = @_;
-
-    if (!$w) {
-	$w = "Gtk2::$class"->new;
-	$w->set_homogeneous(delete $opts->{homogenous}) if exists $opts->{homogenous};
-	$w->set_border_width(delete $opts->{border_width}) if exists $opts->{border_width};
-	$w->set_spacing(delete $opts->{spacing}) if exists $opts->{spacing};
-	$w->set_layout(delete $opts->{layout} || 'spread');
-    } elsif ($action eq 'gtkset') {
-	$_->destroy foreach $w->get_children;
-    }
-
-    _gtknew_handle_children($w, $opts);
-    $w;
-}
-
-sub _gtk__Notebook {
-    my ($w, $opts) = @_;
-
-    if (!$w) {
-	$w = Gtk2::Notebook->new;
-	$w->set_property('show-tabs', delete $opts->{show_tabs}) if exists $opts->{show_tabs};
-	$w->set_property('show-border', delete $opts->{show_border}) if exists $opts->{show_border};
-    }
-
-    if (exists $opts->{children}) {
-	foreach (group_by2(@{delete $opts->{children}})) {
-	    my ($title, $page) = @$_;
-	    $w->append_page($page, $title);
-	    $page->show;
-	    $title->show;
-	}
-    }
-    $w;
-}
-
-sub _gtk__Table {
-    my ($w, $opts) = @_;
-
-    if (!$w) {
-	add2hash_($opts, { xpadding => 5, ypadding => 0, border_width => $::isInstall ? 3 : 10 });
-
-	$w = Gtk2::Table->new(0, 0, delete $opts->{homogeneous} || 0);
-	$w->set_col_spacings(delete $opts->{col_spacings} || 0);
-	$w->set_row_spacings(delete $opts->{row_spacings} || 0);
-	$w->set_border_width(delete $opts->{border_width});
-	$w->{$_} = delete $opts->{$_} foreach 'xpadding', 'ypadding', 'mcc';
-    }
-
-    each_index {
-	my ($i, $l) = ($::i, $_);
-	each_index {
-	    my $j = $::i;
-	    if ($_) {
-		ref $_ or $_ = Gtk2::WrappedLabel->new($_);
-                $w->attach($_, $j, $j + 1, $i, $i + 1,
-                           $j != $#$l && !$w->{mcc} ?
-			     ('fill', 'fill', $w->{xpadding}, $w->{ypadding}) :
-                               (['expand', 'fill'], ref($_) eq 'Gtk2::ScrolledWindow' || $_->get_data('must_grow') ?
-                                 ['expand', 'fill'] : [], 0, 0));
-		$_->show;
-	    }
-	} @$l;
-    } @{delete $opts->{children} || []};
-
-    $w;
-}
-
-sub _gtk_any_simple {
-    my ($w, $_opts, $class) = @_;
-
-    $w ||= "Gtk2::$class"->new;
-}
-
-sub _gtknew_handle_children {
-    my ($w, $opts) = @_;
-
-    my @child = exists $opts->{children_tight} ? map { [ 0, $_ ] } @{delete $opts->{children_tight}} :
-                exists $opts->{children_loose} ? map { [ 1, $_ ] } @{delete $opts->{children_loose}} :
-	        exists $opts->{children} ? group_by2(@{delete $opts->{children}}) : 
-		exists $opts->{children_centered} ? 
-		  ([ 1, gtknew('VBox') ], (map { [ 0, $_ ] } @{delete $opts->{children_centered}}), [ 1, gtknew('VBox') ]) :
-		  ();
-
-    my $padding = delete $opts->{padding};
-
-    foreach (@child) {
-	my ($fill, $child) = @$_;
-	$fill eq '0' || $fill eq '1' || $fill eq 'fill' || $fill eq 'expand' or internal_error("odd {children} parameter must be 0 or 1 (got $fill)");
-	ref $child or $child = Gtk2::WrappedLabel->new($child);
-	my $expand = $fill && $fill ne 'fill' ? 1 : 0;
-	$w->pack_start($child, $expand, $fill, $padding || 0);
-	$child->show;
-    }
-}
-
-#- this magic function redirects method calls:
-#- * default is to redirect them to the {child}
-#- * if the {child} doesn't handle the method, we try with the {real_window}
-#-   (eg : add_accel_group set_position set_default_size
-#- * a few methods are handled specially
-my %for_real_window = map { $_ => 1 } qw(show_all size_request);
-sub mygtk2::MagicWindow::AUTOLOAD {
-    my ($w, @args) = @_;
-
-    my ($meth) = $mygtk2::MagicWindow::AUTOLOAD =~ /mygtk2::MagicWindow::(.*)/;
-
-    my ($s1, @s2) = $meth eq 'show'
-              ? ('real_window', 'banner', 'child') :
-            $meth eq 'destroy' || $meth eq 'hide' ?
-	      ($w->{pop_it} ? 'real_window' : ('child', 'banner')) :
-            $meth eq 'get' && $args[0] eq 'window-position' ||
-	    $for_real_window{$meth} ||
-            !$w->{child}->can($meth)
-	      ? 'real_window'
-	      : 'child';
-
-#-    warn "mygtk2::MagicWindow::$meth", first($w =~ /HASH(.*)/), " on $s1 @s2 (@args)\n";
-
-    $w->{$_} && $w->{$_}->$meth(@args) foreach @s2;
-    $w->{$s1}->$meth(@args);
-}
-
-my $enable_quit_popup;
-sub enable_quit_popup {
-    my ($bool) = @_;
-    $enable_quit_popup = $bool;
-}
-
-state $in_callback;
-sub quit_popup() {
-   return if !$enable_quit_popup;
-   if (!$in_callback) {
-	$in_callback = 1;
-	my $_guard = before_leaving { undef $in_callback };
-	require ugtk2;
-	my $w = ugtk2->new(N("Confirmation"), grab => 1);
-	ugtk2::_ask_okcancel($w, N("Are you sure you want to quit?"), N("Quit"), N("Cancel"));
-	my $ret = ugtk2::main($w);
-	return 1 if !$ret;
-    }
-}
-
-sub quit_callback { 
-    my ($w) = @_;
-    
-    return 1 if quit_popup();
-    if ($::isWizard) {
-	$w->destroy; 
-	die 'wizcancel';
-    } else { 
-	if (Gtk2->main_level) {
-	    Gtk2->main_quit;
-	} else {
-	    # block window deletion if not in main loop (eg: while starting the GUI)
-	    return 1;
-	}
-    } 
-}
-
-sub _create_Window {
-    my ($opts, $special_center) = @_;
-
-    my $no_Window_Manager = exists $opts->{no_Window_Manager} ? delete $opts->{no_Window_Manager} : !$::isStandalone;
-
-    add2hash($opts, {
-	if_(!$::isInstall && !$::isWizard, border_width => 5),
-
-	#- policy: during install, we need a special code to handle the weird centering, see below
-	position_policy => $special_center ? 'none' : 
-	  $no_Window_Manager ? 'center-always' : 'center-on-parent',
-
-	if_($::isInstall, position => [
-	    $::stepswidth + ($::o->{windowwidth} - $::real_windowwidth) / 2, 
-	    ($::o->{windowheight} - $::real_windowheight) / 2,
-	]),
-    });
-    my $w = _gtk(undef, 'Window', 'gtknew', $opts);
-
-    #- when the window is closed using the window manager "X" button (or alt-f4)
-    $w->signal_connect(delete_event => \&quit_callback);
-
-    if ($::isInstall && !$::isStandalone) {
-	require install::gtk; #- for perl_checker
-	install::gtk::handle_unsafe_mouse($::o, $w);
-	$w->signal_connect(key_press_event => \&install::gtk::special_shortcuts);
-
-	#- force center at a weird position, this can't be handled by position_policy
-	#- because center-* really are window manager hints for centering, whereas we want
-	#- to center the main window in the right part of the screen
-	my ($wi, $he);
-	$w->signal_connect(size_allocate => sub {
-	    my (undef, $event) = @_;
-	    my @w_size = $event->values;
-
-	    # ignore bogus sizing events:
-	    return if $w_size[2] < 5;
-	    return if $w_size[2] == $wi && $w_size[3] == $he; #BUG
-	    (undef, undef, $wi, $he) = @w_size;
-
-            $w->move(max(0, $::rootwidth - ($::o->{windowwidth} + $wi) / 2), 
-		     max(0, ($::o->{windowheight} - $he) / 2));
-	}) if $special_center;
-    }
-
-    $w->present if $no_Window_Manager;
-
-    $w;
-}
-
-sub _find_imgfile {
-    my ($name) = @_;
-
-    if ($name =~ m|/| && -f $name) {
-	$name;
-    } else {
-	foreach my $path (_icon_paths()) {
-	    foreach ('', '.png', '.xpm', '.jpg') {
-		my $file = "$path/$name$_";
-		-f $file and return $file;
-	    }
-	}
-    }
-}
-
-# _text_insert() can be used with any of choose one of theses styles:
-# - no tags:
-#   _text_insert($textview, "My text..");
-# - anonymous tags:
-#   _text_insert($textview, [ [ 'first text',  { 'foreground' => 'blue', 'background' => 'green', ... } ],
-#			        [ 'second text' ],
-#		                [ 'third', { 'font' => 'Serif 15', ... } ],
-#                               ... ]);
-# - named tags:
-#   $textview->{tags} = {
-#                        'blue_green' => { 'foreground' => 'blue', 'background' => 'green', ... },
-#                        'big_font' => { 'font' => 'Serif 35', ... },
-#                       }
-#   _text_insert($textview, [ [ 'first text',  'blue_green' ],
-#		                [ 'second', 'big_font' ],
-#                               ... ]);
-# - mixed anonymous and named tags:
-#   $textview->{tags} = {
-#                        'blue_green' => { 'foreground' => 'blue', 'background' => 'green', ... },
-#                        'big_font' => { 'font' => 'Serif 35', ... },
-#                       }
-#   _text_insert($textview, [ [ 'first text',  'blue_green' ],
-#			        [ 'second text' ],
-#		                [ 'third', 'big_font' ],
-#		                [ 'fourth', { 'font' => 'Serif 15', ... } ],
-#                               ... ]);
-sub _text_insert {
-    my ($textview, $t, %opts) = @_;
-    my $buffer = $textview->get_buffer;
-    $buffer->{tags} ||= {};
-    $buffer->{gtk_tags} ||= {};
-    my $gtk_tags = $buffer->{gtk_tags};
-    my $tags = $buffer->{tags};
-    if (ref($t) eq 'ARRAY') {
-        if (!$opts{append}) {
-            $buffer->set_text('');
-            $textview->{anchors} = [];
-        }
-        foreach my $token (@$t) {
-            my ($item, $tag) = @$token;
-            my $iter1 = $buffer->get_end_iter;
-            if (ref($item) =~ /^Gtk2::Gdk::Pixbuf/) {
-                $buffer->insert_pixbuf($iter1, $item);
-                next;
-            }
-            if (ref($item) =~ /^Gtk2::/) {
-                my $anchor = $buffer->create_child_anchor($iter1);
-                $textview->add_child_at_anchor($item, $anchor);
-                $textview->{anchors} ||= [];
-                push @{$textview->{anchors}}, $anchor;
-                next;
-            }
-            if ($tag) {
-                if (ref($tag)) {
-                    # use anonymous tags
-                    $buffer->insert_with_tags($iter1, $item, $buffer->create_tag(undef, %$tag));
-                } else {
-                    # fast text insertion:
-                    # since in some contexts (eg: localedrake, rpmdrake), we use quite a lot of identical tags,
-                    # it's much more efficient and less memory pressure to use named tags
-                    $gtk_tags->{$tag} ||= $buffer->create_tag($tag, %{$tags->{$token->[1]}});
-                    $buffer->insert_with_tags($iter1, $item, $gtk_tags->{$tag});
-                }
-            } else {
-                $buffer->insert($iter1, $item);
-            }
-        }
-    } else {
-        if ($opts{append}) {
-            $buffer->insert($buffer->get_end_iter, $t);
-        } else {
-            $textview->{anchors} = [];
-            $buffer->set_text($t);
-        }
-    }
-    $textview->{to_bottom}->() if $textview->{to_bottom};
-
-    #- the following line is needed to move the cursor to the beginning, so that if the
-    #- textview has a scrollbar, it will not scroll to the bottom when focusing (#3633)
-    $buffer->place_cursor($buffer->get_start_iter);
-    $textview->set_wrap_mode($opts{wrap_mode} || 'word');
-    $textview->set_editable($opts{editable} || 0);
-    $textview->set_cursor_visible($opts{visible} || 0);
-    $textview;
-}
-
-sub _allow_scroll_TextView_to_bottom {
-    my ($scrolledWindow, $textView) = @_;
-
-    $textView->get_buffer->create_mark('end', $textView->get_buffer->get_end_iter, 0);
-    sub {
-	my ($o_force) = @_;
-	my $adjustment = $scrolledWindow->get_vadjustment;
-	if ($o_force || $adjustment->page_size + $adjustment->value == $adjustment->upper) {
-	    flush(); #- one must flush before scrolling to end, otherwise the text just added *may* not be taken into account correctly, and so it doesn't really scroll to end
-	    $textView->scroll_to_mark($textView->get_buffer->get_mark('end'), 0, 1, 0, 1);
-	}
-    };
-}
-
-sub asteriskize {
-    my ($label) = @_;
-    "\x{2022} " . $label;
-}
-
-sub get_main_window_size() {
-    $::real_windowwidth ? ($::real_windowwidth, $::real_windowheight) : $::isWizard ? (540, 360) : (600, 400);
-}
-
-# in order to workaround infamous 6 years old gnome bug #101968:
-sub get_label_width() {
-    first(mygtk2::get_main_window_size()) - 55 - $left_padding;
-}
-
-sub set_main_window_size {
-    my ($window) = @_;
-    my ($width, $height) = get_main_window_size();
-    $window->set_size_request($width, $height);
-}
-
-my @icon_paths;
-sub add_icon_path { push @icon_paths, @_ }
-sub _icon_paths() {
-   (@icon_paths, (exists $ENV{SHARE_PATH} ? ($ENV{SHARE_PATH}, "$ENV{SHARE_PATH}/icons", "$ENV{SHARE_PATH}/libDrakX/pixmaps") : ()),
-    "/usr/lib/libDrakX/icons", "pixmaps", 'data/icons', 'data/pixmaps', 'standalone/icons', '/usr/share/rpmdrake/icons');
-}  
-
-sub main {
-    my ($window, $o_verif) = @_;
-    my $destroyed;
-    $window->signal_connect(destroy => sub { $destroyed = 1 });
-    $window->show;
-    do { Gtk2->main } while (!$destroyed && $o_verif && !$o_verif->());
-    may_destroy($window);
-    flush();
-}
-
-sub sync {
-    my ($window) = @_;
-    $window->show;
-    flush();
-}
-
-sub flush() { 
-    Gtk2->main_iteration while Gtk2->events_pending;
-}
-
-sub enable_sync_flush {
-    my ($w) = @_;
-    $w->signal_connect(expose_event => sub { $w->{displayed} = 1; 0 });
-}
-
-sub sync_flush {
-    my ($w) = @_;
-    # hackish :-(
-    mygtk2::sync($w) while !$w->{displayed};
-}
-
-
-sub register_main_window {
-    my ($w) = @_;
-    push @::main_windows, $::main_window = $w;
-}
-
-sub may_destroy {
-    my ($w) = @_;
-    return if !$w;
-    @::main_windows = difference2(\@::main_windows, [ $w->{real_window} ]);
-    if ($::main_window eq $w->{real_window}) {
-        undef $::main_window;
-        $::main_window = $::main_windows[-1];
-    }
-    $w->destroy;
-}
-
-sub root_window() {
-    state $root;
-    $root ||= Gtk2::Gdk->get_default_root_window;
-}
-
-sub rgb2color {
-    my ($r, $g, $b) = @_;
-    my $color = Gtk2::Gdk::Color->new($r, $g, $b);
-    root_window()->get_colormap->rgb_find_color($color);
-    $color;
-}
-
-sub set_root_window_background {
-    my ($r, $g, $b) = @_;
-    my $root = root_window();
-    my $gc = Gtk2::Gdk::GC->new($root);
-    my $color = rgb2color($r, $g, $b);
-    $gc->set_rgb_fg_color($color);
-    set_root_window_background_with_gc($gc);
-}
-
-sub set_root_window_background_with_gc {
-    my ($gc) = @_;
-    my $root = root_window();
-    my ($w, $h) = $root->get_size;
-    $root->set_background($gc->get_values->{foreground});
-    $root->draw_rectangle($gc, 1, 0, 0, $w, $h);
-}
-
-sub _new_alpha_pixbuf {
-    my ($pixbuf) = @_;
-    my ($height, $width) = ($pixbuf->get_height, $pixbuf->get_width);
-    my $new_pixbuf = Gtk2::Gdk::Pixbuf->new('rgb', 1, 8, $width, $height);
-    $new_pixbuf->fill(0x00000000); # transparent white
-    $width, $height, $new_pixbuf;
-}
-
-sub _pixbuf_render_alpha {
-    my ($pixbuf, $alpha_threshold) = @_;
-    my ($width, $height, $new_pixbuf) = _new_alpha_pixbuf($pixbuf);
-    $pixbuf->composite($new_pixbuf, 0, 0, $width, $height, 0, 0, 1, 1, 'bilinear', $alpha_threshold);
-    $new_pixbuf;
-}
-
-sub pixmap_from_pixbuf {
-    my ($widget, $pixbuf) = @_;
-    my $window = $widget->window or internal_error("you can't use this function if the widget is not realised");
-    my ($width, $height) = ($pixbuf->get_width, $pixbuf->get_height);
-    my $pixmap = Gtk2::Gdk::Pixmap->new($window, $width, $height, $window->get_depth);
-    $pixbuf->render_to_drawable($pixmap, $widget->style->fg_gc('normal'), 0, 0, 0, 0, $width, $height, 'max', 0, 0);
-    $pixmap;
-}
-
-sub import_style_ressources() {
-    if (!$::isInstall) {
-        Gtk2::Rc->parse_string(scalar cat_('/usr/share/libDrakX/themes-galaxy.rc')); # FIXME DEBUG
-    }
-}
-
-sub text_direction_rtl() {
-    Gtk2::Widget->get_default_direction eq 'rtl';
-}
-
-sub _get_weakness_icon {
-    my ($password_weakness) = @_;
-    my %weakness_icon = (
-        1 => gtknew('Pixbuf', file => 'security-low'),
-        2 => gtknew('Pixbuf', file => 'security-low'),
-        3 => gtknew('Pixbuf', file => 'security-medium'),
-        4 => gtknew('Pixbuf', file => 'security-strong'),
-        5 => gtknew('Pixbuf', file => 'security-strong'));
-    my $weakness_icon = $weakness_icon{$password_weakness} || return undef;
-    $weakness_icon;
-}
-
-sub _get_weakness_tooltip {
-    my ($password_weakness) = @_;
-    my %weakness_tooltip = (
-        1 => N("Password is trivial to guess"),
-        2 => N("Password is trivial to guess"),
-        3 => N("Password should be resistant to basic attacks"),
-        4 => N("Password seems secure"),
-        5 => N("Password seems secure"));
-    my $weakness_tooltip = $weakness_tooltip{$password_weakness} || return undef;
-    return $weakness_tooltip;
-}
-
-package Gtk2::MDV_Notebook; # helper functions for installer & mcc
-our @ISA = qw(Gtk2::Widget);
-
-sub hide_selection {
-    my ($w) = @_;
-    $_->hide foreach $w->{selection_bar}, $w->{selection_arrow};
-}
-
-sub move_selection {
-    my ($w, $label) = @_;
-    my $layout = $w->{layout};
-    $layout->{arrow_ydiff} ||=
-      ($w->{selection_arrow}->get_pixbuf->get_height - $w->{selection_bar}->get_pixbuf->get_height)/2;
-    my $bar_y = $label->allocation->y - ($w->{selection_bar}->get_pixbuf->get_height - $label->allocation->height)/2;
-    $layout->move($w->{selection_bar}, 0, $bar_y);
-    $layout->move($w->{selection_arrow}, $w->{arrow_x}, $bar_y - $layout->{arrow_ydiff}); # arrow is higer
-    $_->show foreach $w->{selection_bar}, $w->{selection_arrow};
-}
-
-1;