package ugtk2;

use diagnostics;
use strict;
use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $wm_icon $force_center_at_pos $force_center $force_focus $grab $pop_it $border); #- leave it on one line, for automatic removal of the line at package creation
use lang;

$::o = { locale => lang::read(1) } if !$::isInstall;

@ISA = qw(Exporter);
%EXPORT_TAGS = (
    wrappers => [ qw(gtkadd gtkadd_widget gtkappend gtkappend_page gtkappenditems gtkcombo_setpopdown_strings gtkdestroy
                     gtkentry gtkflush gtkhide gtkmodify_font gtkmove gtkpack gtkpack2 gtkpack2_
                     gtkpack2__ gtkpack_ gtkpack__ gtkpowerpack gtkput gtkradio gtkresize gtkroot
                     gtkset_active gtkset_border_width gtkset_editable gtkset_justify gtkset_alignment gtkset_layout gtkset_line_wrap
                     gtkset_markup gtkset_modal gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_name
                     gtkset_property gtkset_relief gtkset_selectable gtkset_sensitive gtkset_shadow_type gtkset_size_request
                     gtkset_text gtkset_tip gtkset_visibility gtksetstyle gtkshow gtksignal_connect gtksize gtktext_append
                     gtktext_insert ) ],

    helpers => [ qw(add2notebook add_icon_path fill_tiled fill_tiled_coords gtkcolor gtkcreate_img
                    gtkcreate_pixbuf gtkfontinfo gtkset_background n_line_size set_back_pixbuf set_back_pixmap
                    string_size string_width string_height wrap_paragraph) ],

    create => [ qw(create_adjustment create_box_with_title create_dialog create_factory_menu create_factory_popup_menu
                   create_hbox create_hpaned create_menu create_notebook create_okcancel create_packtable
                   create_scrolled_window create_vbox create_vpaned _create_dialog gtkcreate_frame) ],

    ask => [ qw(ask_browse_tree_info ask_browse_tree_info_given_widgets ask_dir ask_from_entry ask_okcancel ask_warn
                ask_yesorno ) ],
    dialogs => [ qw(err_dialog info_dialog warn_dialog) ],

);
$EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
@EXPORT_OK = map { @$_ } values %EXPORT_TAGS;

use c;
use log;
use common;

use Gtk2;
use Gtk2::Gdk::Keysyms;

unless ($::no_ugtk_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;
    c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains;
    $::need_utf8_i18n = 1;
}
Gtk2->croak_execeptions if (!$::no_ugtk_init || $::isInstall) && 0.95 < $Gtk2::VERSION;


$border = 5;


# -=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---
#                 wrappers
#
# Functional-style wrappers to existing Gtk functions; allows to program in
# a more functional way, and especially, first, to avoid using temp
# variables, and second, to "see" directly in the code the user interface
# you're building.

sub gtkdestroy                { $_[0] and $_[0]->destroy }
sub gtkflush()                { Gtk2->main_iteration while Gtk2->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 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_selectable         { $_[0]->set_selectable($_[1]); $_[0] }
sub gtkset_justify            { $_[0]->set_justify($_[1]); $_[0] }
sub gtkset_alignment          { $_[0]->set_alignment($_[1], $_[2]); $_[0] }
sub gtkset_layout             { $_[0]->set_layout($_[1]); $_[0] }
sub gtkset_modal              { $_[0]->set_modal($_[1]); $_[0] }
sub gtkset_mousecursor_normal { gtkset_mousecursor('left-ptr', @_) }
sub gtkset_mousecursor_wait   { gtkset_mousecursor('watch', @_) }
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_size_request       { $_[0]->set_size_request($_[1], $_[2]); $_[0] }
sub gtkshow                   { $_[0]->show; $_[0] }
sub gtksize                   { $_[0]->size($_[1], $_[2]); $_[0] }
sub gtkset_markup             { $_[0]->set_markup($_[1]); $_[0] }
sub gtkset_line_wrap          { $_[0]->set_line_wrap($_[1]); $_[0] }

sub gtkadd {
    my $w = shift;
    foreach my $l (@_) {
	ref $l or $l = Gtk2::WrappedLabel->new($l);
	$w->add(gtkshow($l));
    }
    $w
}

sub gtkadd_widget {
    my $sg = shift;
    map {
        my $l = $_;
        ref $l or $l = Gtk2::WrappedLabel->new($l);
        $sg->add_widget($l);
        $l;
    } @_;
}

sub gtkappend {
    my $w = shift;
    foreach my $l (@_) {
	ref $l or $l = Gtk2::WrappedLabel->new($l);
	$w->append(gtkshow($l));
    }
    $w
}

sub gtkappenditems {
    my $w = shift;
    $_->show foreach @_;
    $w->append_items(@_);
    $w
}

# append page to a notebook
sub gtkappend_page {
    my ($notebook, $page, $o_title) = @_;
    $notebook->append_page($page, $o_title);
    $notebook;
}

sub gtkentry {
    my ($text) = @_;
    my $e = Gtk2::Entry->new;
    $text and $e->set_text($text);
    $e;
}

sub gtksetstyle { 
    my ($w, $s) = @_;
    $w->set_style($s);
    $w;
}

sub gtkradio {
    my $def = shift;
    my $radio;
    map { gtkset_active($radio = Gtk2::RadioButton->new_with_label($radio ? $radio->get_group : undef, $_), $_ eq $def) } @_;
}

sub gtkroot() {
    my $root if 0;
    $root ||= Gtk2::Gdk->get_default_root_window;
}

sub gtkset_text {
    my ($w, $s) = @_;
    $w->set_text($s);
    $w;
}

sub gtkcombo_setpopdown_strings {
    my $w = shift;
    $w->set_popdown_strings(@_);
    $w;
}

sub gtkset_mousecursor {
    my ($type, $w) = @_;
    ($w || gtkroot())->set_cursor(Gtk2::Gdk::Cursor->new($type));
}

sub gtksignal_connect {
    my $w = shift;
    $w->signal_connect(@_);
    $w;
}

sub gtkset_name {
    my ($widget, $name) = @_;
    $widget->set_name($name);
    $widget;
}


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 @attributes_list = qw(expand fill padding pack_end);
    my $default_attrs = {};
    if (ref($_[0]) eq 'HASH') {
	$default_attrs = shift;
    } elsif (!ref($_[0])) {
	foreach (@attributes_list) {
	    ref($_[0]) and last;
	    $default_attrs->{$_} = shift;
	}
    }
    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, $attrs);
	ref($_[0]) eq 'HASH' || ref($_[0]) eq 'ARRAY' and $attrs = shift;
	foreach (@attributes_list) {
	    if (($default_attrs->{$_} || '') eq 'arg') {
		ref($_[0]) and die "error in packing definition\n";
		$attr{$_} = shift;
		ref($attrs) eq 'ARRAY' and shift @$attrs;
	    } elsif (ref($attrs) eq 'HASH' && defined($attrs->{$_})) {
		$attr{$_} = $attrs->{$_};
	    } elsif (ref($attrs) eq 'ARRAY') {
		$attr{$_} = shift @$attrs;
	    } elsif (defined($default_attrs->{$_})) {
		$attr{$_} = int $default_attrs->{$_};
	    } else {
		$attr{$_} = 0;
	    }
	}
	#- Get and pack the widget (create it if necessary to  a label...)
	my $widget = ref($_[0]) ? shift : Gtk2::WrappedLabel->new(shift);
	my $pack_call = 'pack_' . ($attr{pack_end} ? 'end' : 'start');
	$box->$pack_call($widget, $attr{expand}, $attr{fill}, $attr{padding});
	$widget->show;
    }
    return $box;
}

sub gtktreeview_children {
    my ($model, $iter) = @_;
    my @l;
    $model && $iter or return;
    for (my $p = $model->iter_children($iter); $p; $p = $model->iter_next($p)) {
	push @l, $p;
    }
    @l;
}



# -=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---
#                 create
#
# Helpers that allow omitting common operations on common widgets
# (e.g. create widgets with good default properties)

sub create_pixbutton {
    my ($label, $pix, $reverse_order) = @_;
    my @label_and_pix = (0, $label, if_($pix, 0, $pix));
    gtkadd(Gtk2::Button->new,
	   gtkpack_(Gtk2::HBox->new(0, 3),
		    1, "",
		    $reverse_order ? reverse(@label_and_pix) : @label_and_pix,
		    1, ""));
}

sub create_adjustment {
    my ($val, $min, $max) = @_;
    Gtk2::Adjustment->new($val, $min, $max + 1, 1, ($max - $min + 1) / 10, 1);
}

sub create_scrolled_window {
    my ($W, $o_policy, $o_viewport_shadow) = @_;
    my $w = Gtk2::ScrolledWindow->new(undef, undef);
    $w->set_policy($o_policy ? @$o_policy : ('automatic', 'automatic'));
    if (member(ref($W), qw(Gtk2::Layout Gtk2::Text Gtk2::TextView Gtk2::TreeView))) {
	$w->add($W)
    } else {
	$w->add_with_viewport($W);
    }
    $o_viewport_shadow and gtkset_shadow_type($w->child, $o_viewport_shadow);
    $W->can('set_focus_vadjustment') and $W->set_focus_vadjustment($w->get_vadjustment);
    $W->set_left_margin(6) if ref($W) =~ /Gtk2::TextView/;
    $W->show;
    if (ref($W) =~ /Gtk2::TextView|Gtk2::TreeView/) {
    	gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'in'), $w)
    } else {
	$w
    }
}

sub n_line_size {
    my ($nbline, $type, $widget) = @_;
    my $spacing = ${{ text => 3, various => 17 }}{$type};
    my %fontinfo = gtkfontinfo($widget);
    round($nbline * ($fontinfo{ascent} + $fontinfo{descent} + $spacing) + 8);
}

sub create_box_with_title {
    my ($o, @l) = @_;

    my $nbline = sum(map { round(length($_) / 60 + 1/2) } map { split "\n" } @l);
    my $box = Gtk2::VBox->new(0,0);
    if ($nbline == 0) {
	$o->{box_size} = 0;
	return $box;
    }
    $o->{box_size} = n_line_size($nbline, 'text', $box);
    if (@l <= 2 && $nbline > 4) {
	$o->{icon} && !$::isWizard and 
	  eval { gtkpack__($box, gtkset_border_width(gtkpack_(Gtk2::HBox->new(0,0), 1, gtkcreate_img($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 = Gtk2::TextView->new;
	$wtext->set_left_margin(3);
	$wtext->can_focus($has_scroll);
	$wtext->signal_connect(button_press_event => sub { 1 }); #- disable selecting text and popping the contextual menu (GUI team says it's *horrible* to be able to do select text!)
	chomp(my $text = join("\n", @l));
	my $scroll = create_scrolled_window(gtktext_insert($wtext, $text));
     my $width = 400;
     $scroll->signal_connect(realize => sub {
                                my $layout = $wtext->create_pango_layout($text);
                                $layout->set_width(($width - 10) * Gtk2::Pango->scale);
                                $wtext->set_size_request($width,  min(200, ($layout->get_pixel_size)[1] + 10));
                                $scroll->set_size_request($width, min(200, ($layout->get_pixel_size)[1] + 10));
                                $o->{rwindow}->queue_resize;
                            });
     $scroll->set_size_request($width, 200);
	gtkpack_($box, $o->{box_allow_grow} || 0, $scroll);
    } else {
	my $a = !$::no_separator;
	undef $::no_separator;
     my $new_label = sub {
         my ($txt) = @_;
         my $w = ref($txt) ? $txt : Gtk2::WrappedLabel->new($txt);
         gtkset_name($w, "Title");
     };
	if ($o->{icon} && (!$::isWizard || $::isInstall)) {
	    gtkpack__($box,
		      gtkpack_(Gtk2::HBox->new(0,0),
			       0, gtkset_size_request(Gtk2::VBox->new(0,0), 15, 0),
			       0, eval { gtkcreate_img($o->{icon}) },
			       0, gtkset_size_request(Gtk2::VBox->new(0,0), 15, 0),
			       1, gtkpack_($o->{box_title} = Gtk2::VBox->new(0,0),
					   1, Gtk2::HBox->new(0,0),
					   (map {
					       my $w = $new_label->($_);
					       $::isWizard and $w->set_justify("left");
					       (0, $w);
					   } @l),
					   1, Gtk2::HBox->new(0,0),
					  )
			      ),
		      if_($a, Gtk2::HSeparator->new)
		     )
	} else {
	    gtkpack__($box,
		      if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 10)),
		      (map {
			  my $w = $new_label->($_);
			  $::isWizard ? gtkpack__(Gtk2::HBox->new(0,0), gtkset_size_request(Gtk2::Label->new, 20, 0), $w)
			              : $w
		      } @l),
		      if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 15)),
		      if_($a, Gtk2::HSeparator->new)
		     )
	}
    }
}

sub _create_dialog {
    my ($title, $o_options) = @_;
    my $dialog = Gtk2::Dialog->new;
    $dialog->set_title($title);
    $dialog->set_position('center-on-parent');  # center-on-parent doesn't work
    may_set_icon($dialog, $wm_icon || $::Wizard_pix_up || "wiz_default_up.png");
    $dialog->set_size_request($o_options->{width} || -1, $o_options->{height} || -1);
    $dialog->set_modal(1);
    $dialog->set_transient_for($o_options->{transient}) if $o_options->{transient};
    $dialog;
}


# drakfloppy / drakfont / harddrake2 / mcc
sub create_dialog {
    my ($title, $label, $o_options) = @_;
    my $ret = 0;
    my $dialog =  gtkset_border_width(_create_dialog($title, $o_options), 10);
    $dialog->set_border_width(10);
    my $text = ref($label) ? $label : $o_options->{use_markup} ? gtkset_markup(Gtk2::WrappedLabel->new, $label) : Gtk2::WrappedLabel->new($label);
    gtkpack($dialog->vbox,
            gtkpack_(Gtk2::HBox->new,
                     if_($o_options->{stock},
                         0, Gtk2::Image->new_from_stock($o_options->{stock}, 'dialog'),
                         0, Gtk2::Label->new("   "),
                        ),
                     1, $o_options->{scroll} ? create_scrolled_window($text, [ 'never', 'automatic' ]) : $text,
                    ),
           );

    if ($o_options->{cancel}) {
	my $button2 = Gtk2::Button->new(N("Cancel"));
	$button2->signal_connect(clicked => sub { $ret = 0; $dialog->destroy; Gtk2->main_quit });
	$button2->can_default(1);
	$dialog->action_area->pack_start($button2, 1, 1, 0);
    }

    my $button = Gtk2::Button->new(N("Ok"));
    $button->can_default(1);
    $button->signal_connect(clicked => sub { $ret = 1; $dialog->destroy; Gtk2->main_quit });
    $dialog->action_area->pack_start($button, 1, 1, 0);
    $button->grab_default;

    $dialog->set_has_separator(0);;
    $dialog->show_all;
    Gtk2->main;
    $ret;
}

sub info_dialog {
    my ($title, $label, $o_options) = @_;
    $o_options ||= { };
    add2hash_($o_options, { stock => 'gtk-dialog-info' });
    create_dialog($title, $label, $o_options);
}

sub warn_dialog {
    my ($title, $label, $o_options) = @_;
    $o_options ||= { };
    add2hash_($o_options, { stock => 'gtk-dialog-warning', cancel => 1 });
    create_dialog($title, $label, $o_options);
}

sub err_dialog {
    my ($title, $label, $o_options) = @_;
    $o_options ||= { };
    add2hash_($o_options, { stock => 'gtk-dialog-error' });
    create_dialog($title, $label, $o_options);
}

sub create_hbox { gtkset_layout(Gtk2::HButtonBox->new, $_[0] || 'spread') }
sub create_vbox { gtkset_layout(Gtk2::VButtonBox->new, $_[0] || 'spread') }

sub create_factory_menu_ {
    my ($type, $name, $window, @menu_items) = @_;
    my $widget = Gtk2::ItemFactory->new($type, $name, my $accel_group = Gtk2::AccelGroup->new);
    $widget->create_items($window, @menu_items);
    $window->add_accel_group($accel_group);
    ($widget->get_widget($name), $widget);
}

sub create_factory_popup_menu { create_factory_menu_("Gtk2::Menu", '<main>', @_) }
sub create_factory_menu { create_factory_menu_("Gtk2::MenuBar", '<main>', @_) }

sub create_menu {
    my $title = shift;
    my $w = Gtk2::MenuItem->new($title);
    $w->set_submenu(gtkshow(gtkappend(Gtk2::Menu->new, @_)));
    $w
}

sub create_notebook {
    my $book = Gtk2::Notebook->new;
    while (@_) {
	my ($page, $title) = splice(@_, 0, 2);
	gtkappend_page($book, $page, $title);
    }
    $book
}

sub create_packtable {
    my ($options, @l) = @_;
    my $w = Gtk2::Table->new(0, 0, $options->{homogeneous} || 0);
    add2hash_($options, { xpadding => 5, ypadding => 0 });
    each_index {
	my ($i, $l) = ($::i, $_);
	each_index {
	    my $j = $::i;
	    if ($_) {
		ref $_ or $_ = Gtk2::WrappedLabel->new($_);
		$j != $#$l && !$options->{mcc} ?
		  $w->attach($_, $j, $j + 1, $i, $i + 1,
			     'fill', 'fill', $options->{xpadding}, $options->{ypadding}) :
		  $w->attach($_, $j, $j + 1, $i, $i + 1,
			     ['expand', 'fill'], ref($_) eq 'Gtk2::ScrolledWindow' || $_->get_data('must_grow') ? ['expand', 'fill'] : [], 0, 0);
		$_->show;
	    }
	} @$l;
    } @l;
    $w->set_col_spacings($options->{col_spacings} || 0);
    $w->set_row_spacings($options->{row_spacings} || 0);
    gtkset_border_width($w, $::isInstall ? 3 : 10);
}

sub create_okcancel {
    my ($w, $o_ok, $o_cancel, $_o_spread, @other) = @_;
    # @other is a list of extra buttons (usually help (eg: XFdrake/drakx caller) or advanced (eg: interactive caller) button)
    # extra buttons have the following structure [ label, handler, is_first, pack_right ]
    local $::isWizard = $::isWizard && !$w->{pop_it};
    my $cancel;
    if (defined $o_cancel || defined $o_ok) {
        $cancel = $o_cancel;
    } elsif (!$::Wizard_no_previous) {
        $cancel = $::isWizard ? N("Previous") : N("Cancel");
    }
    my $ok = defined $o_ok ? $o_ok : $::isWizard ? ($::Wizard_finished ? N("Finish") : N("Next")) : N("Ok");
    my $bok = $ok && gtksignal_connect($w->{ok} = Gtk2::Button->new($ok), clicked => $w->{ok_clicked} || sub { $w->{retval} = 1; Gtk2->main_quit });
    my $bprev;
    if ($cancel) {
        $bprev = gtksignal_connect($w->{cancel} = Gtk2::Button->new($cancel), clicked => $w->{cancel_clicked} || 
                                   sub { log::l("default cancel_clicked"); undef $w->{retval}; Gtk2->main_quit });
    }
    $w->{wizcancel} = gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => sub { die 'wizcancel' }) if $::isWizard && !$::isInstall;
    my $f = sub { $w->{buttons}{$_[0][0]} = gtksignal_connect(Gtk2::Button->new($_[0][0]), clicked => $_[0][1]) };
    my @left  = ((map { $f->($_) } grep {  $_->[2] && !$_->[3] } @other),
                  map { $f->($_) } grep { !$_->[2] && !$_->[3] } @other);
    my @right = ((map { $f->($_) } grep {  $_->[2] &&  $_->[3] } @other),
                  map { $f->($_) } grep { !$_->[2] &&  $_->[3] } @other);
    # we put space to group buttons in two packs (but if there's only one when not in wizard mode)
    # but in the installer where all windows run in wizard mode because of design even when not in a wizard step
    $bprev = Gtk2::Label->new if !$cancel && $::Wizard_no_previous && !@left && !@right;
    if ($::isWizard) {
        # wizard mode: order is cancel/left_extras/white/right_extras/prev/next
        unshift @left, $w->{wizcancel} if !$::isInstall;
        push @right, $bprev, $bok;
    } else { 
        # normal mode: cancel/ok button follow GNOME's HIG
        unshift @left, $bprev;
        push @left, Gtk2::Label->new if $ok && $cancel; # space buttons but if there's only one button
        push @right, $bok;
    }

    gtkpack(Gtk2::VBox->new,
            Gtk2::HSeparator->new,
            gtkpack(Gtk2::HBox->new,
                    (map {
                        gtkpack(
                                create_hbox($_->[1]),
                                (map {
                                    $_->can_default($::isWizard);
                                    $_;
                                } grep { $_ } @{$_->[0]})
                               )
                    } ([ \@left, 'start' ],
                       [ \@right,  'end' ],
                      )
                    )
                   ),
           );
}

sub _setup_paned {
    my ($paned, $child1, $child2, %options) = @_;
    foreach ([ 'resize1', 0 ], [ 'shrink1', 1 ], [ 'resize2', 1 ], [ 'shrink2', 1 ]) {
        $options{$_->[0]} = $_->[1] unless defined($options{$_->[0]});
    }
    $paned->pack1(gtkshow($child1), $options{resize1}, $options{shrink1});
    $paned->pack2(gtkshow($child2), $options{resize2}, $options{shrink2});
    gtkshow($paned);
}

sub create_vpaned {
    _setup_paned(Gtk2::VPaned->new, @_);
}

sub create_hpaned {
    _setup_paned(Gtk2::HPaned->new, @_);
}

sub gtkcreate_frame {
    my ($label) = @_;
    gtkset_border_width(Gtk2::Frame->new($label), 5);
}


# -=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---
#                 helpers
#
# Functions that do typical operations on widgets, that you may need in
# several places of your programs.

sub _find_imgfile {
    my ($name) = @_;

    if ($name =~ m|/| && -f $name) {
	$name;
    } else {
	foreach my $path (icon_paths()) {
	    foreach ('', '.png', '.xpm') {
		my $file = "$path/$name$_";
		-f $file and return $file;
	    }
	}
    }
}

# use it if you want to display an icon/image in your app
sub gtkcreate_img {
    return Gtk2::Image->new_from_file(_find_imgfile(@_) || internal_error("can't find $_[0]"));
}

# use it if you want to draw an image onto a drawingarea
sub gtkcreate_pixbuf {
    return Gtk2::Gdk::Pixbuf->new_from_file(_find_imgfile(@_) || internal_error("can't find $_[0]"));
}

sub gtktext_append { gtktext_insert(@_, append => 1) }

sub may_set_icon {
    my ($w, $name) = @_;
    if (my $f = $name && _find_imgfile($name)) {
	$w->set_icon(gtkcreate_pixbuf($f));
    }
}

# gtktext_insert() can be used with any of choose one of theses styles:
# - no tags:
#   gtktext_insert($textview, "My text..");
# - anonymous tags:
#   gtktext_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', ... },
#                       }
#   gtktext_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', ... },
#                       }
#   gtktext_insert($textview, [ [ 'first text',  'blue_green' ],
#			        [ 'second text' ],
#		                [ 'third', 'big_font' ],
#		                [ 'fourth', { 'font' => 'Serif 15', ... } ],
#                               ... ]);
sub gtktext_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') {
        $opts{append} or $buffer->set_text('');
        foreach my $token (@$t) {
            my ($item, $tag) = @$token;
            my $iter1 = $buffer->get_end_iter;
            if ($item =~ /^Gtk2::Gdk::Pixbuf/) {
                $buffer->insert_pixbuf($iter1, $item);
                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 {
        $buffer->set_text($t);
    }
    #- the following line is needed to move the cursor to the beginning, so that if the
    #- textview has a scrollbar, it won't 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;
}

# extracts interesting font metrics for a given widget
sub gtkfontinfo {
    my ($widget) = @_;
    my $context = $widget->get_pango_context;
    my $metrics = $context->get_metrics($context->get_font_description, $context->get_language);
    my %fontinfo;
    foreach (qw(ascent descent approximate_char_width approximate_digit_width)) {
	no strict;
	my $func = "get_$_";
	$fontinfo{$_} = Gtk2::Pango->pixels($metrics->$func);
    }
    %fontinfo;
}

sub gtkmodify_font {
    my ($w, $arg) = @_;
    $w->modify_font(ref($arg) ? $arg : Gtk2::Pango::FontDescription->from_string($arg));
    $w;
}

sub gtkset_property {
    my ($w, $property, $value) = @_;
    $w->set_property($property, $value);
    $w;
}

sub set_back_pixbuf {
    my ($widget, $pixbuf) = @_;
    my $window = $widget->window;
    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, 'none', 0, 0);
    $window->set_back_pixmap($pixmap, 0);
}

sub set_back_pixmap {
    my ($w) = @_;
    return if !$w->realized;
    my $window = $w->window;
    my $pixmap = $w->{back_pixmap} ||= Gtk2::Gdk::Pixmap->new($window, 1, 2, $window->get_depth);

    my $style = $w->get_style;
    $pixmap->draw_points($style->bg_gc('normal'), 0, 0);
    $pixmap->draw_points($style->base_gc('normal'), 0, 1);
    $window->set_back_pixmap($pixmap);
}

sub fill_tiled_coords {
    my ($widget, $pixbuf, $x_back, $y_back, $width, $height) = @_;
    my ($x2, $y2) = (0, 0);
    while (1) {
	$x2 = 0;
	while (1) {
	    $pixbuf->render_to_drawable($widget->window, $widget->style->fg_gc('normal'),
					0, 0, $x2, $y2, $x_back, $y_back, 'none', 0, 0);
	    $x2 += $x_back;
	    $x2 >= $width and last;
	}
	$y2 += $y_back;
	$y2 >= $height and last;
    }
}

sub fill_tiled {
    my ($widget, $pixbuf) = @_;
    my ($window_width, $window_height) = $widget->window->get_size;
    fill_tiled_coords($widget, $pixbuf, $pixbuf->get_width, $pixbuf->get_height, $window_width, $window_height);
}

sub add2notebook {
    my ($n, $title, $book) = @_;
    $n->append_page($book, gtkshow(Gtk2::Label->new($title)));
    $book->show;
}

sub string_size {
    my ($widget, $text) = @_;
    my $layout = $widget->create_pango_layout($text);
    my @size = $layout->get_pixel_size;
    @size;
}

sub string_width {
    my ($widget, $text) = @_;
    my ($width, undef) = string_size($widget, $text);
    $width;
}

sub string_height {
    my ($widget, $text) = @_;
    my (undef, $height) = string_size($widget, $text);
    $height;
}

sub get_text_coord {
    my ($text, $widget4style, $max_width, $currentx, $currenty) = @_;
    my $wrap_char = ' ';
    my @lines;
    my $current_text;
    my @t = split($wrap_char, $text);
    my @t2;
    if ($::isInstall && $::o->{locale}{lang} =~ /ja|zh/) {
	use locale;
	@t = map { $_ . $wrap_char } @t;
	$wrap_char = '';
	foreach (@t) {
	    my @c = split(/\b/);
	    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 ne '' and push @t2, $el;
	}
    } else {
	@t2 = @t;
    }
    my $add_line = sub {
        my ($w, $h) = string_size($widget4style, $current_text);
        push @lines, { text => $current_text, width => $w, height => $h + 1, 'x' => $currentx, 'y' => $currenty };
    };
    my $width;
    foreach my $word (@t2) {
	my $w = string_width($widget4style, $word . $wrap_char);
	if ($currentx + $width + $w > $max_width) {
            $add_line->();
            $current_text = $word;
	    $width = $w;
            $currentx = 0;
            $currenty += $lines[-1]{height};
	} else {
            $current_text .= ($current_text ne '' ? $wrap_char : '') . $word;
            $width += $w;
        }
    }
    #- if wrap_char was at the end, don't forget it, for cases when bold/nonbold text follows
    $text =~ /$wrap_char$/ and $current_text .= $wrap_char;
    $add_line->();

    return @lines;
}

sub wrap_paragraph {
    my ($text, $widget4style, $border, $max_width) = @_;

    $max_width -= 2*$border;
    my @lines;
    my $ydec;

    foreach my $paragraph (@$text) {
        my @paragraph_lines;
        my $center;
        if (ref($paragraph) eq 'ARRAY') {
            my ($text, %options) = @$paragraph;
            $center = $options{center};
            $paragraph = $text;
        }
        if ($paragraph ne '') {
            my @elements;
            while ($paragraph =~ m|(.*?)<b>(.*?)</b>(.*)|) {
                $1 ne '' and push @elements, [ $1, bold => 0 ];
                push @elements, [ $2, bold => 1 ];
                $paragraph = $3;
            }
            $paragraph ne '' and push @elements, [ $paragraph, bold => 0 ];

            my $currentx;
            foreach (@elements) {
                my ($text, %options) = @$_;
                #- hack :( if ' ' is at the beginning, don't forget it, substitute
                #- with an unbreakable space because gtk allocates too much space otherwise
                $text =~ /^ (.*)/ and $text = " $1";
                my @newlines = get_text_coord($text, $widget4style, $max_width, $currentx, $ydec);
                $currentx = $newlines[-1]{'x'} + $newlines[-1]{width};
                $ydec = $newlines[-1]{'y'};
                $options{bold} and $currentx++;
                $_->{options} = \%options foreach @newlines;
                push @paragraph_lines, @newlines;
            }
            $ydec = $paragraph_lines[-1]{'y'} + $paragraph_lines[-1]{height};
        }
        if ($center) {
            my %widths;
            $widths{$_->{'y'}} ||= $_->{x} + $_->{width} foreach reverse @paragraph_lines;
            $_->{x} += ($max_width - $widths{$_->{'y'}})/2 foreach @paragraph_lines;
        }
        $_->{x} += $border foreach @paragraph_lines;
        push @lines, @paragraph_lines;
    }

    return @lines;
}

sub gtkcolor {
    my ($r, $g, $b) = @_;
    my $color = Gtk2::Gdk::Color->new($r, $g, $b);
    gtkroot()->get_colormap->rgb_find_color($color);
    $color;
}

sub gtkset_background {
    my ($r, $g, $b) = @_;
    my $root = gtkroot();
    my $gc = Gtk2::Gdk::GC->new($root);
    my $color = gtkcolor($r, $g, $b);
    $gc->set_rgb_fg_color($color);
    $root->set_background($color);
    my ($w, $h) = $root->get_size;
    $root->draw_rectangle($gc, 1, 0, 0, $w, $h);
}

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", 'standalone/icons', '/usr/share/rpmdrake/icons');
}  
add_icon_path(@icon_paths,
	      exists $ENV{SHARE_PATH} ? "$ENV{SHARE_PATH}/libDrakX/pixmaps" : (),
	      '/usr/lib/libDrakX/icons', 'standalone/icons');



# -=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---
#                 toplevel window creation helper
#
# Use the 'new' function as a method constructor and then 'main' on it to
# launch the main loop. Use $o->{retval} to indicate that the window needs
# to terminate.
# Set $::isWizard to have a wizard appearance.
# Set $::isEmbedded and $::XID so that the window will plug.

sub new {
    my ($type, $title, %opts) = @_;


    my $o = bless { %opts }, $type;
    while (my $e = shift @tempory::objects) { $e->destroy }

    $o->{isWizard} ||= $::isWizard;
    $o->{isEmbedded} ||= $::isEmbedded;
    $o->{wm_icon} ||= $wm_icon || $::Wizard_pix_up || "wiz_default_up.png";

    $o->{pop_it} ||= $pop_it || !$o->{isWizard} && !$o->{isEmbedded} || $::WizardTable && do {
	#- don't take into account the DrawingArea
	any { !$_->isa('Gtk2::DrawingArea') && $_->visible } $::WizardTable->get_children;
    };

    if ($o->{pop_it}) {
	$o->{rwindow} = _create_window($title);
	may_set_icon($o->{rwindow}, $o->{wm_icon});
	$o->{rwindow}->set_position('center-on-parent');

	if ($::isInstall) {
	    gtkadd($o->{rwindow}, 
		   gtkadd(gtkset_shadow_type(Gtk2::Frame->new(undef), 'out'),
			  $o->{window} = gtkset_border_width(gtkset_shadow_type(Gtk2::Frame->new(undef), 'none'), 3)
			 ));
	} else {
	    $o->{window} = $o->{rwindow};
	}
	$o->{rwindow}->set_position('center_always') if $force_center || $o->{force_center};
	$o->{rwindow}->set_modal(1) if $grab || $o->{grab} || $o->{modal};
	$o->{rwindow}->set_transient_for($o->{transient}) if $o->{transient} && $o->{transient} =~ /Gtk2::Window/;

    } else {
	$o->{rwindow} = $o->{window} = Gtk2::VBox->new(0,0);
	$o->{window}->set_border_width($::Wizard_splash ? 0 : 10);
	set_main_window_size($o);

	$::WizardTable ||= Gtk2::VBox->new(0, 0);

	if (!$::Plug && $o->{isEmbedded}) {
	    $::Plug = $::WizardWindow = gtkshow(Gtk2::Plug->new($::XID));
	    may_set_icon($::Plug, $o->{wm_icon});
	    flush();
	    gtkadd($::Plug, $::WizardTable);
	} elsif (!$::WizardWindow) {
	    $::WizardWindow = _create_window($title);
	    gtkadd($::WizardWindow, gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'out'), $::WizardTable));

	    if ($::isInstall) {
		$::WizardWindow->signal_connect(key_press_event => sub {
		    my (undef, $event) = @_;
		    my $d = ${{ $Gtk2::Gdk::Keysyms{F2} => 'screenshot', $Gtk2::Gdk::Keysyms{Delete} => 'restart' }}{$event->keyval};
		    if ($d eq 'screenshot') {
			common::take_screenshot();
		    } elsif ($d eq 'restart' && member('control-mask', @{$event->state}) && member('mod1-mask', @{$event->state})) {
			log::l("restarting install");
                        $o->exit(0x35);
 		    }
		    0;
		});
	    } elsif (!$o->{isEmbedded}) {
		$::WizardWindow->set_position('center_always') if !$::isStandalone;
		eval { gtkpack__($::WizardTable, Gtk2::Banner->new($::Wizard_pix_up || $wm_icon || "wiz_default_up.png", $::Wizard_title)) };
		$@ and log::l("ERROR: missing wizard banner");
		may_set_icon($::WizardWindow, $o->{wm_icon});
	    }
	    $::WizardWindow->show;
	}
	$::WizardWindow->set_title($title || '');
	gtkpack($::WizardTable, $o->{window});
    }
    $o->{rwindow}->signal_connect(destroy => sub { $o->{destroyed} = 1 });

    $o;
}
sub set_main_window_size {
    my ($o) = @_;
    my ($width, $height) = $::isInstall ? ($::real_windowwidth, $::real_windowheight) : $o->{isWizard} ? (540, 360) : (600, 400);
    $o->{window}->set_size_request($width, $height);
}

sub main {
    my ($o, $o_completed, $o_canceled) = @_;
    gtkset_mousecursor_normal();
    my $timeout = Glib::Timeout->add(1000, sub { gtkset_mousecursor_normal(); 1 });
    my $_b = MDK::Common::Func::before_leaving { $o->destroy; Glib::Source->remove($timeout) };
    $o->show;

    do {
	Gtk2->main;
    } while (!$o->{destroyed} && ($o->{retval} ? $o_completed && !$o_completed->() : $o_canceled && !$o_canceled->()));
    $o->destroy;
    $o->{retval}
}
sub show($) {
    my ($o) = @_;
    $o->{window}->show;
    $o->{rwindow}->show;
}
sub destroy($) {
    my ($o) = @_;
    $o->{rwindow}->destroy if !$o->{destroyed};
    gtkset_mousecursor_wait();
    flush();
}
sub DESTROY { goto &destroy }
sub sync {
    my ($o) = @_;
    show($o);
    flush();
}
sub flush() { gtkflush() }
sub shrink_topwindow {
    my ($o) = @_;
    $o->{rwindow}->signal_emit('size_allocate', Gtk2::Gdk::Rectangle->new(-1, -1, -1, -1));
}
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 { &exit() }

sub _create_window {
    my ($title) = @_;
    my $w = Gtk2::Window->new('toplevel');
    $w->set_border_width(5) if !$::isInstall && !$::isWizard;

    $w->set_name("Title");
    $w->set_title($title || '');

    if ($force_focus) {
	(my $previous_current_window, $ugtk2::current_window) = ($ugtk2::current_window, $w);
	$w->signal_connect(expose_event => \&_XSetInputFocus);
	$w->signal_connect(destroy => sub { $ugtk2::current_window = $previous_current_window });
    }
    $w->signal_connect(delete_event => sub { 
	if ($::isWizard) {
	    $w->destroy; 
	    die 'wizcancel';
	} else { 
	    Gtk2->main_quit;
	} 
    });

    if ($::isInstall && $::o->{mouse}{unsafe}) {
	$w->add_events('pointer-motion-mask');
	my $signal;  #- don't make this line part of next one, signal_disconnect won't be able to access $signal value
	$signal = $w->signal_connect(motion_notify_event => sub {
	    delete $::o->{mouse}{unsafe};
	    log::l("unsetting unsafe mouse");
	    $w->signal_handler_disconnect($signal);
	});
    }

    if ($force_center_at_pos) {
	my ($wi, $he);

	$w->signal_connect(size_allocate => sub {
	    my (undef, $event) = @_;
	    my @w_size = $event->values;
	    return if $w_size[2] == $wi && $w_size[3] == $he; #BUG
	    (undef, undef, $wi, $he) = @w_size;
	    
	    my ($X, $Y, $Wi, $He) = @$force_center_at_pos;
            $w->set_uposition(max(0, $X + ($Wi - $wi) / 2), max(0, $Y + ($He - $he) / 2));
	});
    }

    $w;
}

sub _XSetInputFocus {
    my ($w) = @_;
    if ($ugtk2::current_window == $w) {
	$w->window->XSetInputFocus;
    } else {
	log::l("not XSetInputFocus since already done and not on top");
    }
    0;
}


# -=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---
#                 ask
#
# Full UI managed functions that will return to you the value that the
# user chose.

sub ask_warn       { my $w = ugtk2->new(shift @_, grab => 1); $w->_ask_warn(@_); main($w) }
sub ask_yesorno    { my $w = ugtk2->new(shift @_, grab => 1); $w->_ask_okcancel(@_, N("Yes"), N("No")); main($w) }
sub ask_okcancel   { my $w = ugtk2->new(shift @_, grab => 1); $w->_ask_okcancel(@_, N("Is this correct?"), N("Ok"), N("Cancel")); main($w) }
sub ask_from_entry { my $w = ugtk2->new(shift @_, grab => 1); $w->_ask_from_entry(@_); main($w) }
sub ask_dir        { my $w = ugtk2->new(shift @_, grab => 1); $w->_ask_dir(@_); main($w) }

sub _ask_from_entry($$@) {
    my ($o, @msgs) = @_;
    my $entry = Gtk2::Entry->new;
    my $f = sub { $o->{retval} = $entry->get_text; Gtk2->main_quit };
    $o->{ok_clicked} = $f;
    $o->{cancel_clicked} = sub { undef $o->{retval}; Gtk2->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 = Gtk2::Button->new(N("Ok")), "clicked" => sub { Gtk2->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 = Gtk2::FileSelection->new($title);
    if ($o->{rwindow}->isa('Gtk2::Window')) {
	my ($modality, $position) = ($o->{rwindow}->get_modal, $o->{rwindow}->get('window-position'));
	$f->set_modal($modality);
	$f->set_position($position);
    }
    my $bg = $o->{window};
    $o->{rwindow} = $o->{window} = $f;
    $f->set_filename($path) if $path;
    $f->signal_connect(destroy => sub { eval { $bg->destroy } });
    $f->ok_button->signal_connect(clicked => sub { $o->{retval} = $f->get_filename; Gtk2->main_quit });
    $f->cancel_button->signal_connect(clicked => sub { Gtk2->main_quit });
    $f->grab_focus;
    $f;
}

sub _ask_dir {
    my ($o) = @_;
    my $f = &_ask_file;
    $f->file_list->get_parent->hide;
    $f->selection_entry->get_parent->hide;
    $f->ok_button->signal_connect(clicked => sub {
				      my ($model, $iter) = $f->dir_list->get_selection->get_selected;
				      $o->{retval} .= '/' . $model->get($iter, 0) if $model;
				  });
}

sub ask_browse_tree_info {
    my ($common) = @_;

    my $w = ugtk2->new($common->{title});

    my $tree_model = Gtk2::TreeStore->new("Glib::String", "Gtk2::Gdk::Pixbuf", "Glib::String");
    my $tree = Gtk2::TreeView->new_with_model($tree_model);
    $tree->get_selection->set_mode('browse');
    $tree->append_column(my $textcolumn = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
    $tree->append_column(my $pixcolumn  = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererPixbuf->new, 'pixbuf' => 1));
    $tree->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 2));
    $tree->set_headers_visible(0);
    $tree->set_rules_hint(1);
    $textcolumn->set_min_width(200);
    $textcolumn->set_max_width(200);

    gtkadd($w->{window}, 
	   gtkpack_(Gtk2::VBox->new(0,5),
		    0, $common->{message},
		    1, gtkpack(Gtk2::HBox->new(0,0),
			       create_scrolled_window($tree),
			       gtkadd(Gtk2::Frame->new(N("Info")),
				      create_scrolled_window(my $info = Gtk2::TextView->new),
				     )),
		    0, my $box1 = Gtk2::HBox->new(0,15),
		    0, my $box2 = Gtk2::HBox->new(0,10),
		   ));
    #gtkpack__($box2, my $toolbar = Gtk2::Toolbar->new('horizontal', 'icons'));
    gtkpack__($box2, my $toolbar = Gtk2::Toolbar->new);

    my @l = ([ $common->{ok}, 1 ], if_($common->{cancel}, [ $common->{cancel}, 0 ]));
    @l = reverse @l if !$::isInstall;
    my @buttons = map {
	my ($t, $val) = @$_;
	$box2->pack_end(my $w = gtksignal_connect(Gtk2::Button->new($t), clicked => sub {
						      $w->{retval} = $val;
						      Gtk2->main_quit;
						  }), 0, 1, 20);
	$w;
    } @l;
    @buttons = reverse @buttons if !$::isInstall;    

    gtkpack__($box2, gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => sub {
					   ask_warn(N("Help"), $common->{interactive_help}->())
				       })) if $common->{interactive_help};

    if ($common->{auto_deps}) {
	gtkpack__($box1, gtksignal_connect(gtkset_active(Gtk2::CheckButton->new($common->{auto_deps}), $common->{state}{auto_deps}),
					clicked => sub { invbool \$common->{state}{auto_deps} }));
    }
    $box1->pack_end(my $status = Gtk2::Label->new, 0, 1, 20);

    $w->{window}->set_size_request(map { $_ - 2 * $border - 4 } $::windowwidth, $::windowheight) if !$::isInstall;
    $buttons[0]->grab_focus;
    $w->{rwindow}->show_all;

    #- TODO: $tree->queue_draw is a workaround to a bug in gtk-2.2.1; submit it in their bugzilla
    my @toolbar = (ftout  =>  [ N("Expand Tree"), sub { $tree->expand_all; $tree->queue_draw } ],
		   ftin   =>  [ N("Collapse Tree"), sub { $tree->collapse_all } ],
		   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;
    foreach (grep_index { $::i % 2 == 0 } @toolbar) {
	$toolbar->append_item(undef, $toolbar{$_}[0], undef, gtkcreate_img("$_.png"), $toolbar{$_}[1]);
    }

    $pixcolumn->{is_pix} = 1;
    $common->{widgets} = { w => $w, tree => $tree, tree_model => $tree_model, textcolumn => $textcolumn, pixcolumn => $pixcolumn,
                           info => $info, status => $status };
    ask_browse_tree_info_given_widgets($common);
}

sub ask_browse_tree_info_given_widgets {
    my ($common) = @_;
    my $w = $common->{widgets};

    my ($curr, $prev_label, $idle, $mouse_toggle_pending);
    my (%wtree, %ptree, %pix, %node_state, %state_stats);
    my $update_size = sub {
	if ($w->{status}) {
	    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 ($iter, $state) = @_;
	$state eq 'XXX' and return;
        $pix{$state} ||= gtkcreate_pixbuf($state);
        $w->{tree_model}->set($iter, 1 => $pix{$state});
    };
    my $set_node_state_tree; $set_node_state_tree = sub {
	my ($iter, $state) = @_;
	my $iter_str = $w->{tree_model}->get_path_str($iter);
	$state eq 'XXX' and return;
        $pix{$state} ||= gtkcreate_pixbuf($state);
	if ($node_state{$iter_str} ne $state) {
	    my $parent;
	    if (!$w->{tree_model}->iter_has_child($iter) && ($parent = $w->{tree_model}->iter_parent($iter))) {
		my $parent_str = $w->{tree_model}->get_path_str($parent);
		my $stats = $state_stats{$parent_str} ||= {}; $stats->{$node_state{$iter_str}}--; $stats->{$state}++;
		my @list = grep { $stats->{$_} > 0 } keys %$stats;
		my $new_state = @list == 1 ? $list[0] : 'semiselected';
		$node_state{$parent_str} ne $new_state and $set_node_state_tree->($parent, $new_state);
	    }
            $w->{tree_model}->set($iter, 1 => $pix{$state});
	    $node_state{$iter_str} = $state;  #- cache for efficiency
	}
    };
    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 $iter = $w->{tree_model}->append_set($s ? $add_parent->($s, $state) : undef, [ 0 => $_ ]);
		$iter;
	    };
	    $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 $iter = $w->{tree_model}->append_set($add_parent->($root, $state), [ 0 => $leaf ]);
	    $set_node_state->($iter, $state);
	    push @{$ptree{$leaf}}, $iter;
	} 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_model}->append_set($parent, [ 0 => '' ]);
	}
    };
    my $clear_all_caches = sub {
	foreach (values %ptree) {
	    foreach my $n (@$_) {
		delete $node_state{$w->{tree_model}->get_path_str($n)};
	    }
	}
	foreach (values %wtree) {
	    my $iter_str = $w->{tree_model}->get_path_str($_);
	    delete $node_state{$iter_str};
	    delete $state_stats{$iter_str};
	}
	%ptree = %wtree = ();
    };
    $common->{delete_all} = sub {
	$clear_all_caches->();
	$w->{tree_model}->clear;
    };
    $common->{rebuild_tree} = sub {
	$common->{delete_all}->();
	$set_node_state = $common->{state}{flat} ? $set_node_state_flat : $set_node_state_tree;
	$common->{build_tree}($add_node, $common->{state}{flat}, $common->{tree_mode});
	&$update_size;
    };
    $common->{delete_category} = sub {
	my ($cat) = @_;
	exists $wtree{$cat} or return;
	foreach (keys %ptree) {
	    my @to_remove;
	    foreach my $node (@{$ptree{$_}}) {
		my $category;
		my $parent = $node;
		my @parents;
		while ($parent = $w->{tree_model}->iter_parent($parent)) {    #- LEAKS
		    my $parent_name = $w->{tree_model}->get($parent, 0);
		    $category = $category ? "$parent_name|$category" : $parent_name;
		    $_->[1] = "$parent_name|$_->[1]" foreach @parents;
		    push @parents, [ $parent, $category ];
		}
		if ($category =~ /^\Q$cat/) {
		    push @to_remove, $node;
		    foreach (@parents) {
			next if $_->[1] eq $cat || !exists $wtree{$_->[1]};
			delete $wtree{$_->[1]};
			delete $node_state{$w->{tree_model}->get_path_str($_->[0])};
			delete $state_stats{$w->{tree_model}->get_path_str($_->[0])};
		    }
		}
	    }
	    foreach (@to_remove) {
		delete $node_state{$w->{tree_model}->get_path_str($_)};
	    }
	    @{$ptree{$_}} = difference2($ptree{$_}, \@to_remove);
	}
	if (exists $wtree{$cat}) {
	    my $iter_str = $w->{tree_model}->get_path_str($wtree{$cat});
	    delete $node_state{$iter_str};
	    delete $state_stats{$iter_str};
	    $w->{tree_model}->remove($wtree{$cat});
	    delete $wtree{$cat};
	}
	&$update_size;
    };
    $common->{add_nodes} = sub {
	my (@nodes) = @_;
	$add_node->($_->[0], $_->[1], $_->[2]) foreach @nodes;
	&$update_size;
    };
    
    $common->{display_info} = sub { gtktext_insert($w->{info}, $common->{get_info}($curr)); 0 };
    my $children = sub { map { my $v = $w->{tree_model}->get($_, 0); $v } gtktreeview_children($w->{tree_model}, $_[0]) };
    my $toggle = sub {
	if (ref($curr) && !$_[0]) {
	    $w->{tree}->toggle_expansion($w->{tree_model}->get_path($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;
	    } 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 $c = chr($_[1]->keyval & 0xff);
	if ($_[1]->keyval >= 0x100 ? $c eq "\r" || $c eq "\x8d" : $c eq ' ') {
	    $toggle->(0);
	}
	0;
    });

    $w->{tree}->get_selection->signal_connect(changed => sub {
	my ($model, $iter) = $_[0]->get_selected;
	$model && $iter or return;
	Glib::Source->remove($idle) if $idle;
	
	if (!$model->iter_has_child($iter)) {
	    $curr = $model->get($iter, 0);
	    $idle = Glib::Timeout->add(100, $common->{display_info});
	} else {
	    $curr = $iter;
	}
	#- the following test for equality is because we can have a button_press_event first, then
	#- two changed events, the first being on a different row :/ (is it a bug in gtk2?) - that
	#- happens in rpmdrake when doing a "search" and directly trying to select a found package
	if ($mouse_toggle_pending eq $model->get($iter, 0)) {
	    $toggle->(1);
            $mouse_toggle_pending = 0;
	}
	0;
    });
    $w->{tree}->signal_connect(button_press_event => sub {  #- not too good, but CellRendererPixbuf doesn't have the needed signals :(
	my ($path, $column) = $w->{tree}->get_path_at_pos($_[1]->x, $_[1]->y);
	if ($path && $column) {
	    $column->{is_pix} and $mouse_toggle_pending = $w->{tree_model}->get($w->{tree_model}->get_iter($path), 0);
	}
        0;
    });
    $common->{rebuild_tree}->();
    &$update_size;
    $common->{initial_selection} and $common->{toggle_nodes}($set_leaf_state, @{$common->{initial_selection}});
    my $_b = before_leaving { $clear_all_caches->() };
    $w->{w}->main;
}

sub gtk_set_treelist {
    my ($treelist, $l) = @_;

    my $list = $treelist->get_model;
    $list->clear;
    $list->append_set([ 0 => $_ ]) foreach @$l;
}


sub gtk_TextView_get_log {
    my ($log_w, $log_scroll, $command, $filter_output, $when_command_is_over) = @_;

    my $pid = open(my $F, "$command |") or return;
    fcntl($F, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!";

    my $gtk_buffer = $log_w->get_buffer;
    $log_w->signal_connect(destroy => sub { 
	kill 9, $pid if $pid; #- we do not continue in background
	$pid = $gtk_buffer = ''; #- ensure $gtk_buffer is valid when its value is non-null
    });

    my ($prev_scroll, $want_scroll_down) = (0, 1);
    Glib::Timeout->add(100, sub {
        if ($gtk_buffer) {
	    my $end = $gtk_buffer->get_end_iter;
	    while (defined (my $s = <$F>)) {
		$gtk_buffer->insert($end, $filter_output->($s));
	    }
	    my $new_scroll = $log_scroll->get_vadjustment->get_value;
	    $want_scroll_down &&= $new_scroll >= $prev_scroll;
	    $prev_scroll = $new_scroll;
	    $log_w->scroll_to_iter($end, 0, 0, 0, 0) if $want_scroll_down;
	}
	if (waitpid($pid, c::WNOHANG()) > 0) {
	    #- we do not call $when_command_is_over if $gtk_buffer doesn't exist anymore
	    #- since it is not a normal case
	    $when_command_is_over->($gtk_buffer) if $when_command_is_over && $gtk_buffer;
	    $pid = '';
	    0;
	} else {
	    to_bool($gtk_buffer);
	}
    });
    $pid; #- $pid becomes invalid after $when_command_is_over is called
}

sub gtk_new_TextView_get_log {
    my ($command, $filter_output, $when_command_is_over) = @_;

    my $log_w = gtkset_editable(Gtk2::TextView->new, 0);
    my $log_scroll = create_scrolled_window($log_w);  #- $log_scroll is a frame, not a ScrolledWindow, so giving $log_scroll->child
    my $pid = gtk_TextView_get_log($log_w, $log_scroll->child, $command, $filter_output, $when_command_is_over) or return;
    $log_scroll, $pid;
}

# misc helpers:

package Gtk2::TreeStore;
sub append_set {
    my ($model, $parent, @values) = @_;
    # compatibility:
    @values = @{$values[0]} if @values == 1 && ref($values[0]) eq 'ARRAY';
    my $iter = $model->append($parent);
    $model->set($iter, @values);
    return $iter;
}


package Gtk2::ListStore;
# Append a new row, set the values, return the TreeIter
sub append_set {
    my ($model, @values) = @_;
    # compatibility:
    @values = @{$values[0]} if @values == 1 && ref($values[0]) eq 'ARRAY';
    my $iter = $model->append;
    $model->set($iter, @values);
    return $iter;
}


package Gtk2::TreeModel;
# gets the string representation of a TreeIter
sub get_path_str {
    my ($self, $iter) = @_;
    my $path = $self->get_path($iter);
    $path or return;
    $path->to_string;
}

sub iter_each_children {
    my ($model, $iter, $f) = @_;
    for (my $child = $model->iter_children($iter); $child; $child = $model->iter_next($child)) {
	$f->($child);
    }
}

package Gtk2::TreeView;
# likewise gtk-1.2 function
sub toggle_expansion {
    my ($self, $path, $b_open_all) = @_;
    if ($self->row_expanded($path)) {
	$self->collapse_row($path);
    } else {
	$self->expand_row($path, $b_open_all || 0);
    }
}


# With GTK+, for more GUIes coherency, GtkOptionMenu is recommended instead of a
# combo if the user is selecting from a fixed set of options.
#
# That is, non-editable combo boxes are not encouraged. GtkOptionMenu is much
# easier to use than GtkCombo as well. Use GtkCombo only when you need the
# editable text entry.
#
# GtkOptionMenu is a much better-implemented widget and also the right UI for
# noneditable sets of choices.)
#
# GtkCombo is deprecated in 2.4.x because it still uses deprecated
# GtkList. GtkOption menu is deprecated in order to have an unified widget.
#
# GtkComBox widget replaces GtkOption menu whereas GtkComBoxEntry replaces GtkCombo.
#
#
# This layer try to make OptionMenu and ComboBox look being api
# compatible with Combo since its API is quite nice.

package Gtk2::OptionMenu;
use common;

# try to get combox <==> option menu mapping
sub set_popdown_strings {
    my ($w, @strs) = @_;
    my $menu = Gtk2::Menu->new;
    # keep string list around for ->set_text compatibilty helper
    $w->{strings} = \@strs;
    #$w->set_menu((ugtk2::create_factory_menu($window, [ "File", (undef) x 3, '<Branch>' ], map { [ "File/" . $_, (undef) x 3, '<Item>' ] } @strs))[0]);
    $menu->append(ugtk2::gtkshow(Gtk2::MenuItem->new_with_label($_))) foreach @strs;
    $w->set_menu($menu);
    $w
}

sub new_with_strings {
    my ($class, $strs, $o_val) = @_;
    my $w = $class->new;
    $w->set_popdown_strings(@$strs);
    $w->set_text($o_val) if $o_val;
    $w;
}

sub entry {
    my ($w) = @_;
    return $w;
}

sub get_text {
    my ($w) = @_;
    $w->{strings}[$w->get_history];
}

sub set_text {
    my ($w, $val) = @_;
    each_index {
        if ($_ eq $val) {
            $w->set_history($::i);
            return;
        }
    } @{$w->{strings}};
}




package Gtk2::ComboBox;
use common;

# try to get combox <==> option menu mapping
sub set_popdown_strings {
    my ($w, @strs) = @_;
    # keep string list around for ->set_text compatibilty helper
    $w->{strings} = \@strs;
    $w->append_text($_) foreach @strs;
    $w
}

sub new_with_strings {
    my ($class, $strs, $o_val) = @_;
    my $w = $class->new_text;
    $w->set_popdown_strings(@$strs);
    $w->set_text($o_val) if $o_val;
    $w;
}

sub entry {
    my ($w) = @_;
    return $w;
}

sub get_text {
    my ($w) = @_;
    $w->{strings}[$w->get_active];
}

sub set_text {
    my ($w, $val) = @_;
    eval { 
	my $val_index = find_index { $_ eq $val } @{$w->{strings}};
	$w->set_active($val_index);
    };
    internal_error(qq(impossible to lookup "$val":\n\t) . chomp_($@)) if $@;
}


package Gtk2::Label;
sub set {
    my ($label) = shift;
    $label->set_label(@_);
}


package Gtk2::WrappedLabel;
sub new {
    my ($_type, $o_text, $o_align) = @_;
    ugtk2::gtkset_alignment(ugtk2::gtkset_line_wrap(Gtk2::Label->new($o_text || ''), 1), $o_align || 0, 0.5);
}


package Gtk2::Entry;
sub new_with_text {
    my ($_class, @text) = @_;
    my $entry = Gtk2::Entry->new;
    @text and $entry->set_text(@text);
    return $entry;
}


package Gtk2::Banner;

use ugtk2 qw(:helpers :wrappers);

sub set_pixmap {
    my ($darea) = @_;
    return if !$darea->realized;
    ugtk2::set_back_pixmap($darea);
    $darea->{layout} = $darea->create_pango_layout($darea->{text});
}


sub new {
    my ($_class, $icon, $text, $o_options) = @_;

    my $darea = Gtk2::DrawingArea->new;
    $darea->set_size_request(-1, 75);
    $darea->modify_font(Gtk2::Pango::FontDescription->from_string(common::N("_banner font:\nSans 14")));
    $darea->{icon} = ugtk2::gtkcreate_pixbuf($icon);
    $darea->{text} = $text;

    $darea->signal_connect(realize => \&set_pixmap);
    $darea->signal_connect("style-set" => \&set_pixmap);
    $darea->signal_connect(expose_event => sub {
                               my $style = $darea->get_style;
                               my $height = $darea->{icon}->get_height;
                               $darea->{icon}->render_to_drawable($darea->window, $style->bg_gc('normal'),
                                                                  0, 0, 10, 10, -1, -1, 'none', 0, 0);
                               $darea->window->draw_layout($style->text_gc('normal'), $height + 20, $o_options->{txt_ypos} || 25,
                                                           $darea->{layout});
                               1;
                           });
                               
    return $darea;
}

1;

ef='#n1561'>1561</a>
<a id='n1562' href='#n1562'>1562</a>
<a id='n1563' href='#n1563'>1563</a>
<a id='n1564' href='#n1564'>1564</a>
<a id='n1565' href='#n1565'>1565</a>
<a id='n1566' href='#n1566'>1566</a>
<a id='n1567' href='#n1567'>1567</a>
<a id='n1568' href='#n1568'>1568</a>
<a id='n1569' href='#n1569'>1569</a>
<a id='n1570' href='#n1570'>1570</a>
<a id='n1571' href='#n1571'>1571</a>
<a id='n1572' href='#n1572'>1572</a>
<a id='n1573' href='#n1573'>1573</a>
<a id='n1574' href='#n1574'>1574</a>
<a id='n1575' href='#n1575'>1575</a>
<a id='n1576' href='#n1576'>1576</a>
<a id='n1577' href='#n1577'>1577</a>
<a id='n1578' href='#n1578'>1578</a>
<a id='n1579' href='#n1579'>1579</a>
<a id='n1580' href='#n1580'>1580</a>
<a id='n1581' href='#n1581'>1581</a>
<a id='n1582' href='#n1582'>1582</a>
<a id='n1583' href='#n1583'>1583</a>
<a id='n1584' href='#n1584'>1584</a>
<a id='n1585' href='#n1585'>1585</a>
<a id='n1586' href='#n1586'>1586</a>
<a id='n1587' href='#n1587'>1587</a>
<a id='n1588' href='#n1588'>1588</a>
<a id='n1589' href='#n1589'>1589</a>
<a id='n1590' href='#n1590'>1590</a>
<a id='n1591' href='#n1591'>1591</a>
<a id='n1592' href='#n1592'>1592</a>
<a id='n1593' href='#n1593'>1593</a>
<a id='n1594' href='#n1594'>1594</a>
<a id='n1595' href='#n1595'>1595</a>
<a id='n1596' href='#n1596'>1596</a>
<a id='n1597' href='#n1597'>1597</a>
<a id='n1598' href='#n1598'>1598</a>
</pre></td>
<td class='lines'><pre><code><span class="hl kwa">package</span> mygtk2<span class="hl opt">;</span>

<span class="hl kwa">use</span> diagnostics<span class="hl opt">;</span>
<span class="hl kwa">use</span> strict<span class="hl opt">;</span>
<span class="hl kwa">use</span> feature <span class="hl str">&apos;state&apos;</span><span class="hl opt">;</span>

<span class="hl kwc">our</span> <span class="hl kwb">&#64;ISA</span> <span class="hl opt">=</span> <span class="hl str">qw(Exporter)</span><span class="hl opt">;</span>
<span class="hl kwc">our</span> <span class="hl kwb">&#64;EXPORT</span> <span class="hl opt">=</span> <span class="hl str">qw(gtknew gtkset gtkadd gtkval_register gtkval_modify)</span><span class="hl opt">;</span>

<span class="hl kwa">use</span> c<span class="hl opt">;</span>
<span class="hl kwa">use</span> <span class="hl kwc">log</span><span class="hl opt">;</span>
<span class="hl kwa">use</span> common<span class="hl opt">;</span>

<span class="hl kwa">use</span> Gtk2<span class="hl opt">;</span>

<span class="hl kwa">sub</span> init<span class="hl opt">() {</span>
    <span class="hl opt">!</span>check_for_xserver<span class="hl opt">()</span> <span class="hl kwc">and print</span><span class="hl opt">(</span><span class="hl str">&quot;Cannot be run in console mode.</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">),</span> c<span class="hl opt">::</span>_exit<span class="hl opt">(</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">$::</span>one_message_has_been_translated <span class="hl kwc">and warn</span><span class="hl opt">(</span><span class="hl str">&quot;N() was called from $::one_message_has_been_translated BEFORE gtk2 initialisation, replace it with a N_() AND a translate() later.</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">),</span> c<span class="hl opt">::</span>_exit<span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">);</span>

    Gtk2-<span class="hl opt">&gt;</span><span class="hl kwd">init</span><span class="hl opt">;</span>
    Locale<span class="hl opt">::</span>gettext<span class="hl opt">::</span>bind_textdomain_codeset<span class="hl opt">(</span><span class="hl kwb">$_,</span> <span class="hl str">&apos;UTF8&apos;</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl str">&apos;libDrakX&apos;</span><span class="hl opt">,</span> if_<span class="hl opt">(!$::</span>isInstall<span class="hl opt">,</span> <span class="hl str">&apos;libDrakX-standalone&apos;</span><span class="hl opt">),</span>
        if_<span class="hl opt">($::</span>isRestore<span class="hl opt">,</span> <span class="hl str">&apos;draksnapshot&apos;</span><span class="hl opt">),</span> if_<span class="hl opt">($::</span>isInstall<span class="hl opt">,</span> <span class="hl str">&apos;urpmi&apos;</span><span class="hl opt">),</span>
        <span class="hl str">&apos;drakx-net&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;drakx-kbd-mouse-x11&apos;</span><span class="hl opt">,</span> <span class="hl slc"># shared translation</span>
          <span class="hl opt">&#64;::</span>textdomains<span class="hl opt">;</span>
    Glib-<span class="hl opt">&gt;</span><span class="hl kwd">enable_exceptions2</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
init<span class="hl opt">()</span> <span class="hl kwa">unless</span> <span class="hl opt">$::</span>no_ugtk_init<span class="hl opt">;</span>
Glib-<span class="hl opt">&gt;</span><span class="hl kwd">enable_exceptions2</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>



<span class="hl kwa">sub</span> gtknew <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$class</span> <span class="hl opt">=</span> <span class="hl kwc">shift</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;_</span> <span class="hl opt">%</span> <span class="hl num">2</span> <span class="hl opt">!=</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	internal_error<span class="hl opt">(</span><span class="hl str">&quot;gtknew</span> <span class="hl ipl">$class</span><span class="hl str">: bad options</span> <span class="hl ipl">&#64;_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$r</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwc">ref</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">] }</span> group_by2<span class="hl opt">(</span><span class="hl kwb">&#64;_</span><span class="hl opt">)) {</span>
	internal_error<span class="hl opt">(</span><span class="hl str">&quot;gtknew</span> <span class="hl ipl">$class</span><span class="hl str">:</span> <span class="hl ipl">$r</span> <span class="hl str">should be a string in</span> <span class="hl ipl">&#64;_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%opts</span> <span class="hl opt">=</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    _gtk<span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwb">$class,</span> <span class="hl str">&apos;gtknew&apos;</span><span class="hl opt">,</span> \<span class="hl kwb">%opts</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> gtkset <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwc">shift</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$class</span> <span class="hl opt">=</span> <span class="hl kwc">ref</span><span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;_</span> <span class="hl opt">%</span> <span class="hl num">2</span> <span class="hl opt">!=</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	internal_error<span class="hl opt">(</span><span class="hl str">&quot;gtkset</span> <span class="hl ipl">$class</span><span class="hl str">: bad options</span> <span class="hl ipl">&#64;_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$r</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwc">ref</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">] }</span> group_by2<span class="hl opt">(</span><span class="hl kwb">&#64;_</span><span class="hl opt">)) {</span>
	internal_error<span class="hl opt">(</span><span class="hl str">&quot;gtkset</span> <span class="hl ipl">$class</span><span class="hl str">:</span> <span class="hl ipl">$r</span> <span class="hl str">should be a string in</span> <span class="hl ipl">&#64;_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%opts</span> <span class="hl opt">=</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwb">$class</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^(Gtk2|Gtk2::Gdk|mygtk2):://</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;gtkset unknown class</span> <span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    
    _gtk<span class="hl opt">(</span><span class="hl kwb">$w, $class,</span> <span class="hl str">&apos;gtkset&apos;</span><span class="hl opt">,</span> \<span class="hl kwb">%opts</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> gtkadd <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwc">shift</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$class</span> <span class="hl opt">=</span> <span class="hl kwc">ref</span><span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;_</span> <span class="hl opt">%</span> <span class="hl num">2</span> <span class="hl opt">!=</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	internal_error<span class="hl opt">(</span><span class="hl str">&quot;gtkadd</span> <span class="hl ipl">$class</span><span class="hl str">: bad options</span> <span class="hl ipl">&#64;_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$r</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwc">ref</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">] }</span> group_by2<span class="hl opt">(</span><span class="hl kwb">&#64;_</span><span class="hl opt">)) {</span>
	internal_error<span class="hl opt">(</span><span class="hl str">&quot;gtkadd</span> <span class="hl ipl">$class</span><span class="hl str">:</span> <span class="hl ipl">$r</span> <span class="hl str">should be a string in</span> <span class="hl ipl">&#64;_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%opts</span> <span class="hl opt">=</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$class</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^(Gtk2|Gtk2::Gdk|mygtk2):://</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;gtkadd unknown class</span> <span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    
    _gtk<span class="hl opt">(</span><span class="hl kwb">$w, $class,</span> <span class="hl str">&apos;gtkadd&apos;</span><span class="hl opt">,</span> \<span class="hl kwb">%opts</span><span class="hl opt">);</span>
<span class="hl opt">}</span>


<span class="hl kwc">my</span> <span class="hl kwb">%refs</span><span class="hl opt">;</span>

<span class="hl kwa">sub</span> gtkval_register <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $ref, $sub</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>_ref<span class="hl opt">}},</span> <span class="hl kwb">$ref</span><span class="hl opt">;</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>destroy <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
	<span class="hl opt">&#64;{</span><span class="hl kwb">$refs</span><span class="hl opt">{</span><span class="hl kwb">$ref</span><span class="hl opt">}} =</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">1</span><span class="hl opt">] !=</span> <span class="hl kwb">$w</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$refs</span><span class="hl opt">{</span><span class="hl kwb">$ref</span><span class="hl opt">}};</span>
	<span class="hl kwc">delete</span> <span class="hl kwb">$refs</span><span class="hl opt">{</span><span class="hl kwb">$ref</span><span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl opt">!&#64;{</span><span class="hl kwb">$refs</span><span class="hl opt">{</span><span class="hl kwb">$ref</span><span class="hl opt">}};</span>
    <span class="hl opt">});</span>
    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$refs</span><span class="hl opt">{</span><span class="hl kwb">$ref</span><span class="hl opt">}}, [</span> <span class="hl kwb">$sub, $w</span> <span class="hl opt">];</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> gtkval_modify <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$ref, $val, &#64;to_skip</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$prev</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span> <span class="hl opt">.</span> <span class="hl kwb">$ref</span><span class="hl opt">;</span>
    <span class="hl kwb">$$ref</span> <span class="hl opt">=</span> <span class="hl kwb">$val</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$prev</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;&apos;</span> <span class="hl opt">.</span> <span class="hl kwb">$ref</span><span class="hl opt">) {</span>
	internal_error<span class="hl opt">();</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$refs</span><span class="hl opt">{</span><span class="hl kwb">$ref</span><span class="hl opt">} || []}) {</span>	
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$f, &#64;para</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;$_</span><span class="hl opt">;</span>
	<span class="hl kwb">$f</span><span class="hl opt">-&gt;(</span><span class="hl kwb">&#64;para</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">!</span>member<span class="hl opt">(</span><span class="hl kwb">$f, &#64;to_skip</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwc">my</span> <span class="hl kwb">$global_tooltips</span><span class="hl opt">;</span>

<span class="hl kwa">sub</span> _gtk <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $class, $action, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl kwb">$mygtk2</span><span class="hl opt">::{</span><span class="hl str">&quot;_gtk__</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$f</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$w, $opts, $class, $action</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	internal_error<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$action</span> <span class="hl str"></span><span class="hl ipl">$class</span><span class="hl str">: unknown class&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_size_request</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>width<span class="hl opt">} || -</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>height<span class="hl opt">} || -</span><span class="hl num">1</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>width<span class="hl opt">} ||</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>height<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$position</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>position<span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">move</span><span class="hl opt">(</span><span class="hl kwb">$position</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">],</span> <span class="hl kwb">$position</span><span class="hl opt">-&gt;[</span><span class="hl num">1</span><span class="hl opt">]);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_name</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>widget_name<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>widget_name<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">can_focus</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>can_focus<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>can_focus<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">can_default</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>can_default<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>can_default<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">grab_focus</span> <span class="hl kwa">if</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>grab_focus<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_padding</span><span class="hl opt">(&#64;{</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>padding<span class="hl opt">}})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>padding<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_sensitive</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>sensitive<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>sensitive<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>expose_event <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>expose_event<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>expose_event<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>realize <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>realize<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>realize<span class="hl opt">};</span>
    <span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>size_group<span class="hl opt">})-&gt;</span><span class="hl kwd">add_widget</span><span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>size_group<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$tip</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>tip<span class="hl opt">}) {</span>
	<span class="hl kwb">$global_tooltips</span> <span class="hl opt">||=</span> Gtk2<span class="hl opt">::</span>Tooltips-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
	<span class="hl kwb">$global_tooltips</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_tip</span><span class="hl opt">(</span><span class="hl kwb">$w, $tip</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- WARNING: hide_ref and show_ref are not effective until you gtkval_modify the ref</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$hide_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>hide_ref<span class="hl opt">}) {</span>
	gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $hide_ref,</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$$hide_ref</span> ? <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide</span> <span class="hl opt">:</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">show</span> <span class="hl opt">});</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$show_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>show_ref<span class="hl opt">}) {</span>
	gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $show_ref,</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$$show_ref</span> ? <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">show</span> <span class="hl opt">:</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide</span> <span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$sensitive_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>sensitive_ref<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$set</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_sensitive</span><span class="hl opt">(</span><span class="hl kwb">$$sensitive_ref</span><span class="hl opt">) };</span>
	gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $sensitive_ref, $set</span><span class="hl opt">);</span>
	<span class="hl kwb">$set</span><span class="hl opt">-&gt;();</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">%$opts</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>allow_unknown_options<span class="hl opt">}) {</span>
	internal_error<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$action</span> <span class="hl str"></span><span class="hl ipl">$class</span><span class="hl str">: unknown option(s) &quot;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;, &apos;</span><span class="hl opt">,</span> <span class="hl kwc">keys</span> <span class="hl kwb">%$opts</span><span class="hl opt">));</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Install_Button <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $_class</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">} =</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;HBox&apos;</span><span class="hl opt">,</span> spacing <span class="hl opt">=&gt;</span> <span class="hl num">5</span><span class="hl opt">,</span> 
                             children_tight <span class="hl opt">=&gt; [</span>
                                 <span class="hl slc"># FIXME: not RTL compliant (lang::text_direction_rtl() ? ...)</span>
                                 gtknew<span class="hl opt">(</span><span class="hl str">&apos;Image&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&apos;advanced_expander&apos;</span><span class="hl opt">),</span>
                                 gtknew<span class="hl opt">(</span><span class="hl str">&apos;Label&apos;</span><span class="hl opt">,</span> text <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">}),</span>
                             <span class="hl opt">],</span>
                         <span class="hl opt">);</span>
    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>relief<span class="hl opt">} =</span> <span class="hl str">&apos;none&apos;</span><span class="hl opt">;</span>
    _gtk__Button<span class="hl opt">(</span><span class="hl kwb">$w, $opts,</span> <span class="hl str">&apos;Button&apos;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Button       <span class="hl opt">{ &amp;</span>_gtk_any_Button <span class="hl opt">}</span>
<span class="hl kwa">sub</span> _gtk__ToggleButton <span class="hl opt">{ &amp;</span>_gtk_any_Button <span class="hl opt">}</span>
<span class="hl kwa">sub</span> _gtk__CheckButton  <span class="hl opt">{ &amp;</span>_gtk_any_Button <span class="hl opt">}</span>
<span class="hl kwa">sub</span> _gtk__RadioButton  <span class="hl opt">{ &amp;</span>_gtk_any_Button <span class="hl opt">}</span>
<span class="hl kwa">sub</span> _gtk_any_Button <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $class</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
        <span class="hl kwc">my</span> <span class="hl kwb">&#64;radio_options</span><span class="hl opt">;</span>
        <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$class</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;RadioButton&apos;</span><span class="hl opt">) {</span>
            <span class="hl kwb">&#64;radio_options</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>group<span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">}</span> ? <span class="hl str">&quot;Gtk2::</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">-&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwb">&#64;radio_options</span><span class="hl opt">) :</span>
	  <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>mnemonic<span class="hl opt">}</span> ? <span class="hl str">&quot;Gtk2::</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">-&gt;</span><span class="hl kwd">new_with_mnemonic</span><span class="hl opt">(</span><span class="hl kwb">&#64;radio_options,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">} ||</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) :</span>
	    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">}</span> ? <span class="hl str">&quot;Gtk2::</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">-&gt;</span><span class="hl kwd">new_with_label</span><span class="hl opt">(</span><span class="hl kwb">&#64;radio_options,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">} ||</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) :</span>
           <span class="hl str">&quot;Gtk2::</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">-&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwb">&#64;radio_options</span><span class="hl opt">);</span>

	<span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">} =</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">};</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$widget</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">add</span><span class="hl opt">(</span><span class="hl kwb">$widget</span><span class="hl opt">);</span>
	<span class="hl kwb">$widget</span><span class="hl opt">-&gt;</span><span class="hl kwd">show</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_image</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>image<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>image<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_relief</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>relief<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>relief<span class="hl opt">};</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$text_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text_ref<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$set</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	    <span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_label</span><span class="hl opt">(</span>may_apply<span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">},</span> <span class="hl kwb">$$text_ref</span><span class="hl opt">)) };</span>
	<span class="hl opt">};</span>
	gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $text_ref, $set</span><span class="hl opt">);</span>
	<span class="hl kwb">$set</span><span class="hl opt">-&gt;();</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_label</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">});</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>stock<span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_label</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>stock<span class="hl opt">});</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_use_stock</span><span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$class</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Button&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>clicked <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>clicked<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>clicked<span class="hl opt">};</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$active_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>active_ref<span class="hl opt">}) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$set</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_active</span><span class="hl opt">(</span><span class="hl kwb">$$active_ref</span><span class="hl opt">) };</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>toggled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		gtkval_modify<span class="hl opt">(</span><span class="hl kwb">$active_ref, $w</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_active</span><span class="hl opt">,</span> <span class="hl kwb">$set</span><span class="hl opt">);</span>
	    <span class="hl opt">});</span>
	    gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $active_ref, $set</span><span class="hl opt">);</span>
	    gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $active_ref,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>toggled<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>toggled<span class="hl opt">};</span>
	    <span class="hl kwb">$set</span><span class="hl opt">-&gt;();</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_active</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>active<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>active<span class="hl opt">};</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>toggled <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>toggled<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>toggled<span class="hl opt">};</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__CheckMenuItem <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $class</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	add2hash_<span class="hl opt">(</span><span class="hl kwb">$opts,</span> <span class="hl opt">{</span> mnemonic <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">});</span>

	<span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>image<span class="hl opt">} || !</span><span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">}</span> ? <span class="hl str">&quot;Gtk2::</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">-&gt;</span><span class="hl kwd">new</span> <span class="hl opt">:</span>
	  <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>mnemonic<span class="hl opt">}</span> ? <span class="hl str">&quot;Gtk2::</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">-&gt;</span><span class="hl kwd">new_with_label</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">}) :</span>
	    <span class="hl str">&quot;Gtk2::</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">-&gt;</span><span class="hl kwd">new_with_mnemonic</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_active</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>active<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>active<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>toggled <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>toggled<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>toggled<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__SpinButton <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>adjustment<span class="hl opt">} ||=</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
	    add2hash_<span class="hl opt">(</span><span class="hl kwb">$opts,</span> <span class="hl opt">{</span> step_increment <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> page_increment <span class="hl opt">=&gt;</span> <span class="hl num">5</span><span class="hl opt">,</span> page_size <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> value <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>lower<span class="hl opt">} });</span>
	    Gtk2<span class="hl opt">::</span>Adjustment-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>value<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>lower<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>upper<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>step_increment<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>page_increment<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>page_size<span class="hl opt">});</span>
	<span class="hl opt">};</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>SpinButton-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>adjustment<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>climb_rate<span class="hl opt">} ||</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>digits<span class="hl opt">} ||</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>value_changed <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>value_changed<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>value_changed<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__HScale <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>adjustment<span class="hl opt">} ||=</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
	    add2hash_<span class="hl opt">(</span><span class="hl kwb">$opts,</span> <span class="hl opt">{</span> step_increment <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> page_increment <span class="hl opt">=&gt;</span> <span class="hl num">5</span><span class="hl opt">,</span> page_size <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">});</span>
	    add2hash_<span class="hl opt">(</span><span class="hl kwb">$opts,</span> <span class="hl opt">{</span> value <span class="hl opt">=&gt;</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>lower<span class="hl opt">} })</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>value<span class="hl opt">};</span>
	    Gtk2<span class="hl opt">::</span>Adjustment-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>value<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>lower<span class="hl opt">}, (</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>upper<span class="hl opt">}) +</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>step_increment<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>page_increment<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>page_size<span class="hl opt">});</span>
	<span class="hl opt">};</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>HScale-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>adjustment<span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_digits</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>digits<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>digits<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$value_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>value_ref<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$set</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_value</span><span class="hl opt">(</span><span class="hl kwb">$$value_ref</span><span class="hl opt">) };</span>
	gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $value_ref, $set</span><span class="hl opt">);</span>
	<span class="hl kwb">$set</span><span class="hl opt">-&gt;();</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>value_changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		gtkval_modify<span class="hl opt">(</span><span class="hl kwb">$value_ref, $w</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_value</span><span class="hl opt">,</span> <span class="hl kwb">$set</span><span class="hl opt">);</span>
	<span class="hl opt">});</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>value_changed <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>value_changed<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>value_changed<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__ProgressBar <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>ProgressBar-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$fraction_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>fraction_ref<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$set</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_fraction</span><span class="hl opt">(</span><span class="hl kwb">$$fraction_ref</span><span class="hl opt">) };</span>
	gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $fraction_ref, $set</span><span class="hl opt">);</span>
	<span class="hl kwb">$set</span><span class="hl opt">-&gt;();</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>fraction<span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_fraction</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>fraction<span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__VSeparator <span class="hl opt">{ &amp;</span>_gtk_any_simple <span class="hl opt">}</span>
<span class="hl kwa">sub</span> _gtk__HSeparator <span class="hl opt">{ &amp;</span>_gtk_any_simple <span class="hl opt">}</span>
<span class="hl kwa">sub</span> _gtk__Calendar   <span class="hl opt">{ &amp;</span>_gtk_any_simple <span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__DrawingArea <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $_opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>DrawingArea-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Pixbuf <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$name</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">}</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;missing file&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$file</span> <span class="hl opt">=</span> _find_imgfile<span class="hl opt">(</span><span class="hl kwb">$name</span><span class="hl opt">)</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;cannot find image</span> <span class="hl ipl">$name</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$size</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">}) {</span>
	    <span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Gdk<span class="hl opt">::</span>Pixbuf-<span class="hl opt">&gt;</span><span class="hl kwd">new_from_file_at_scale</span><span class="hl opt">(</span><span class="hl kwb">$file, $size, $size,</span> <span class="hl num">1</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Gdk<span class="hl opt">::</span>Pixbuf-<span class="hl opt">&gt;</span><span class="hl kwd">new_from_file</span><span class="hl opt">(</span><span class="hl kwb">$file</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
        <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">flip</span><span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>flip<span class="hl opt">};</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl slc"># Image_using_pixmap is rendered using DITHER_MAX which is much better on 16bpp displays</span>
<span class="hl kwa">sub</span> _gtk__Image_using_pixmap <span class="hl opt">{ &amp;</span>_gtk__Image <span class="hl opt">}</span>
<span class="hl slc"># Image_using_pixbuf is rendered using DITHER_MAX &amp; transparency which is much better on 16bpp displays</span>
<span class="hl kwa">sub</span> _gtk__Image_using_pixbuf <span class="hl opt">{ &amp;</span>_gtk__Image <span class="hl opt">}</span>
<span class="hl kwa">sub</span> _gtk__Image <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $class</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Image-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">} =</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">};</span>
        
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_from_stock</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>stock<span class="hl opt">},</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>stock<span class="hl opt">};</span>

        <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>options<span class="hl opt">} = {</span> flip <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>flip<span class="hl opt">} };</span>

        <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>set_from_file<span class="hl opt">} =</span> <span class="hl kwb">$class</span> <span class="hl opt">=~</span> <span class="hl kwd">/using_pixmap/</span> ? <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
            <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $file</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
            <span class="hl kwc">my</span> <span class="hl kwb">$pixmap</span> <span class="hl opt">=</span> mygtk2<span class="hl opt">::</span>pixmap_from_pixbuf<span class="hl opt">(</span><span class="hl kwb">$w,</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Pixbuf&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl kwb">$file</span><span class="hl opt">));</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_from_pixmap</span><span class="hl opt">(</span><span class="hl kwb">$pixmap,</span> <span class="hl kwc">undef</span><span class="hl opt">);</span>
        <span class="hl opt">} :</span> <span class="hl kwb">$class</span> <span class="hl opt">=~</span> <span class="hl kwd">/using_pixbuf/</span> ? <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
            <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $file</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
            <span class="hl kwc">my</span> <span class="hl kwb">$pixbuf</span> <span class="hl opt">=</span> _pixbuf_render_alpha<span class="hl opt">(</span>gtknew<span class="hl opt">(</span><span class="hl str">&apos;Pixbuf&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl kwb">$file,</span> <span class="hl opt">%{</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>options<span class="hl opt">}}),</span> <span class="hl num">255</span><span class="hl opt">);</span>
            <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$width, $height</span><span class="hl opt">) = (</span><span class="hl kwb">$pixbuf</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_width</span><span class="hl opt">,</span> <span class="hl kwb">$pixbuf</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_height</span><span class="hl opt">);</span>
            <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_size_request</span><span class="hl opt">(</span><span class="hl kwb">$width, $height</span><span class="hl opt">);</span>
            <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>pixbuf<span class="hl opt">} =</span> <span class="hl kwb">$pixbuf</span><span class="hl opt">;</span>
            <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>expose_event <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
                                   <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwb">$event</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
                                   <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>x<span class="hl opt">}) {</span>
                                       <span class="hl kwc">my</span> <span class="hl kwb">$alloc</span> <span class="hl opt">=</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">allocation</span><span class="hl opt">;</span>
                                       <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>x<span class="hl opt">} =</span> <span class="hl kwb">$alloc</span><span class="hl opt">-&gt;</span><span class="hl kwd">x</span><span class="hl opt">;</span>
                                       <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>y<span class="hl opt">} =</span> <span class="hl kwb">$alloc</span><span class="hl opt">-&gt;</span><span class="hl kwd">y</span><span class="hl opt">;</span>
                                   <span class="hl opt">}</span>
                                   <span class="hl slc"># workaround Gtk+ bug: in installer, first event is not complete and rectables are bogus:</span>
                                   <span class="hl kwa">if</span> <span class="hl opt">($::</span>isInstall<span class="hl opt">) {</span>
                                       <span class="hl kwb">$pixbuf</span><span class="hl opt">-&gt;</span><span class="hl kwd">render_to_drawable</span><span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">window</span><span class="hl opt">,</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">style</span><span class="hl opt">-&gt;</span><span class="hl kwd">fg_gc</span><span class="hl opt">(</span><span class="hl str">&apos;normal&apos;</span><span class="hl opt">),</span>
                                                                   <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>x<span class="hl opt">},</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>y<span class="hl opt">},</span> <span class="hl kwb">$width, $height,</span> <span class="hl str">&apos;max&apos;</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
                                       <span class="hl kwa">return</span><span class="hl opt">;</span>
                                   <span class="hl opt">}</span>
                                   <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$rect</span> <span class="hl opt">(</span><span class="hl kwb">$event</span><span class="hl opt">-&gt;</span><span class="hl kwd">region</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_rectangles</span><span class="hl opt">) {</span>
                                       <span class="hl kwc">my</span> <span class="hl kwb">&#64;values</span> <span class="hl opt">=</span> <span class="hl kwb">$rect</span><span class="hl opt">-&gt;</span><span class="hl kwc">values</span><span class="hl opt">;</span>
                                       <span class="hl kwb">$pixbuf</span><span class="hl opt">-&gt;</span><span class="hl kwd">render_to_drawable</span><span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">window</span><span class="hl opt">,</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">style</span><span class="hl opt">-&gt;</span><span class="hl kwd">fg_gc</span><span class="hl opt">(</span><span class="hl str">&apos;normal&apos;</span><span class="hl opt">),</span>
                                                               <span class="hl kwb">&#64;values</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">.</span><span class="hl num">.1</span><span class="hl opt">],</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>x<span class="hl opt">}+</span><span class="hl kwb">$values</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">],</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>y<span class="hl opt">}+</span><span class="hl kwb">$values</span><span class="hl opt">[</span><span class="hl num">1</span><span class="hl opt">],</span> <span class="hl kwb">&#64;values</span><span class="hl opt">[</span><span class="hl num">2</span><span class="hl opt">.</span><span class="hl num">.3</span><span class="hl opt">],</span> <span class="hl str">&apos;max&apos;</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
				   <span class="hl opt">}</span>
                               <span class="hl opt">});</span>
        <span class="hl opt">} :</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
            <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $file, $o_size</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
            <span class="hl kwc">my</span> <span class="hl kwb">$pixbuf</span> <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Pixbuf&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl kwb">$file,</span> if_<span class="hl opt">(</span><span class="hl kwb">$o_size,</span> size <span class="hl opt">=&gt;</span> <span class="hl kwb">$o_size</span><span class="hl opt">), %{</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>options<span class="hl opt">}});</span>
            <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_from_pixbuf</span><span class="hl opt">(</span><span class="hl kwb">$pixbuf</span><span class="hl opt">);</span>
        <span class="hl opt">};</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$name</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$file</span> <span class="hl opt">=</span> _find_imgfile<span class="hl opt">(</span>may_apply<span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">},</span> <span class="hl kwb">$name</span><span class="hl opt">))</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;cannot find image</span> <span class="hl ipl">$name</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>set_from_file<span class="hl opt">}-&gt;(</span><span class="hl kwb">$w, $file,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">});</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$file_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>file_ref<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$set</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$file</span> <span class="hl opt">=</span> _find_imgfile<span class="hl opt">(</span>may_apply<span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">},</span> <span class="hl kwb">$$file_ref</span><span class="hl opt">))</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;cannot find image</span> <span class="hl ipl">$$file_ref</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>set_from_file<span class="hl opt">}-&gt;(</span><span class="hl kwb">$w, $file,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">});</span>
	<span class="hl opt">};</span>
	gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $file_ref, $set</span><span class="hl opt">);</span>
	<span class="hl kwb">$set</span><span class="hl opt">-&gt;()</span> <span class="hl kwa">if</span> <span class="hl kwb">$$file_ref</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__WrappedLabel <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    
    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>line_wrap<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwc">defined</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>line_wrap<span class="hl opt">};</span>
    _gtk__Label<span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwc">our</span> <span class="hl kwb">$left_padding</span> <span class="hl opt">=</span> <span class="hl num">20</span><span class="hl opt">;</span>

<span class="hl kwa">sub</span> _gtk__Label_Left <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>alignment<span class="hl opt">} ||= [</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">0</span> <span class="hl opt">];</span>
    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>padding<span class="hl opt">} ||= [</span> <span class="hl kwb">$left_padding,</span> <span class="hl num">0</span> <span class="hl opt">];</span>
    _gtk__WrappedLabel<span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Label_Right <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>alignment<span class="hl opt">} ||= [</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl num">0.5</span> <span class="hl opt">];</span>
    _gtk__Label<span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">);</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> _gtk__Label <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_text</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">};</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">}</span> ? Gtk2<span class="hl opt">::</span>Label-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">}) :</span> Gtk2<span class="hl opt">::</span>Label-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_selectable</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>selectable<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>selectable<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_ellipsize</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>ellipsize<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>ellipsize<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_justify</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>justify<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>justify<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_line_wrap</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>line_wrap<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>line_wrap<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_alignment</span><span class="hl opt">(&#64;{</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>alignment<span class="hl opt">}})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>alignment<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">modify_font</span><span class="hl opt">(</span>Gtk2<span class="hl opt">::</span>Pango<span class="hl opt">::</span>FontDescription-<span class="hl opt">&gt;</span><span class="hl kwd">from_string</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>font<span class="hl opt">}))</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>font<span class="hl opt">};</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$text_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text_ref<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$set</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_text</span><span class="hl opt">(</span><span class="hl kwb">$$text_ref</span><span class="hl opt">) };</span>
	gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $text_ref, $set</span><span class="hl opt">);</span>
	<span class="hl kwb">$set</span><span class="hl opt">-&gt;();</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$t</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text_markup<span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_markup</span><span class="hl opt">(</span><span class="hl kwb">$t</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_text</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;invalid markup in</span> <span class="hl ipl">$t</span><span class="hl str">. not using the markup&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_text</span><span class="hl opt">(</span><span class="hl kwb">$t</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> _gtk__Alignment <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $_opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Alignment-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> title1_to_markup <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$label</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">($::</span>isInstall<span class="hl opt">) {</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$font</span> <span class="hl opt">=</span> lang<span class="hl opt">::</span>l2pango_font<span class="hl opt">($::</span>o-<span class="hl opt">&gt;{</span>locale<span class="hl opt">}{</span>lang<span class="hl opt">});</span>
        <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$font_size</span><span class="hl opt">) =</span> <span class="hl kwb">$font</span> <span class="hl opt">=~</span> <span class="hl kwd">/(\d+)/</span><span class="hl opt">) {</span>
            <span class="hl kwb">$font_size++</span><span class="hl opt">;</span>
            <span class="hl kwb">$font</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\d+/$font_size/</span><span class="hl opt">;</span>
        <span class="hl opt">}</span>
        <span class="hl str">qq(&lt;span foreground=&quot;#5A8AD6&quot; font=&quot;</span><span class="hl ipl">$font</span><span class="hl str">&quot;&gt;</span><span class="hl ipl">$label</span><span class="hl str">&lt;/span&gt;)</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
        <span class="hl str">qq(&lt;b&gt;&lt;big&gt;</span><span class="hl ipl">$label</span><span class="hl str">&lt;/big&gt;&lt;/b&gt;)</span><span class="hl opt">;</span>
  <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Install_Title <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">local</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>widget_name<span class="hl opt">} =</span> <span class="hl str">&apos;Banner&apos;</span><span class="hl opt">;</span>
    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">} =</span> <span class="hl kwc">uc</span><span class="hl opt">(</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
    gtknew<span class="hl opt">(</span><span class="hl str">&apos;HBox&apos;</span><span class="hl opt">,</span> widget_name <span class="hl opt">=&gt;</span> <span class="hl str">&apos;Banner&apos;</span><span class="hl opt">,</span> children <span class="hl opt">=&gt; [</span>
        <span class="hl num">0</span><span class="hl opt">,</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Label&apos;</span><span class="hl opt">,</span> padding <span class="hl opt">=&gt; [</span> <span class="hl num">6</span><span class="hl opt">,</span> <span class="hl num">0</span> <span class="hl opt">]),</span>
        <span class="hl num">1</span><span class="hl opt">,</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;VBox&apos;</span><span class="hl opt">,</span> widget_name <span class="hl opt">=&gt;</span> <span class="hl str">&apos;Banner&apos;</span><span class="hl opt">,</span> children_tight <span class="hl opt">=&gt; [</span>
            _gtk__Title2<span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">),</span>
            if_<span class="hl opt">($::</span>isInstall<span class="hl opt">,</span> Gtk2<span class="hl opt">::</span>HSeparator-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">),</span>
        <span class="hl opt">]),</span>
        <span class="hl num">0</span><span class="hl opt">,</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Label&apos;</span><span class="hl opt">,</span> padding <span class="hl opt">=&gt; [</span> <span class="hl num">6</span><span class="hl opt">,</span> <span class="hl num">0</span> <span class="hl opt">]),</span>
    <span class="hl opt">]);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Title1 <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$opts</span> <span class="hl opt">||= {};</span>
    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text_markup<span class="hl opt">} =</span> title1_to_markup<span class="hl opt">(</span><span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">}))</span> <span class="hl kwa">if</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>label<span class="hl opt">};</span>
    _gtk__WrappedLabel<span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Title2 <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$opts</span> <span class="hl opt">||= {};</span>
    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>alignment<span class="hl opt">} = [</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">0</span> <span class="hl opt">];</span>
    _gtk__Title1<span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Sexy_IconEntry <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">require</span> Gtk2<span class="hl opt">::</span>Sexy<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Sexy<span class="hl opt">::</span>IconEntry-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_editable</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>editable<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>editable<span class="hl opt">};</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">add_clear_button</span> <span class="hl kwa">if</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>clear_button<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$icon</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>primary_icon<span class="hl opt">}) {</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_icon</span><span class="hl opt">(</span><span class="hl str">&apos;primary&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$icon</span><span class="hl opt">);</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_icon_highlight</span><span class="hl opt">(</span><span class="hl str">&apos;primary&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$icon</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$icon</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>secondary_icon<span class="hl opt">}) {</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_icon</span><span class="hl opt">(</span><span class="hl str">&apos;secondary&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$icon</span><span class="hl opt">);</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_icon_highlight</span><span class="hl opt">(</span><span class="hl str">&apos;secondary&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$icon</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span><span class="hl str">&apos;icon-released&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;icon-released&apos;</span><span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;icon-released&apos;</span><span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span><span class="hl str">&apos;icon-pressed&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;icon-pressed&apos;</span><span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;icon-pressed&apos;</span><span class="hl opt">};</span>

    _gtk__Entry<span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Entry <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Entry-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_editable</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>editable<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>editable<span class="hl opt">};</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$icon</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>primary_icon<span class="hl opt">}) {</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_icon_from_stock</span><span class="hl opt">(</span><span class="hl str">&apos;primary&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$icon</span><span class="hl opt">);</span>
        <span class="hl slc">#$w-&gt;set_icon_highlight(&apos;primary&apos;, $icon);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$icon</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>secondary_icon<span class="hl opt">}) {</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_icon_from_stock</span><span class="hl opt">(</span><span class="hl str">&apos;secondary&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$icon</span><span class="hl opt">);</span>
        <span class="hl slc">#$w-&gt;set_icon_highlight(&apos;secondary&apos;, $icon);</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span><span class="hl str">&apos;icon-release&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;icon-release&apos;</span><span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;icon-release&apos;</span><span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span><span class="hl str">&apos;icon-press&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;icon-press&apos;</span><span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;icon-press&apos;</span><span class="hl opt">};</span>

    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_text</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>key_press_event <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>key_press_event<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>key_press_event<span class="hl opt">};</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$text_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text_ref<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$set</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_text</span><span class="hl opt">(</span><span class="hl kwb">$$text_ref</span><span class="hl opt">) };</span>
	gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $text_ref, $set</span><span class="hl opt">);</span>
	<span class="hl kwb">$set</span><span class="hl opt">-&gt;();</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		gtkval_modify<span class="hl opt">(</span><span class="hl kwb">$text_ref, $w</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_text</span><span class="hl opt">,</span> <span class="hl kwb">$set</span><span class="hl opt">);</span>
	<span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__WeaknessCheckEntry <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> _gtk__Entry<span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span><span class="hl str">&apos;changed&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwa">require</span> authentication<span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$password_weakness</span> <span class="hl opt">=</span> authentication<span class="hl opt">::</span>compute_password_weakness<span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_text</span><span class="hl opt">);</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_icon_from_pixbuf</span><span class="hl opt">(</span><span class="hl str">&apos;GTK_ENTRY_ICON_SECONDARY&apos;</span><span class="hl opt">,</span> _get_weakness_icon<span class="hl opt">(</span><span class="hl kwb">$password_weakness</span><span class="hl opt">));</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_icon_tooltip_text</span><span class="hl opt">(</span><span class="hl str">&apos;GTK_ENTRY_ICON_SECONDARY&apos;</span><span class="hl opt">,</span> _get_weakness_tooltip<span class="hl opt">(</span><span class="hl kwb">$password_weakness</span><span class="hl opt">));</span>
    <span class="hl opt">});</span>

    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__TextView <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $_class, $action</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>TextView-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_editable</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>editable<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>editable<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_wrap_mode</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>wrap_mode<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>wrap_mode<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_cursor_visible</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>cursor_visible<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>cursor_visible<span class="hl opt">};</span>
    <span class="hl opt">}</span>

    _text_insert<span class="hl opt">(</span><span class="hl kwb">$w,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">},</span> append <span class="hl opt">=&gt;</span> <span class="hl kwb">$action</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;gtkadd&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">};</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__WebKit_View <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $_class, $_action</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
        <span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>WebKit<span class="hl opt">::</span>WebView-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># disable contextual menu:</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>no_popup_menu<span class="hl opt">}) {</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span><span class="hl str">&apos;populate-popup&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
                               <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwb">$menu</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
                               <span class="hl kwb">$menu</span><span class="hl opt">-&gt;</span><span class="hl kwd">destroy</span> <span class="hl kwa">if</span> <span class="hl kwb">$menu</span><span class="hl opt">;</span>
                               <span class="hl num">1</span><span class="hl opt">;</span>
                           <span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__ComboBox <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $_class, $action</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>ComboBox-<span class="hl opt">&gt;</span><span class="hl kwd">new_text</span><span class="hl opt">;</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">} =</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">};</span>

    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$set_list</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>formatted_list<span class="hl opt">} =</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">}</span> ? <span class="hl opt">[</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">}(</span><span class="hl kwb">$_</span><span class="hl opt">) } &#64;{</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} ] :</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_model</span><span class="hl opt">-&gt;</span><span class="hl kwd">clear</span><span class="hl opt">;</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>strings<span class="hl opt">} =</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>formatted_list<span class="hl opt">};</span>  <span class="hl slc"># used by Gtk2::ComboBox wrappers such as get_text() in ugtk2</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">append_text</span><span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>formatted_list<span class="hl opt">}};</span>
    <span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$list_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>list_ref<span class="hl opt">}) {</span>
	<span class="hl opt">!</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;both list and list_ref&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$set</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">} =</span> <span class="hl kwb">$$list_ref</span><span class="hl opt">;</span>
	    <span class="hl kwb">$set_list</span><span class="hl opt">-&gt;();</span>
	<span class="hl opt">};</span>
	gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $list_ref, $set</span><span class="hl opt">);</span>
	<span class="hl kwb">$set</span><span class="hl opt">-&gt;();</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">} =</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">};</span>
	<span class="hl kwb">$set_list</span><span class="hl opt">-&gt;();</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$action</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;gtknew&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$text_ref</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text_ref<span class="hl opt">}) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$set</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$val</span> <span class="hl opt">=</span> may_apply<span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>format<span class="hl opt">},</span> <span class="hl kwb">$$text_ref</span><span class="hl opt">);</span>
		<span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_active</span><span class="hl opt">(</span>find_index <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl kwc">eq</span> <span class="hl kwb">$val</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>formatted_list<span class="hl opt">}}) };</span>
	    <span class="hl opt">};</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		gtkval_modify<span class="hl opt">(</span><span class="hl kwb">$text_ref, $w</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}[</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_active</span><span class="hl opt">],</span> <span class="hl kwb">$set</span><span class="hl opt">);</span>
	    <span class="hl opt">});</span>
	    gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $text_ref, $set</span><span class="hl opt">);</span>
	    gtkval_register<span class="hl opt">(</span><span class="hl kwb">$w, $text_ref,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>changed<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>changed<span class="hl opt">};</span>
	    <span class="hl kwb">$set</span><span class="hl opt">-&gt;();</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$val</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">};</span>
	    <span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_active</span><span class="hl opt">(</span>find_index <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl kwc">eq</span> <span class="hl kwb">$val</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;{</span>formatted_list<span class="hl opt">}}) }</span> <span class="hl kwa">if</span> <span class="hl kwc">defined</span> <span class="hl kwb">$val</span><span class="hl opt">;</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>changed <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>changed<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>changed<span class="hl opt">};</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__ScrolledWindow <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $_class, $action</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>ScrolledWindow-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">);</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_policy</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>h_policy<span class="hl opt">} ||</span> <span class="hl str">&apos;automatic&apos;</span><span class="hl opt">,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>v_policy<span class="hl opt">} ||</span> <span class="hl str">&apos;automatic&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$faked_w</span> <span class="hl opt">=</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$child</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">}) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>member<span class="hl opt">(</span><span class="hl kwc">ref</span><span class="hl opt">(</span><span class="hl kwb">$child</span><span class="hl opt">),</span> <span class="hl str">qw(Gtk2::Layout Gtk2::Html2::View  Gtk2::SimpleList Gtk2::SourceView::View Gtk2::Text Gtk2::TextView Gtk2::TreeView Gtk2::WebKit::WebView)</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">add</span><span class="hl opt">(</span><span class="hl kwb">$child</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">add_with_viewport</span><span class="hl opt">(</span><span class="hl kwb">$child</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$child</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_focus_vadjustment</span><span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_vadjustment</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$child</span><span class="hl opt">-&gt;</span><span class="hl kwd">can</span><span class="hl opt">(</span><span class="hl str">&apos;set_focus_vadjustment&apos;</span><span class="hl opt">);</span>
	<span class="hl kwb">$child</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_left_margin</span><span class="hl opt">(</span><span class="hl num">6</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwc">ref</span><span class="hl opt">(</span><span class="hl kwb">$child</span><span class="hl opt">) =~</span> <span class="hl kwd">/Gtk2::TextView/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$child</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_left_margin</span> <span class="hl opt">&lt;=</span> <span class="hl num">6</span><span class="hl opt">;</span>
	<span class="hl kwb">$child</span><span class="hl opt">-&gt;</span><span class="hl kwd">show</span><span class="hl opt">;</span>

	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">child</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_shadow_type</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>shadow_type<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>shadow_type<span class="hl opt">};</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">ref</span><span class="hl opt">(</span><span class="hl kwb">$child</span><span class="hl opt">)</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Gtk2::TextView&apos;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>to_bottom<span class="hl opt">}) {</span>
	    <span class="hl kwb">$child</span><span class="hl opt">-&gt;{</span>to_bottom<span class="hl opt">} =</span> _allow_scroll_TextView_to_bottom<span class="hl opt">(</span><span class="hl kwb">$w, $child</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>

	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>no_shadow<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$action</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;gtknew&apos;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwc">ref</span><span class="hl opt">(</span><span class="hl kwb">$child</span><span class="hl opt">) =~</span> <span class="hl kwd">/Gtk2::(Html2|SimpleList|TextView|TreeView|WebKit::WebView)/</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$faked_w</span> <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Frame&apos;</span><span class="hl opt">,</span> shadow_type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;in&apos;</span><span class="hl opt">,</span> child <span class="hl opt">=&gt;</span> <span class="hl kwb">$w</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$faked_w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Frame <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_label</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">};</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Frame-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">});</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_border_width</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>border_width<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>border_width<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_shadow_type</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>shadow_type<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>shadow_type<span class="hl opt">};</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$child</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">add</span><span class="hl opt">(</span><span class="hl kwb">$child</span><span class="hl opt">);</span>
	<span class="hl kwb">$child</span><span class="hl opt">-&gt;</span><span class="hl kwd">show</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Expander <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_label</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">};</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Expander-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>text<span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>activate <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>activate<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>activate<span class="hl opt">};</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$child</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">add</span><span class="hl opt">(</span><span class="hl kwb">$child</span><span class="hl opt">);</span>
	<span class="hl kwb">$child</span><span class="hl opt">-&gt;</span><span class="hl kwd">show</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>



<span class="hl kwa">sub</span> _gtk__MDV_Notebook <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $_class, $_action</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
        import_style_ressources<span class="hl opt">();</span>

        <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$layout, $selection_arrow, $selection_bar</span><span class="hl opt">);</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$parent_window</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>parent_window<span class="hl opt">} ||</span> root_window<span class="hl opt">();</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$root_height</span> <span class="hl opt">=</span> first<span class="hl opt">(</span><span class="hl kwb">$parent_window</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_size</span><span class="hl opt">);</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$suffix</span> <span class="hl opt">=</span> <span class="hl kwb">$root_height</span> <span class="hl opt">==</span> <span class="hl num">800</span> <span class="hl opt">&amp;&amp; !$::</span>isStandalone ? <span class="hl str">&apos;_600&apos;</span> <span class="hl opt">:</span> <span class="hl str">&apos;_768&apos;</span><span class="hl opt">;</span>
        <span class="hl slc"># the white square is a little bit above the actual left sidepanel:</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$offset</span> <span class="hl opt">=</span> <span class="hl num">20</span><span class="hl opt">;</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$is_flip_needed</span> <span class="hl opt">=</span> text_direction_rtl<span class="hl opt">();</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$filler</span> <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Image&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&apos;left-background-filler.png&apos;</span><span class="hl opt">);</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$filler_height</span> <span class="hl opt">=</span> <span class="hl kwb">$filler</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_pixbuf</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_height</span><span class="hl opt">;</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$left_background</span> <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Image_using_pixbuf&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&apos;left-background.png&apos;</span><span class="hl opt">);</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$lf_height</span> <span class="hl opt">=</span> <span class="hl kwb">$left_background</span><span class="hl opt">-&gt;{</span>pixbuf<span class="hl opt">}-&gt;</span><span class="hl kwd">get_height</span><span class="hl opt">;</span>
        <span class="hl kwc">my</span> <span class="hl kwb">&#64;right_background</span> <span class="hl opt">= $::</span>isInstall ? 
          gtknew<span class="hl opt">(</span><span class="hl str">&apos;Image&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&quot;right-white-background_left_part</span><span class="hl ipl">$suffix</span><span class="hl str">&quot;</span><span class="hl opt">,</span> flip <span class="hl opt">=&gt;</span> <span class="hl kwb">$is_flip_needed</span><span class="hl opt">)</span>
            <span class="hl opt">:</span> <span class="hl kwc">map</span> <span class="hl opt">{</span>
                gtknew<span class="hl opt">(</span><span class="hl str">&apos;Image&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&quot;right-white-background_left_part-</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">,</span> flip <span class="hl opt">=&gt;</span> <span class="hl kwb">$is_flip_needed</span><span class="hl opt">);</span>
            <span class="hl opt">}</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl num">2</span><span class="hl opt">,</span> <span class="hl num">2</span><span class="hl opt">,</span> <span class="hl num">3</span><span class="hl opt">;</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$width1</span> <span class="hl opt">=</span> <span class="hl kwb">$left_background</span><span class="hl opt">-&gt;{</span>pixbuf<span class="hl opt">}-&gt;</span><span class="hl kwd">get_width</span><span class="hl opt">;</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$total_width</span> <span class="hl opt">=</span> <span class="hl kwb">$width1</span> <span class="hl opt">+</span> <span class="hl kwb">$right_background</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]-&gt;</span><span class="hl kwd">get_pixbuf</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_width</span><span class="hl opt">;</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$arrow_x</span> <span class="hl opt">=</span> text_direction_rtl<span class="hl opt">()</span> ? <span class="hl kwb">$offset/2</span> <span class="hl opt">-</span> <span class="hl num">4</span> <span class="hl opt">:</span> <span class="hl kwb">$width1</span> <span class="hl opt">-</span> <span class="hl kwb">$offset</span> <span class="hl opt">-</span> <span class="hl num">3</span><span class="hl opt">;</span>
        <span class="hl kwb">$w</span> <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;HBox&apos;</span><span class="hl opt">,</span> spacing <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> children <span class="hl opt">=&gt; [</span>
            <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$layout</span> <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Layout&apos;</span><span class="hl opt">,</span> width <span class="hl opt">=&gt;</span> <span class="hl kwb">$total_width</span> <span class="hl opt">-</span> <span class="hl kwb">$offset,</span> children <span class="hl opt">=&gt; [</span> <span class="hl slc">#Layout Fixed</span>
                <span class="hl slc"># stacking order is important for &quot;Z-buffer&quot;:</span>
                <span class="hl opt">[</span> <span class="hl kwb">$left_background,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">0</span> <span class="hl opt">],</span>
                if_<span class="hl opt">(</span><span class="hl kwb">$suffix</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;_600&apos;</span><span class="hl opt">,</span>
                   <span class="hl opt">[</span> <span class="hl kwb">$filler,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$lf_height</span> <span class="hl opt">],</span>
                   <span class="hl opt">[</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Image&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&apos;left-background-filler.png&apos;</span><span class="hl opt">),</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$lf_height</span> <span class="hl opt">+</span> <span class="hl kwb">$filler_height</span> <span class="hl opt">],</span>
                   <span class="hl opt">[</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Image&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&apos;left-background-filler.png&apos;</span><span class="hl opt">),</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$lf_height</span> <span class="hl opt">+</span> <span class="hl kwb">$filler_height*2</span> <span class="hl opt">],</span>
                <span class="hl opt">),</span>
                <span class="hl opt">[</span> <span class="hl kwb">$selection_bar</span> <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Image&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&apos;rollover.png&apos;</span><span class="hl opt">),</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">0</span> <span class="hl opt">],</span> <span class="hl slc"># arbitrary vertical position</span>
                <span class="hl opt">(</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>children<span class="hl opt">}</span> ? <span class="hl opt">&#64;{</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>children<span class="hl opt">} } : ()),</span>
                <span class="hl opt">[</span> <span class="hl kwc">my</span> <span class="hl kwb">$box</span> <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;VBox&apos;</span><span class="hl opt">,</span> spacing <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> height <span class="hl opt">=&gt; -</span><span class="hl num">1</span><span class="hl opt">,</span> children <span class="hl opt">=&gt; [</span>
                    <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$right_background</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">],</span>
                    if_<span class="hl opt">(!$::</span>isInstall<span class="hl opt">,</span>
                        <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwb">$right_background</span><span class="hl opt">[</span><span class="hl num">1</span><span class="hl opt">],</span>
                        <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwb">$right_background</span><span class="hl opt">[</span><span class="hl num">2</span><span class="hl opt">],</span> <span class="hl slc"># enought up to to XYZx1280 resolution</span>
                        <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$right_background</span><span class="hl opt">[</span><span class="hl num">3</span><span class="hl opt">],</span>
                    <span class="hl opt">),</span>
                <span class="hl opt">]), (</span>text_direction_rtl<span class="hl opt">()</span> ? <span class="hl num">0</span> <span class="hl opt">:</span> <span class="hl kwb">$width1</span> <span class="hl opt">-</span> <span class="hl kwb">$offset</span><span class="hl opt">),</span> <span class="hl num">0</span> <span class="hl opt">],</span>
                <span class="hl slc"># stack on top (vertical position is arbitrary):</span>
                <span class="hl opt">[</span> <span class="hl kwb">$selection_arrow</span> <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Image&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&apos;steps_on&apos;</span><span class="hl opt">,</span> flip <span class="hl opt">=&gt;</span> <span class="hl kwb">$is_flip_needed</span><span class="hl opt">),</span> <span class="hl kwb">$arrow_x,</span> <span class="hl num">0</span><span class="hl opt">, ],</span>
            <span class="hl opt">]),</span>
            <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>right_child<span class="hl opt">} ||</span> 
              gtknew<span class="hl opt">(</span><span class="hl str">&apos;Image_using_pixbuf&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&quot;right-white-background_right_part</span><span class="hl ipl">$suffix</span><span class="hl str">&quot;</span><span class="hl opt">,</span> flip <span class="hl opt">=&gt;</span> <span class="hl kwb">$is_flip_needed</span><span class="hl opt">),</span>
        <span class="hl opt">]);</span>

        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span><span class="hl str">&apos;size-allocate&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
                               <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwb">$requisition</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
                               <span class="hl kwc">state</span> <span class="hl kwb">$width</span> <span class="hl opt">||=</span> <span class="hl kwb">$right_background</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]-&gt;</span><span class="hl kwd">get_pixbuf</span><span class="hl opt">-&gt;</span><span class="hl kwd">get_width</span><span class="hl opt">;</span>
                               <span class="hl kwb">$box</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_size_request</span><span class="hl opt">(</span><span class="hl kwb">$width, $requisition</span><span class="hl opt">-&gt;</span><span class="hl kwd">height</span><span class="hl opt">);</span>
                           <span class="hl opt">});</span>
        <span class="hl kwb">$_</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_property</span><span class="hl opt">(</span><span class="hl str">&apos;no-show-all&apos;</span><span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwb">$selection_bar, $selection_arrow</span><span class="hl opt">;</span>
        <span class="hl kwc">bless</span><span class="hl opt">(</span><span class="hl kwb">$w,</span> <span class="hl str">&apos;Gtk2::MDV_Notebook&apos;</span><span class="hl opt">);</span>
        add2hash<span class="hl opt">(</span><span class="hl kwb">$w,</span> <span class="hl opt">{</span>
            arrow_x         <span class="hl opt">=&gt;</span> <span class="hl kwb">$arrow_x,</span>
            layout          <span class="hl opt">=&gt;</span> <span class="hl kwb">$layout,</span>
            selection_arrow <span class="hl opt">=&gt;</span> <span class="hl kwb">$selection_arrow,</span>
            selection_bar   <span class="hl opt">=&gt;</span><span class="hl kwb">$selection_bar,</span>
        <span class="hl opt">});</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> _gtk__Fixed <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $_class, $_action</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Fixed-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_has_window</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>has_window<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>has_window<span class="hl opt">};</span>
        _gtknew_handle_layout_children<span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__Layout <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $_class, $_action</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Layout-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
        _gtknew_handle_layout_children<span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtknew_handle_layout_children <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
        <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>children<span class="hl opt">} ||= [];</span>
        <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>children<span class="hl opt">}}, [</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>x<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>y<span class="hl opt">} ]</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">};</span>
        <span class="hl kwa">foreach</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>children<span class="hl opt">}}) {</span>
            <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">put</span><span class="hl opt">(</span><span class="hl kwb">&#64;$_</span><span class="hl opt">);</span>
        <span class="hl opt">}</span>
        <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>children<span class="hl opt">};</span>

        <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>pixbuf_file<span class="hl opt">}) {</span>
            <span class="hl kwc">my</span> <span class="hl kwb">$pixbuf</span> <span class="hl opt">=</span> if_<span class="hl opt">(</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>pixbuf_file<span class="hl opt">},</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;Pixbuf&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>pixbuf_file<span class="hl opt">}));</span>
            <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>
                realize <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
                    ugtk2<span class="hl opt">::</span>set_back_pixbuf<span class="hl opt">(</span><span class="hl kwb">$w, $pixbuf</span><span class="hl opt">);</span>
                <span class="hl opt">});</span>
        <span class="hl opt">}</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> _gtk__Window <span class="hl opt">{ &amp;</span>_gtk_any_Window <span class="hl opt">}</span>
<span class="hl kwa">sub</span> _gtk__Dialog <span class="hl opt">{ &amp;</span>_gtk_any_Window <span class="hl opt">}</span>
<span class="hl kwa">sub</span> _gtk__Plug   <span class="hl opt">{ &amp;</span>_gtk_any_Window <span class="hl opt">}</span>
<span class="hl kwa">sub</span> _gtk_any_Window <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts, $class</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$class</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Window&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl str">&quot;Gtk2::</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">-&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} ||</span> <span class="hl str">&apos;toplevel&apos;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$class</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Plug&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>socket_id<span class="hl opt">}</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;cannot create a Plug without a socket_id&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl str">&quot;Gtk2::</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">-&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>socket_id<span class="hl opt">});</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$class</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;FileChooserDialog&apos;</span><span class="hl opt">) {</span>
            <span class="hl kwc">my</span> <span class="hl kwb">$action</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>action<span class="hl opt">} ||</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;missing action for FileChooser&quot;</span><span class="hl opt">);</span>
            <span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>FileChooserDialog-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">},</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>transient_for<span class="hl opt">} || $::</span>main_window<span class="hl opt">,</span>
                                              <span class="hl kwb">$action,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Cancel&quot;</span><span class="hl opt">) =&gt;</span> <span class="hl str">&apos;cancel&apos;</span><span class="hl opt">,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>button1<span class="hl opt">} ||</span> N<span class="hl opt">(</span><span class="hl str">&quot;Ok&quot;</span><span class="hl opt">) =&gt;</span> <span class="hl str">&apos;ok&apos;</span><span class="hl opt">,</span>
                                          <span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl str">&quot;Gtk2::</span><span class="hl ipl">$class</span><span class="hl str">&quot;</span><span class="hl opt">-&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>

	<span class="hl kwa">if</span> <span class="hl opt">($::</span>isInstall <span class="hl opt">|| $::</span>set_dialog_hint<span class="hl opt">) {</span>
	    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_type_hint</span><span class="hl opt">(</span><span class="hl str">&apos;dialog&apos;</span><span class="hl opt">);</span> <span class="hl slc"># for matchbox window manager</span>
	<span class="hl opt">}</span>

	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_modal</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>modal<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>modal<span class="hl opt">};</span>
	<span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>transient_for<span class="hl opt">} ||= $::</span>main_window <span class="hl kwa">if</span> <span class="hl opt">$::</span>main_window<span class="hl opt">;</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_modal</span><span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>transient_for<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_transient_for</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>transient_for<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>transient_for<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_border_width</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>border_width<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>border_width<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_shadow_type</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>shadow_type<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>shadow_type<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_position</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>position_policy<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>position_policy<span class="hl opt">};</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_default_size</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>default_width<span class="hl opt">} || -</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>default_height<span class="hl opt">} || -</span><span class="hl num">1</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>default_width<span class="hl opt">} ||</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>default_height<span class="hl opt">};</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$icon_no_error</span> <span class="hl opt">=</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>icon_no_error<span class="hl opt">};</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$name</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>icon<span class="hl opt">} ||</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>icon_no_error<span class="hl opt">}) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> _find_imgfile<span class="hl opt">(</span><span class="hl kwb">$name</span><span class="hl opt">)) {</span>
		<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_icon</span><span class="hl opt">(</span>gtknew<span class="hl opt">(</span><span class="hl str">&apos;Pixbuf&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl kwb">$f</span><span class="hl opt">));</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(!</span><span class="hl kwb">$icon_no_error</span><span class="hl opt">) {</span>
		internal_error<span class="hl opt">(</span><span class="hl str">&quot;cannot find</span> <span class="hl ipl">$name</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_title</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">};</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$child</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">}) {</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">add</span><span class="hl opt">(</span><span class="hl kwb">$child</span><span class="hl opt">);</span>
	<span class="hl kwb">$child</span><span class="hl opt">-&gt;</span><span class="hl kwd">show</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$w</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwc">my</span> <span class="hl kwb">$previous_popped_and_reuse_window</span><span class="hl opt">;</span>

<span class="hl kwa">sub</span> destroy_previous_popped_and_reuse_window<span class="hl opt">() {</span>
    <span class="hl kwb">$previous_popped_and_reuse_window</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwb">$previous_popped_and_reuse_window</span><span class="hl opt">-&gt;</span><span class="hl kwd">destroy</span><span class="hl opt">;</span>
    <span class="hl kwb">$previous_popped_and_reuse_window</span> <span class="hl opt">=</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _gtk__MagicWindow <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$pop_it</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>pop_it<span class="hl opt">} || !$::</span>isWizard <span class="hl opt">&amp;&amp; !$::</span>isEmbedded <span class="hl opt">|| $::</span>WizardTable <span class="hl opt">&amp;&amp;</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
	<span class="hl slc">#- do not take into account the wizard banner</span>
        <span class="hl slc"># FIXME!!!</span>
	any <span class="hl opt">{ !</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;</span><span class="hl kwd">isa</span><span class="hl opt">(</span><span class="hl str">&apos;Gtk2::DrawingArea&apos;</span><span class="hl opt">) &amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;</span><span class="hl kwd">visible</span> <span class="hl opt">} $::</span>WizardTable-<span class="hl opt">&gt;</span><span class="hl kwd">get_children</span><span class="hl opt">;</span>
    <span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$pop_and_reuse</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>pop_and_reuse<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$pop_it</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$sub_child</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$provided_banner</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>banner<span class="hl opt">};</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$pop_it</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$provided_banner</span><span class="hl opt">) {</span>
	<span class="hl kwb">$sub_child</span> <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;VBox&apos;</span><span class="hl opt">,</span> children <span class="hl opt">=&gt; [</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwb">$provided_banner,</span> if_<span class="hl opt">(</span><span class="hl kwb">$sub_child,</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwb">$sub_child</span><span class="hl opt">) ]);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$sub_child</span> <span class="hl opt">||=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;VBox&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$pop_and_reuse</span><span class="hl opt">) {</span>
	destroy_previous_popped_and_reuse_window<span class="hl opt">();</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$previous_popped_and_reuse_window</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$pop_and_reuse</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$previous_popped_and_reuse_window</span><span class="hl opt">;</span>
	<span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">remove</span><span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">child</span><span class="hl opt">);</span>

	gtkadd<span class="hl opt">(</span><span class="hl kwb">$w,</span> child <span class="hl opt">=&gt;</span> <span class="hl kwb">$sub_child</span><span class="hl opt">);</span>
	<span class="hl kwb">%$opts</span> <span class="hl opt">= ();</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$pop_it</span><span class="hl opt">) {</span>
	<span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>child<span class="hl opt">} =</span> <span class="hl kwb">$sub_child</span><span class="hl opt">;</span>

	<span class="hl kwb">$w</span> <span class="hl opt">=</span> _create_Window<span class="hl opt">(</span><span class="hl kwb">$opts,</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">);</span>
	<span class="hl kwb">$previous_popped_and_reuse_window</span> <span class="hl opt">=</span> <span class="hl kwb">$w</span> <span class="hl kwa">if</span> <span class="hl kwb">$pop_and_reuse</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!$::</span>WizardWindow<span class="hl opt">) {</span>

	    <span class="hl kwc">my</span> <span class="hl kwb">$banner</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>isEmbedded <span class="hl opt">&amp;&amp; !$::</span>isInstall <span class="hl opt">&amp;&amp; $::</span>Wizard_title<span class="hl opt">) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span>_find_imgfile<span class="hl opt">(</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>icon_no_error<span class="hl opt">})) {</span>
		    <span class="hl kwb">$banner</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>Banner-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>icon_no_error<span class="hl opt">}, $::</span>Wizard_title<span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span> 
		    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;ERROR: missing wizard banner</span> <span class="hl ipl">$opts</span><span class="hl str">-&gt;{icon_no_error}&quot;</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	    <span class="hl opt">$::</span>WizardTable <span class="hl opt">=</span> gtknew<span class="hl opt">(</span><span class="hl str">&apos;VBox&apos;</span><span class="hl opt">,</span> if_<span class="hl opt">(</span><span class="hl kwb">$banner,</span> children_tight <span class="hl opt">=&gt; [</span> <span class="hl kwb">$banner</span> <span class="hl opt">]));</span>

	    <span class="hl kwa">if</span> <span class="hl opt">($::</span>isEmbedded<span class="hl opt">) {</span>
		add2hash<span class="hl opt">(</span><span class="hl kwb">$opts,</span> <span class="hl opt">{</span>
		    socket_id <span class="hl opt">=&gt; $::</span>XID<span class="hl opt">,</span>
		    child <span class="hl opt">=&gt; $::</span>WizardTable<span class="hl opt">,</span>
		<span class="hl opt">});</span>
		<span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>no_Window_Manager<span class="hl opt">};</span>
		<span class="hl opt">$::</span>Plug <span class="hl opt">= $::</span>WizardWindow <span class="hl opt">=</span> _gtk<span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">&apos;Plug&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;gtknew&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$opts</span><span class="hl opt">);</span>
		sync<span class="hl opt">($::</span>WizardWindow<span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		add2hash<span class="hl opt">(</span><span class="hl kwb">$opts,</span> <span class="hl opt">{</span>
		    child <span class="hl opt">=&gt; $::</span>WizardTable<span class="hl opt">,</span>
		<span class="hl opt">});</span>
		<span class="hl opt">$::</span>WizardWindow <span class="hl opt">=</span> _create_Window<span class="hl opt">(</span><span class="hl kwb">$opts,</span> <span class="hl str">&apos;special_center&apos;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">%$opts</span> <span class="hl opt">= ();</span>
	<span class="hl opt">}</span>

	set_main_window_size<span class="hl opt">($::</span>WizardWindow<span class="hl opt">);</span>

	<span class="hl kwb">$w</span> <span class="hl opt">= $::</span>WizardWindow<span class="hl opt">;</span>
     
	gtkadd<span class="hl opt">($::</span>WizardTable<span class="hl opt">,</span> children_tight <span class="hl opt">=&gt; [</span> <span class="hl kwb">$provided_banner</span> <span class="hl opt">])</span> <span class="hl kwa">if</span> <span class="hl kwb">$provided_banner</span><span class="hl opt">;</span>
	gtkadd<span class="hl opt">($::</span>WizardTable<span class="hl opt">,</span> children_loose <span class="hl opt">=&gt; [</span> <span class="hl kwb">$sub_child</span> <span class="hl opt">]);</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">bless</span> <span class="hl opt">{</span> 
	real_window <span class="hl opt">=&gt;</span> <span class="hl kwb">$w,</span> 
	child <span class="hl opt">=&gt;</span> <span class="hl kwb">$sub_child,</span> pop_it <span class="hl opt">=&gt;</span> <span class="hl kwb">$pop_it,</span> pop_and_reuse <span class="hl opt">=&gt;</span> <span class="hl kwb">$pop_and_reuse,</span>
	if_<span class="hl opt">(</span><span class="hl kwb">$provided_banner,</span> banner <span class="hl opt">=&gt;</span> <span class="hl kwb">$provided_banner</span><span class="hl opt">),</span>
    <span class="hl opt">},</span> <span class="hl str">&apos;mygtk2::MagicWindow&apos;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl slc"># A standard About dialog. Used with:</span>
<span class="hl slc"># my $w = gtknew(&apos;AboutDialog&apos;, ...);</span>
<span class="hl slc"># $w-&gt;show_all;</span>
<span class="hl slc"># $w-&gt;run;</span>
<span class="hl kwa">sub</span> _gtk__AboutDialog <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$w, $opts</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$w</span><span class="hl opt">) {</span>
        <span class="hl kwb">$w</span> <span class="hl opt">=</span> Gtk2<span class="hl opt">::</span>AboutDialog-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">;</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">signal_connect</span><span class="hl opt">(</span>response <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]-&gt;</span><span class="hl kwd">destroy</span> <span class="hl opt">});</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_program_name</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>name<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>name<span class="hl opt">};</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_version</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>version<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>version<span class="hl opt">};</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_icon</span><span class="hl opt">(</span>gtknew<span class="hl opt">(</span><span class="hl str">&apos;Pixbuf&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>icon<span class="hl opt">}))</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>icon<span class="hl opt">};</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_logo</span><span class="hl opt">(</span>gtknew<span class="hl opt">(</span><span class="hl str">&apos;Pixbuf&apos;</span><span class="hl opt">,</span> file <span class="hl opt">=&gt;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>logo<span class="hl opt">}))</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>logo<span class="hl opt">};</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_copyright</span><span class="hl opt">(</span><span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>copyright<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwc">exists</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>copyright<span class="hl opt">};</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_url_hook</span><span class="hl opt">(</span><span class="hl kwa">sub</span> <span class="hl opt">{</span>
            <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwb">$url</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
            run_program<span class="hl opt">::</span>raw<span class="hl opt">({</span> detach <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">},</span> <span class="hl str">&apos;www-browser&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$url</span><span class="hl opt">);</span>
        <span class="hl opt">});</span>
        <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set_email_hook</span><span class="hl opt">(</span><span class="hl kwa">sub</span> <span class="hl opt">{</span>
            <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwb">$url</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
            run_program<span class="hl opt">::</span>raw<span class="hl opt">({</span> detach <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">},</span> <span class="hl str">&apos;www-browser&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$url</span><span class="hl opt">);</span>
        <span class="hl opt">});</span>

        <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$url</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$opts</span><span class="hl opt">-&gt;{</span>website<span class="hl opt">}) {</span>
            <span class="hl kwb">$url</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^https:/http:/</span><span class="hl opt">;</span> <span class="hl slc"># Gtk2::About doesn&apos;t like &quot;https://...&quot; like URLs