return;

}

require ugtk3;

ugtk3->import(':all');

require mygtk3;

my $w = ugtk3->new(N("Release Notes"), transient => $::main_window, modal => 1, pop_it => 1);

gtkadd($w->{rwindow},

1, create_scrolled_window(ugtk3::gtkset_border_width($view, 5),

[ 'never', 'automatic' ],

),

0, gtkpack(create_hbox('end'),

gtknew('Button', text => N("Close"),

),

),

);

]);

$locale->{utf8} = !$non_utf8;

lang::set($locale);

lang::lang_changed($locale) if $old_lang ne $locale->{lang};

}

$str;

}

#- in UTF-8;

#- we first check if LC_ALL is defined, because if it is, changing

#- only LC_COLLATE will have no effect.

my ($con, $watch) = @_;

my $flags = $watch->get_flags;

require Net::DBus::Binding::Watch;

if ($flags & &Net::DBus::Binding::Watch::READABLE) {

$watch->handle(&Net::DBus::Binding::Watch::READABLE);

$con->dispatch;

1;

my $rc = "/usr/share/libDrakX/diskdrake.rc";

-r $rc or $rc = dirname(__FILE__) . "/../diskdrake.rc";

-r $rc or $rc = dirname(__FILE__) . "/../share/diskdrake.rc";

}

sub main {

# updateLoopback();

gtkadd($w->{window},

0, gtknew(($::isInstall ? ('Title1', 'label') : ('Label_Left', 'text'))

=> N("Click on a partition, choose a filesystem type then choose an action"),

# workaround infamous 6 years old gnome bug #101968:

width => mygtk3::get_label_width()

),

0, (my $per_kind_action_box = gtknew('HButtonBox', layout => 'edge')),

0, (my $per_kind_action_box2 = gtknew('HButtonBox', layout => 'end')),

0, (my $general_action_box = gtknew('HBox', spacing => 5)),

),

);

}

$update_all->($refresh);

}

sub get_action_box_size() {

my ($notebook_widget, $kind) = @_;

die if $kind->{main_box};

my $box =

0, $kind->{display_box},

0, filesystems_button_box(),

1, $kind->{info_box});

N_("Done"));

my $box_end = gtknew('HButtonBox', layout => 'end', spacing => 5);

foreach my $s (@actions) {

$done_button = $button if $s eq 'Done';

gtkadd($box_end, gtksignal_connect($button, clicked => sub { try($s) }));

}

foreach my $s (diskdrake::interactive::hd_possible_actions_base($in)) {

gtkadd($box,

clicked => sub { try($s, kind2hd($kind)) }));

}

foreach my $s (diskdrake::interactive::hd_possible_actions_extra($in)) {

gtkadd($box2,

clicked => sub { try($s, kind2hd($kind)) }));

}

}

if ($entry) {

my @buttons = map {

my $s = $_;

$w->signal_connect(clicked => sub { try($s, kind2hd($kind), $entry) });

$w;

} diskdrake::interactive::part_possible_actions($in, kind2hd($kind), $entry, $all_hds);

} else {

my $txt = !$::isStandalone && fsedit::is_one_big_fat_or_NT($all_hds->{hds}) ?

N("You have one big Microsoft Windows partition.

I suggest you first resize that partition

(click on it, then click on \"Resize\")") : N("Please click on a partition");

}

}

}

my $info = $entry->{mntpoint} || $entry->{device_LABEL};

$info .= "\n" . ($entry->{size} ? formatXiB($entry->{size}, 512) : N("Unknown")) if $info;

$w->signal_connect(clicked => sub {

$current_button != $w or return;

current_entry_changed($kind, $entry);

N_("Other"), N_("Empty"));

my %name2fs_type = (Ext3 => 'ext3', Ext4 => 'ext4', 'XFS' => 'xfs', Swap => 'swap', Other => 'other', "Windows" => 'vfat', HFS => 'hfs');

map {

my $t = $name2fs_type{$_};

my $w = gtknew('Button', text => translate($_), widget_name => 'PART_' . ($t || 'empty'),

$in->ask_warn(N("Error"), formatError($err));

}

update($kind);

}

sub raw_hd_options {

my ($kind, $info_box) = @_;

my (%servers_displayed, %wservers, %wexports);

$tree->get_selection->set_mode('browse');

$col->add_attribute($pixrender, 'pixbuf', 0);

$col->add_attribute($texrender, 'text', 1);

$tree->append_column($col);

my $width = 540;

my $minwidth = 40;

my $sep_count = @parts - 1;

#- ratio used to compute initial partition pixel width (each partition should be > min_width)

#- though, the pixel/sectors ratio cannot be the same for all the partitions

my $initial_ratio = $totalsectors ? ($width - @parts * $minwidth - $sep_count) / $totalsectors : 1;

my $part_sep;

my $desc;

my $last = $resize && $resize->[-1];

foreach my $entry (@parts) {

my @colorized_fs_types = qw(ext2 ext3 ext4 xfs swap vfat ntfs ntfs-3g);

$entry->{width} = int($entry->{size} * $initial_ratio) + $minwidth;

if ($last && $last->{device} eq $entry->{device}) {

#- entry is the last resizable partition

$part_widget->set_name("PART_vfat");

$part_info->set_size_request(ceil($ratio * $entry->{min_win}), 0);

gtkset_size_request(gtknew("Image", file => "small-logo"),

$ratio * MB(600), 0));

$hpane->add1($part_widget);

$hpane->child1_shrink(0);

$hpane->add2($mdv_widget);

my $add_part_size_info = sub {

my ($name, $label) = @_;

ugtk3::gtkpack__($desc,

gtkset_size_request(gtkset_alignment($label, 0, 0.5),

150, 20));

};

$add_part_size_info->("PART_vfat", $win_size_label);

$add_part_size_info->("PART_new", $mdv_size_label);

my $update_size_labels = sub {

}

$part_widget->add($part_info);

gtkpack__($display_box, $part_sep);

}

$display_box->remove($part_sep) if $part_sep;

my @types = (N_("Ext2/3/4"), N_("XFS"), N_("Swap"), arch() =~ /sparc/ ? N_("SunOS") : arch() eq "ppc" ? N_("HFS") : N_("Windows"),

N_("Other"), N_("Empty"));

my %name2fs_type = ('Ext2/3/4' => 'ext3', 'XFS' => 'xfs', Swap => 'swap', Other => 'other', "Windows" => 'vfat', HFS => 'hfs');

map {

my $t = $name2fs_type{$_};

$ev->add($w);

$ev->set_name('PART_' . ($t || 'empty'));

$ev;

$item = create_display_box($mainw->{kind}, $solutions{$s}[3], undef, $button);

} elsif ($s eq 'existing_part') {

} elsif ($s eq 'wipe_drive') {

my $b2 = gtknew("Image", file => "small-logo");

$item->add($b2);

$item->set_size_request(540,26);

require diskdrake::hd_gtk;

diskdrake::hd_gtk::load_theme();

my @kinds = map { diskdrake::hd_gtk::hd2kind($_) } sort { $a->{is_removable} <=> $b->{is_removable} } @{ $all_hds->{hds} };

push @kinds, diskdrake::hd_gtk::raid2real_kind($_) foreach @{$all_hds->{raids}};

push @kinds, map { diskdrake::hd_gtk::lvm2kind($_) } @{$all_hds->{lvms}};

foreach (@kinds) {

my $info = $_->{val}{info} || $_->{val}{device};

$info =~ s|^(?:.*/)?(.{24}).*|$1|;

ugtk3::gtkpack2__($mainbox, $hdchoice);

$scroll->set_policy('never', 'automatic'),

$vp->set_shadow_type('none');

$vp->add($contentbox);

$scroll->add($vp);

my $f = $name;

-r $name or $f = find { -r $_ } map { "$_/themes-$name.rc" } ("share", $ENV{SHARE_PATH}, dirname(__FILE__) . '/..');

if ($f) {

}

}

my ($o) = @_;

if (defined($::WizardWindow) && lang::text_direction_rtl()) {

my ($x, $y) = $::WizardWindow->get_position;

my ($width) = $::WizardWindow->get_size;

$::WizardWindow->move($::rootwidth - $width - $x, $y);

my $font = lang::l2pango_font($o->{locale}{lang});

my $s = qq(gtk-font-name="$font");

mkdir("/root");

output("/root/.gtkrc-2.0", $s);

}

exists $steps{steps}{$_} or next;

if ($o->{steps}{$_}{entered} && !$o->{steps}{$_}{done}) {

# we need to flush the X queue since else we got a temporary Y position of -1 when switching locales:

$o->{steps_widget}->move_selection($steps{steps}{$_}{text});

if ($last_step) {

}

$last_step = $_;

}

}

#------------------------------------------------------------------------------

$ENV{FONTCONFIG_FILE} = '/tmp/fonts.conf';

}

}

#------------------------------------------------------------------------------

sub init_sizes {

my ($o) = @_;

$::stepswidth = $::rootwidth <= 640 ? 0 : 196;

($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (800, 75);

($o->{windowwidth}, $o->{windowheight}) = ($::rootwidth - $::stepswidth, $::rootheight);

sub charsetChanged {

my ($o) = @_;

install::gtk::load_font($o);

install::gtk::create_steps_window($o);

}

$prev->signal_connect(key_press_event => sub {

my (undef, $event) = @_;

if (!$event || ($event->keyval & 0x7f) == 0xd) {

}

});

my $img = gtksignal_connect(

'button-press-event' => sub {

my %title = (

KDE => N("KDE Desktop"),

1, gtknew('Image', file => "desktop-$val->[0]-big"),

0, gtknew('HSeparator'),

0, gtknew('HButtonBox', layout => 'end', children_loose => [

]),

]),

);

gtknew('Install_Button', text => N("Help"), clicked => sub {

interactive::gtk::display_help($o, { interactive_help_id => 'choosePackageGroups' }) }),

gtknew('Button', text => N("Unselect All"), clicked => sub { $_->set_active(0) foreach @entries }),

]),

]),

)

my $pl = $f; $pl =~ s/\.png$/.pl/;

eval(cat_($pl)) if -e $pl;

$banner->{text} = $title;

}

};

0, gtknew('HButtonBox', layout => 'edge', children_tight => [

gtknew('Install_Button', text => N("Help"), clicked => sub {

interactive::gtk::display_help($o, { interactive_help_id => 'choosePackagesTree' }) }),

]),

]),

);

sub create_boxradio {

my ($e, $onchange_f, $double_click) = @_;

my @radios = gtkradio('', @{$e->{formatted_list}}));

mapn {

my ($txt, $w) = @_;

# workaround infamous 6 years old gnome bug #101968:

my ($e, $onchange_f, $double_click) = @_;

my $curr;

$list_tv->set_headers_visible(0);

$list_tv->get_selection->set_mode('browse');

$list_tv->append_column($textcolumn);

$renderer->set_property('ellipsize', 'end');

if ($j == @l) {

$starting_word = '';

} else {

}

$timeout = Glib::Timeout->add($forgetTime, sub { $timeout = $starting_word = ''; 0 });

my $nb = find_index { $_ eq $v } @{$e->{list}};

my ($old_path) = $list_tv->get_cursor;

if (!$old_path || $nb != $old_path->to_string) {

}

undef $old_path if $old_path;

};

my ($e) = @_;

my $sep = quotemeta $e->{separator};

my $build_value = sub {

my ($v) = @_;

my ($e, $onchange_f, $double_click) = @_;

my $tree_model = __create_tree_model($e);

$tree->get_selection->set_mode('browse');

{

$col->add_attribute($texrender, text => 0);

if ($e->{image2f}) {

$col->add_attribute($pixrender, pixbuf => 1);

}

$tree->append_column($col);

my $select = sub {

my ($path_str) = @_;

$tree->expand_to_path($path);

$tree->set_cursor($path, undef, 0);

gtkflush(); #- workaround gtk3 bug not honouring centering on the given row if node was closed

}

#- $actions is a ref list of $action

#- where $kind is one of '', 'modify', 'remove', 'add'

sub add_modify_remove_action {

my ($button, $buttons, $e, $treelist) = @_;

my ($w, $real_w, $focus_w, $set);

if ($e->{type} eq 'iconlist') {

$set = sub {

gtkdestroy($e->{icon});

my $f = $e->{icon2f}->($_[0]);

$e->{icon} = -e $f ?

gtkcreate_img($f) :

$w->add(gtkshow($e->{icon}));

};

$w->signal_connect(clicked => sub {

if ($e->{alignment} eq 'right') {

$real_w = gtknew('HButtonBox', layout => 'start', children_tight => [ $w ]);

} else {

}

} elsif ($e->{type} eq 'bool') {

if ($e->{image}) {

} else {

#- warn "\"text\" member should have been used instead of \"label\" one at:\n", common::backtrace(), "\n" if $e->{label} && !$e->{text};

}

$w->signal_connect(clicked => $onchange->(sub { $w->get_active }));

$set = sub { $w->set_active($_[0]) };

$set = sub {

my $w = $w->child;

# handle Install_Buttons:

}

# guard against 'advanced' widgets that are now in their own dialog

# (instead of in another block child of an expander):

return if !$w;

$w->set_label(may_apply($e->{format}, $_[0])) };

} elsif ($e->{type} eq 'range') {

$w->set_size_request($e->{SpinButton} ? 100 : 200, -1);

$w->set_digits(0);

$adj->signal_connect(value_changed => $onchange->(sub { $adj->get_value }));

push @buttons, map { if_($actions->{$_}, 'gtk-go-' . $_) } qw(Up Down);

@buttons = map {

my $button = /^gtk-/ ? gtknew('Button', image => gtknew('Image', stock => lc($_)))

my $kind = $_;

$kind =~ s/^gtk-go-//;

{ kind => lc $kind, action => $actions->{$kind}, button => $button, real_kind => $_ };

add_modify_remove_sensitive(\@buttons, $e);

my ($images, $real_buttons) = partition { $_->{real_kind} =~ /^gtk-/ } @buttons;

1, create_scrolled_window($w),

(map { $_->{button} } @$real_buttons),

if_($images,

gtknew('HButtonBox',

if (!$e->{separator}) {

if ($e->{not_edit}) {

# FIXME: the following causes Gtk-CRITICAL but not solvable at realize time:

first($w->child->get_cell_renderers)->set_property('ellipsize', 'end') if !$e->{do_not_ellipsize};

$w->set_wrap_width($e->{gtk}{wrap_width}) if exists $e->{gtk}{wrap_width};

} else {

($real_w, $w) = ($w, $w->child);

}

$real_w->set_popdown_strings(@formatted_list);

} else {

$model = __create_tree_model($e);

$w->add_attribute($texrender, text => 0);

if ($e->{image2f}) {

$w->add_attribute($pixrender, pixbuf => 1);

}

}

$w = gtknew('WeaknessCheckEntry');

}

else {

}

$w->signal_connect(changed => $onchange->(sub { $w->get_text }));

$w->signal_connect(focus_in_event => sub { $w->select_region(0, -1) });

$w->signal_connect(focus_out_event => sub { $w->select_region(0, 0) });

$set = sub { $w->set_text($_[0]) if $_[0] ne $w->get_text };

if ($e->{type} eq 'file') {

my $file = $o->ask_fileW({

title => $e->{label},

want_a_dir => to_bool($e->{want_a_dir}),

});

$set->($file) if $file;

});

}

}

$w->signal_connect(key_press_event => $e->{may_go_to_next});

sub create_widgets_block {

my ($o, $common, $l, $update, $ignore_ref) = @_;

@$l = map_index {

if ($::i && ($_->{type} eq 'expander' || $_->{title})) {

my $eater = if_($e->{alignment} eq 'right' && !$label_w, gtknew('Label'));

if_($e->{icon}, 0, eval { gtkcreate_img($e->{icon}) }),

if_($eater, 1, $eater),

if_($label_w, $e->{alignment} eq 'right', $label_w),

my $ok_clicked = sub {

!$mainw->{ok} || $mainw->{ok}->get_property('sensitive') or return;

$mainw->{retval} = 1;

};

my @all = all_entries($l);

$mainw->{rwindow}->hide;

if (my $v = $e->{clicked_may_quit}()) {

$mainw->{retval} = $v;

}

$mainw->{rwindow}->show;

$update->();

my $box = create_widgets_block($o, $common, $l, $update, \$ignore);

foreach my $e (@all) {

$tooltips->set_tip($e->{w}, $e->{help}) if $e->{help} && !ref($e->{help});

}

sub display_help_window {

my ($o, $common) = @_;

if (my $file = $common->{interactive_help_id}) {

my $view = gtknew('WebKit_View');

load_from_uri($view, $file);

my $w = ugtk3->new(N("Help"), modal => 1);

gtkadd($w->{rwindow},

1, create_scrolled_window(gtkset_border_width($view, 5),

[ 'never', 'automatic' ],

),

0, gtkpack(create_hbox('end'),

),

),

);

my $entry_to_focus = find { $_->{focus} && $_->{focus}() } @$l;

my $widget_to_focus = $entry_to_focus ? $entry_to_focus->{focus_w} :

$common->{focus_cancel} ? $mainw->{cancel} :

$l->[0]{focus_w} :

$mainw->{ok};

$widget_to_focus->grab_focus if $widget_to_focus;

sub wait_messageW {

my ($o, $title, $message, $message_modifiable) = @_;

Glib::Source->remove($reuse_timeout) if $reuse_timeout; $reuse_timeout = '';

use log;

use common;

sub init() {

!check_for_xserver() and print("Cannot be run in console mode.\n"), c::_exit(0);

$::one_message_has_been_translated and warn("N() was called from $::one_message_has_been_translated BEFORE gtk3 initialisation, replace it with a N_() AND a translate() later.\n"), c::_exit(1);

Locale::gettext::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', if_(!$::isInstall, 'libDrakX-standalone'),

if_($::isRestore, 'draksnapshot'), if_($::isInstall, 'urpmi'),

'drakx-net', 'drakx-kbd-mouse-x11', # shared translation

}

my %opts = @_;

_gtk($w, $class, 'gtkset', \%opts);

}

internal_error("gtkadd $class: $r should be a string in @_");

}

my %opts = @_;

_gtk($w, $class, 'gtkadd', \%opts);

}

$w->signal_connect(realize => delete $opts->{realize}) if exists $opts->{realize};

(delete $opts->{size_group})->add_widget($w) if $opts->{size_group};

if (my $tip = delete $opts->{tip}) {

$global_tooltips->set_tip($w, $tip);

}

if ($class eq 'RadioButton') {

@radio_options = delete $opts->{group};

}

$w->{format} = delete $opts->{format} if exists $opts->{format};

}

if (!$w) {

add2hash_($opts, { mnemonic => 1 });

}

$w->set_active(delete $opts->{active}) if exists $opts->{active};

if (!$w) {

$opts->{adjustment} ||= do {

add2hash_($opts, { step_increment => 1, page_increment => 5, page_size => 1, value => delete $opts->{lower} });

};

}

$w->signal_connect(value_changed => delete $opts->{value_changed}) if exists $opts->{value_changed};

$opts->{adjustment} ||= do {

add2hash_($opts, { step_increment => 1, page_increment => 5, page_size => 1 });

add2hash_($opts, { value => $opts->{lower} }) if !exists $opts->{value};

};

}

$w->set_digits(delete $opts->{digits}) if exists $opts->{digits};

my ($w, $opts) = @_;

if (!$w) {

}

if (my $fraction_ref = delete $opts->{fraction_ref}) {

my ($w, $_opts) = @_;

if (!$w) {

}

$w;

}

my $name = delete $opts->{file} or internal_error("missing file");

my $file = _find_imgfile($name) or internal_error("cannot find image $name");

if (my $size = delete $opts->{size}) {

} else {

}

$w = $w->flip(1) if delete $opts->{flip};

}

my ($w, $opts, $class) = @_;

if (!$w) {

$w->{format} = delete $opts->{format} if exists $opts->{format};

$w->set_from_stock(delete $opts->{stock}, 'button') if exists $opts->{stock};

if ($w) {

$w->set_text(delete $opts->{text}) if exists $opts->{text};

} else {

$w->set_selectable(delete $opts->{selectable}) if exists $opts->{selectable};

$w->set_ellipsize(delete $opts->{ellipsize}) if exists $opts->{ellipsize};

$w->set_justify(delete $opts->{justify}) if exists $opts->{justify};

my ($w, $_opts) = @_;

if (!$w) {

}

$w;

}

0, gtknew('Label', padding => [ 6, 0 ]),

1, gtknew('VBox', widget_name => 'Banner', children_tight => [

_gtk__Title2($w, $opts),

]),

0, gtknew('Label', padding => [ 6, 0 ]),

]);

sub _gtk__Sexy_IconEntry {

my ($w, $opts) = @_;

if (!$w) {

$w->set_editable(delete $opts->{editable}) if exists $opts->{editable};

}

my ($w, $opts) = @_;

if (!$w) {

$w->set_editable(delete $opts->{editable}) if exists $opts->{editable};

}

my ($w, $opts, $_class, $action) = @_;

if (!$w) {

$w->set_editable(delete $opts->{editable}) if exists $opts->{editable};

$w->set_wrap_mode(delete $opts->{wrap_mode}) if exists $opts->{wrap_mode};

$w->set_cursor_visible(delete $opts->{cursor_visible}) if exists $opts->{cursor_visible};

sub _gtk__WebKit_View {

my ($w, $opts, $_class, $_action) = @_;

if (!$w) {

}

# disable contextual menu:

my ($w, $opts, $_class, $action) = @_;

if (!$w) {

$w->{format} = delete $opts->{format} if exists $opts->{format};

}