summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm1160
1 files changed, 537 insertions, 623 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index fa71c5fc3..09f877c9f 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -2,10 +2,8 @@ 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() } if !$::isInstall;
+use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $wm_icon $grab $border); #- leave it on one line, for automatic removal of the line at package creation
+use locale;
@ISA = qw(Exporter);
%EXPORT_TAGS = (
@@ -18,16 +16,17 @@ $::o = { locale => lang::read() } if !$::isInstall;
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) ],
+ helpers => [ qw(add2notebook add_icon_path escape_text_for_TextView_markup_format gtkcolor gtkcreate_img
+ gtkcreate_pixbuf gtkfontinfo gtkset_background gtktreeview_children set_back_pixmap
+ get_default_step_items set_default_step_items
+ string_size string_width) ],
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 ) ],
+ ask_yesorno) ],
dialogs => [ qw(err_dialog info_dialog warn_dialog) ],
);
@@ -37,23 +36,14 @@ $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
use c;
use log;
use common;
+use mygtk2 qw(gtknew); #- do not import gtkadd which conflicts with ugtk2 version
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;
+sub wm_icon() { $wm_icon || $::Wizard_pix_up || "wiz_default_up.png" }
# -=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---
# wrappers
@@ -63,8 +53,8 @@ $border = 5;
# 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 gtkdestroy { mygtk2::may_destroy($_[0]) }
+sub gtkflush() { mygtk2::flush() }
sub gtkhide { $_[0]->hide; $_[0] }
sub gtkmove { $_[0]->window->move($_[1], $_[2]); $_[0] }
sub gtkpack { gtkpowerpack(1, 1, @_) }
@@ -100,17 +90,17 @@ 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);
+ ref $l or $l = gtknew('WrappedLabel', text => $l);
$w->add(gtkshow($l));
}
- $w
+ $w;
}
sub gtkadd_widget {
my $sg = shift;
map {
my $l = $_;
- ref $l or $l = Gtk2::WrappedLabel->new($l);
+ ref $l or $l = gtknew('WrappedLabel', text => $l);
$sg->add_widget($l);
$l;
} @_;
@@ -119,30 +109,30 @@ sub gtkadd_widget {
sub gtkappend {
my $w = shift;
foreach my $l (@_) {
- ref $l or $l = Gtk2::WrappedLabel->new($l);
+ ref $l or $l = gtknew('WrappedLabel', text => $l);
$w->append(gtkshow($l));
}
- $w
+ $w;
}
sub gtkappenditems {
my $w = shift;
$_->show foreach @_;
$w->append_items(@_);
- $w
+ $w;
}
# append page to a notebook
sub gtkappend_page {
- my $w = shift;
- $w->append_page(@_);
- $w
+ 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);
+ my ($o_text) = @_;
+ my $e = gtknew('Entry');
+ $o_text and $e->set_text($o_text);
$e;
}
@@ -155,13 +145,16 @@ sub gtksetstyle {
sub gtkradio {
my $def = shift;
my $radio;
- map { gtkset_active($radio = Gtk2::RadioButton->new_with_label($radio ? $radio->get_group : undef, $_), $_ eq $def) } @_;
+ map {
+ my $w = gtkset_active($radio = Gtk2::RadioButton->new_with_label($radio ? $radio->get_group : undef, $_), $_ eq $def);
+ $w->get_child->set_line_wrap(1);
+ $w;
+ } @_;
}
-sub gtkroot() {
- my $root if 0;
- $root ||= Gtk2::Gdk->get_default_root_window;
-}
+sub gtkroot() { mygtk2::root_window() }
+sub gtkcolor { &mygtk2::rgb2color }
+sub gtkset_background { &mygtk2::set_root_window_background }
sub gtkset_text {
my ($w, $s) = @_;
@@ -178,6 +171,7 @@ sub gtkcombo_setpopdown_strings {
sub gtkset_mousecursor {
my ($type, $w) = @_;
($w || gtkroot())->set_cursor(Gtk2::Gdk::Cursor->new($type));
+ $w;
}
sub gtksignal_connect {
@@ -218,10 +212,10 @@ sub gtkpowerpack {
#- 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;
+ member(ref($_[0]), qw(HASH ARRAY)) and $attrs = shift;
foreach (@attributes_list) {
if (($default_attrs->{$_} || '') eq 'arg') {
- ref($_[0]) and die "error in packing definition\n";
+ ref($_[0]) and internal_error "error in packing definition\n";
$attr{$_} = shift;
ref($attrs) eq 'ARRAY' and shift @$attrs;
} elsif (ref($attrs) eq 'HASH' && defined($attrs->{$_})) {
@@ -235,8 +229,8 @@ sub gtkpowerpack {
}
}
#- 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');
+ my $widget = ref($_[0]) ? shift : gtknew('WrappedLabel', text => shift);
+ my $pack_call = 'pack_' . ($attr{pack_end} ? 'end' : 'start');
$box->$pack_call($widget, $attr{expand}, $attr{fill}, $attr{padding});
$widget->show;
}
@@ -246,7 +240,7 @@ sub gtkpowerpack {
sub gtktreeview_children {
my ($model, $iter) = @_;
my @l;
- $model && $iter or return;
+ $model or return;
for (my $p = $model->iter_children($iter); $p; $p = $model->iter_next($p)) {
push @l, $p;
}
@@ -264,11 +258,12 @@ sub gtktreeview_children {
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),
+ gtkadd(gtknew('Button'),
+ gtknew('HBox', spacing => 3, children => [
1, "",
$reverse_order ? reverse(@label_and_pix) : @label_and_pix,
- 1, ""));
+ 1, "",
+ ]));
}
sub create_adjustment {
@@ -278,21 +273,8 @@ sub create_adjustment {
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->show;
- if (ref($W) =~ /Gtk2::TextView|Gtk2::TreeView/) {
- gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'in'), $w)
- } else {
- $w
- }
+ gtknew('ScrolledWindow', ($o_policy ? (h_policy => $o_policy->[0], v_policy => $o_policy->[1]) : ()),
+ child => $W, if_($o_viewport_shadow, shadow_type => $o_viewport_shadow));
}
sub n_line_size {
@@ -302,90 +284,109 @@ sub n_line_size {
round($nbline * ($fontinfo{ascent} + $fontinfo{descent} + $spacing) + 8);
}
+# Glib::Markup::escape_text() if no use for us because it'll do extra
+# s/X/&foobar;/ (such as s/'/&apos;/) that are suitable for
+# Gtk2::Labels but are not for Gtk2::TextViews, resulting in
+# displaying the raw enriched text instead...
+#
+sub escape_text_for_TextView_markup_format {
+ my ($str) = @_;
+ my %rules = ('&' => '&amp;',
+ '<' => '&lt;',
+ '>' => '&gt;',
+ );
+ eval { $str =~ s!([&<>])!$rules{$1}!g }; #^(&(amp|lt|gt);)!!) {
+ if (my $err = $@) {
+ internal_error("$err\n$str");
+ }
+ $str;
+}
+
+sub markup_to_TextView_format {
+ my ($s, $o_default_attrs) = @_;
+ require interactive;
+ my $l = interactive::markup_parse($s) or return $s;
+
+ foreach (@$l) {
+ my ($_txt, $attrs) = @$_;
+ if ($attrs) {
+ $attrs->{weight} eq 'bold' and $attrs->{weight} = do { require Gtk2::Pango; Gtk2::Pango->PANGO_WEIGHT_BOLD };
+ $attrs->{size} eq 'larger' and do {
+ $attrs->{scale} = Gtk2::Pango->scale_x_large; # equivalent to Label's size => 'larger'
+ delete $attrs->{size};
+ };
+ }
+ #- nb: $attrs may be empty, need special handling if $o_default_attrs is used
+ add2hash_($_->[1] ||= {}, $o_default_attrs) if $o_default_attrs;
+ }
+ $l;
+}
+
sub create_box_with_title {
- my $o = shift;
+ my ($o, @l) = @_;
- my $nbline = sum(map { round(length($_) / 60 + 1/2) } map { split "\n" } @_);
- my $box = Gtk2::VBox->new(0,0);
+ my $nbline = sum(map { round(length($_) / 60 + 1/2) } map { split "\n" } @l);
+ my $box = gtknew('VBox');
if ($nbline == 0) {
$o->{box_size} = 0;
return $box;
}
$o->{box_size} = n_line_size($nbline, 'text', $box);
- if (@_ <= 2 && $nbline > 4) {
+ 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)) };
+ eval { gtkpack__($box, gtknew('HBox', border_width => 5, children_loose => [ gtkcreate_img($o->{icon}) ])) };
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);
+ chomp(my $text = join("\n", @l));
+ my $wtext = gtknew('TextView', text => markup_to_TextView_format($text));
+ $wtext->set_justification('fill');
+ $wtext->set_left_margin(12);
+ $wtext->set_right_margin(12);
$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", @_));
- my $scroll = create_scrolled_window(gtktext_insert($wtext, $text));
- my $width = 400;
- $scroll->signal_connect(realize => sub {
+ my $width = 400;
+ my $scroll = gtknew('ScrolledWindow', child => $wtext, width => $width, height => 200);
+ $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));
+ $wtext->set_size_request($width, min(200, second($layout->get_pixel_size) + 10));
+ $scroll->set_size_request($width, min(200, second($layout->get_pixel_size) + 10));
$o->{rwindow}->queue_resize;
});
- $scroll->set_size_request($width, 200);
- gtkpack_($box, 0, $scroll);
+ 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");
+ ref($txt) ? $txt : gtknew('WrappedLabel', text_markup => $txt,
+ # workaround infamous 6 years old gnome bug #101968:
+ width => mygtk2::get_label_width());
};
- 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);
- } @_),
- 1, Gtk2::HBox->new(0,0),
- )
- ),
- if_($a, Gtk2::HSeparator->new)
- )
- } else {
- gtkpack__($box,
- if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 10)),
+ if_($::isWizard, gtknew('Label', height => 10)),
(map {
my $w = $new_label->($_);
- $::isWizard ? gtkpack__(Gtk2::HBox->new(0,0), gtkset_size_request(Gtk2::Label->new, 20, 0), $w)
- : $w
- } @_),
- if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 15)),
- if_($a, Gtk2::HSeparator->new)
- )
- }
+ $::isWizard ? gtknew('HBox', children_tight => [ gtknew('Label', width => 20), $w ])
+ : $w;
+ } @l),
+ if_($::isWizard, gtknew('Label', height => 15)),
+ );
}
}
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;
+ my $options = $o_options || {};
+
+ #- keep compatibility with "transient" now called "transient_for"
+ $options->{transient_for} = delete $options->{transient} if $options->{transient};
+
+ gtknew('Dialog', title => $title,
+ position_policy => 'center-on-parent', # center-on-parent does not work
+ modal => 1,
+ if_(!$::isInstall, icon_no_error => wm_icon()),
+ %$options, allow_unknown_options => 1,
+ );
}
@@ -393,29 +394,36 @@ sub _create_dialog {
sub create_dialog {
my ($title, $label, $o_options) = @_;
my $ret = 0;
- my $dialog = _create_dialog($title, $o_options);
+ $o_options ||= {};
+ $o_options->{transient_for} = $::main_window if !$o_options->{transient_for} && $::main_window;
+
+ 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);
+ my $text = ref($label) ? $label : $o_options->{use_markup} ? gtknew('WrappedLabel', text_markup => $label) : gtknew('WrappedLabel', text => $label);
gtkpack($dialog->vbox,
- gtkpack_(Gtk2::HBox->new,
- if_($o_options->{stock}, 0, Gtk2::Image->new_from_stock($o_options->{stock}, 'dialog')),
+ gtknew('HBox', children => [
+ if_($o_options->{stock},
+ 0, Gtk2::Image->new_from_stock($o_options->{stock}, 'dialog'),
+ 0, gtknew('Label', text => " "),
+ ),
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);
+ $dialog->action_area->pack_start(
+ gtknew('Button', text => N("Cancel"),
+ clicked => sub { $ret = 0; $dialog->destroy; Gtk2->main_quit },
+ can_default => 1),
+ 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 });
+ my $button = gtknew('Button', text => N("Ok"), can_default => 1,
+ 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;
@@ -442,8 +450,8 @@ sub err_dialog {
create_dialog($title, $label, $o_options);
}
-sub create_hbox { gtkset_layout(gtkset_border_width(Gtk2::HButtonBox->new, 3), $_[0] || 'spread') }
-sub create_vbox { gtkset_layout(Gtk2::VButtonBox->new, $_[0] || 'spread') }
+sub create_hbox { gtknew('HButtonBox', layout => $_[0]) }
+sub create_vbox { gtknew('VButtonBox', layout => $_[0]) }
sub create_factory_menu_ {
my ($type, $name, $window, @menu_items) = @_;
@@ -460,16 +468,16 @@ sub create_menu {
my $title = shift;
my $w = Gtk2::MenuItem->new($title);
$w->set_submenu(gtkshow(gtkappend(Gtk2::Menu->new, @_)));
- $w
+ $w;
}
sub create_notebook {
- my $n = Gtk2::Notebook->new;
+ my $book = gtknew('Notebook');
while (@_) {
- my ($title, $book) = splice(@_, 0, 2);
- add2notebook($n, $title, $book);
+ my ($page, $title) = splice(@_, 0, 2);
+ gtkappend_page($book, $page, $title);
}
- $n
+ $book;
}
sub create_packtable {
@@ -481,7 +489,7 @@ sub create_packtable {
each_index {
my $j = $::i;
if ($_) {
- ref $_ or $_ = Gtk2::WrappedLabel->new($_);
+ ref $_ or $_ = gtknew('WrappedLabel', text => $_);
$j != $#$l && !$options->{mcc} ?
$w->attach($_, $j, $j + 1, $i, $i + 1,
'fill', 'fill', $options->{xpadding}, $options->{ypadding}) :
@@ -493,9 +501,10 @@ sub create_packtable {
} @l;
$w->set_col_spacings($options->{col_spacings} || 0);
$w->set_row_spacings($options->{row_spacings} || 0);
- $w
+ gtkset_border_width($w, $::isInstall ? 3 : 10);
}
+my $wm_is_kde;
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)
@@ -508,49 +517,56 @@ sub create_okcancel {
$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 $bok = $ok && ($w->{ok} = gtknew('Button', text => $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} ||
+ $bprev = $w->{cancel} = gtknew('Button', text => $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]) };
+ $w->{wizcancel} = gtknew('Button', text => ($::Wizard_skip ? N("Skip") : N("Cancel")), clicked => sub { die 'wizcancel' }) if $::isWizard && !$::isInstall && !$::Wizard_no_cancel;
+ if (!defined $wm_is_kde) {
+ require any;
+ my $wm = any::running_window_manager();
+ $wm_is_kde = !$::isInstall && (member($wm, qw(kwin compiz)) && fuzzy_pidofs(qr/\bkde-window-decorator\b/)) || 0;
+ }
+ my $f = sub { $w->{buttons}{$_[0][0]} = ref($_[0][0]) =~ /Gtk2::Button/ ?
+ $_[0][0] :
+ gtknew('Button', text => $_[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) {
+ $bprev = gtknew('Label') if !$cancel && $::Wizard_no_previous && !@left && !@right;
+ if ($::isWizard || $w->{pop_it}) {
# wizard mode: order is cancel/left_extras/white/right_extras/prev/next
- unshift @left, $w->{wizcancel} if !$::isInstall;
+ unshift @left, $w->{wizcancel} if $w->{wizcancel};
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;
+ unshift @left, ($wm_is_kde ? $bok : $bprev);
+ push @left, gtknew('Label') if $ok && $cancel; # space buttons but if there's only one button
+ push @right, ($wm_is_kde ? $bprev : $bok);
}
- gtkpack(Gtk2::VBox->new,
- Gtk2::HSeparator->new,
- gtkpack(Gtk2::HBox->new,
- (map {
- gtkpack(
- create_hbox($_->[1]),
- (map {
- $_->can_default($::isWizard);
- $_;
- } grep { $_ } @{$_->[0]})
- )
+ gtknew('VBox', spacing => 5, children_loose => [
+ gtknew('HBox', height => 5),
+ gtknew('HSeparator'),
+ gtknew('HBox', children_loose => [
+ map {
+ gtknew('HButtonBox', spacing => 5, layout => $_->[1],
+ children_loose => [
+ map {
+ $_->can_default($::isWizard);
+ $_;
+ } grep { $_ } @{$_->[0]}
+ ]);
} ([ \@left, 'start' ],
[ \@right, 'end' ],
)
- )
- ),
- );
+ ]),
+ ]);
}
sub _setup_paned {
@@ -573,7 +589,7 @@ sub create_hpaned {
sub gtkcreate_frame {
my ($label) = @_;
- gtkset_border_width(Gtk2::Frame->new($label), 5);
+ gtknew('Frame', text => $label, border_width => 5);
}
@@ -600,12 +616,14 @@ sub _find_imgfile {
# 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]"));
+ my ($file, $o_size) = @_;
+ gtknew('Image', file => $file, if_($o_size, size => $o_size));
}
# 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]"));
+ my ($file, $o_size) = @_;
+ gtknew('Pixbuf', file => $file, if_($o_size, size => $o_size));
}
sub gtktext_append { gtktext_insert(@_, append => 1) }
@@ -617,73 +635,13 @@ sub may_set_icon {
}
}
-# 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;
+sub gtktext_insert { &mygtk2::_text_insert }
+sub icon_paths { &mygtk2::_icon_paths }
+sub add_icon_path { &mygtk2::add_icon_path }
+
+sub set_main_window_size {
+ my ($o) = @_;
+ mygtk2::set_main_window_size($o->{rwindow});
}
# extracts interesting font metrics for a given widget
@@ -717,7 +675,7 @@ sub set_back_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);
+ $pixbuf->render_to_drawable($pixmap, $widget->style->fg_gc('normal'), 0, 0, 0, 0, $width, $height, 'max', 0, 0);
$window->set_back_pixmap($pixmap, 0);
}
@@ -733,31 +691,9 @@ sub set_back_pixmap {
$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)));
+ $n->append_page($book, gtkshow(gtknew('Label', text => $title)));
$book->show;
}
@@ -774,141 +710,13 @@ sub string_width {
$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, $o_wrap_char) = @_;
- my $wrap_char = $o_wrap_char || ' ';
- my @lines;
- my $current_text;
- my @t = split($wrap_char, $text);
- my @t2;
- if ($::isInstall && $::o->{locale}{lang} =~ /ja|zh/) {
- @t = map { $_ . $wrap_char } @t;
- $wrap_char = '';
- foreach (@t) {
- my @c = split('');
- my $i = 0;
- my $el = '';
- while (1) {
- $i >= @c and last;
- $el .= $c[$i];
- if (ord($c[$i]) >= 128) { $el .= $c[$i+1]; $i++; push @t2, $el; $el = '' }
- $i++;
- }
- $el 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);
+my ($def_step_title);
+sub set_default_step_items {
+ $def_step_title = translate($_[0]);
}
-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');
-
-
+sub get_default_step_items { ($def_step_title) }
# -=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---
# toplevel window creation helper
@@ -922,104 +730,49 @@ add_icon_path(@icon_paths,
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' }}{$event->keyval};
- if ($d eq 'screenshot') {
- common::take_screenshot();
- }
- 0;
- });
- } elsif (!$o->{isEmbedded}) {
- $::WizardWindow->set_position('center_always') if !$::isStandalone;
- eval { gtkpack__($::WizardTable, Gtk2::Banner->new($::Wizard_pix_up || "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 });
+ my $icon = find { _find_imgfile($_) } $::isInstall ? 'empty-banner' : $opts{icon};
+ my $banner_title = $opts{banner_title};
+ $o->{transient} ||= $::main_window if $::main_window && !$opts{do_not_track_main_window};
+ my $window = gtknew(
+ 'MagicWindow',
+ title => $title || '',
+ pop_it => $o->{pop_it},
+ $::isInstall ? (banner => gtknew('Install_Title', text => $title || get_default_step_items())) : (),
+ $::isStandalone && $banner_title && $icon ? (banner => Gtk2::Banner->new($icon, $banner_title)) : (),
+ width => $opts{width}, height => $opts{height}, default_width => $opts{default_width}, default_height => $opts{default_height},
+ modal => (!$o->{pop_it} && !$::isInstall) && ($opts{modal} || $grab || $o->{grab}) || $o->{modal},
+ no_Window_Manager => exists $opts{no_Window_Manager} ? $opts{no_Window_Manager} : !$::isStandalone,
+ if_(!$::isInstall, icon_no_error => wm_icon()),
+ if_($o->{transient}, transient_for => $o->{transient}),
+ );
+ mygtk2::register_main_window($window->{real_window}) if !$opts{do_not_track_main_window};
+ $window->set_border_width(10) if !$window->{pop_it} && !$::noborderWhenEmbedded;
+
+ $o->{rwindow} = $o->{window} = $window;
+ $o->{real_window} = $window->{real_window};
+ $o->{pop_it} = $window->{pop_it};
$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}
+ $o->show;
+ mygtk2::main($o->{rwindow},
+ sub { $o->{retval} ? !$o_completed || $o_completed->() : !$o_canceled || $o_canceled->() });
+ $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();
+ $o->{rwindow}->destroy;
flush();
}
sub DESTROY { goto &destroy }
@@ -1031,75 +784,20 @@ sub sync {
sub flush() { gtkflush() }
sub shrink_topwindow {
my ($o) = @_;
- $o->{rwindow}->signal_emit('size_allocate', Gtk2::Gdk::Rectangle->new(-1, -1, -1, -1));
+ $o->{real_window}->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_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;
+ if ($::isStandalone) {
+ require standalone;
+ standalone::__exit($_[1]); #- workaround
} else {
- log::l("not XSetInputFocus since already done and not on top");
+ c::_exit($_[1]); #- workaround
}
- 0;
}
+#- in case "exit" above was not called by the program
+END { &exit() }
# -=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---
# ask
@@ -1115,7 +813,7 @@ sub ask_dir { my $w = ugtk2->new(shift @_, grab => 1); $w->_ask_dir(@_);
sub _ask_from_entry($$@) {
my ($o, @msgs) = @_;
- my $entry = Gtk2::Entry->new;
+ my $entry = gtknew('Entry');
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 };
@@ -1132,7 +830,7 @@ 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 }),
+ my $w = gtknew('Button', text => N("Ok"), clicked => sub { Gtk2->main_quit }),
),
);
$w->grab_focus;
@@ -1150,34 +848,52 @@ sub _ask_okcancel($@) {
$o->{ok}->grab_focus;
}
+sub create_file_selector {
+ my (%opts) = @_;
+ my $w = ugtk2->new(delete $opts{title}, modal => 1);
+ my ($message, $save, $want_a_dir) = (delete $opts{message}, delete $opts{save}, delete $opts{want_a_dir});
+ my $action = $want_a_dir ? ($save ? 'create_folder' : 'select_folder') : ($save ? 'save' : 'open');
+ add2hash(\%opts, { width => 480, height => 250 });
+ gtkadd($w->{window},
+ gtkpack_(create_box_with_title($w, $message),
+ 1, $w->{chooser} = gtknew('FileChooser', action => $action, %opts),
+ 0, create_okcancel($w),
+ ));
+ $w->{chooser}->signal_connect(file_activated => sub { $w->{ok}->clicked });
+ $w;
+}
-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);
+sub file_selected_check {
+ my ($save, $want_a_dir, $file) = @_;
+
+ if (!$file) {
+ N("No file chosen");
+ } elsif (-f $file && $want_a_dir) {
+ N("You have chosen a file, not a directory");
+ } elsif (-d $file && !$want_a_dir) {
+ N("You have chosen a directory, not a file");
+ } elsif (!-e $file && !$save) {
+ $want_a_dir ? N("No such directory") : N("No such file");
+ } else {
+ '';
}
- 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_file {
+ my ($o, $title, $path) = @_;
+
+ my $w = create_file_selector(title => $title, want_a_dir => 0, directory => $path);
+ put_in_hash($o, $w);
+
+ $w->{ok}->signal_connect(clicked => sub { $o->{retval} = $w->{chooser}->get_filename });
+}
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;
- });
+ my ($o, $title, $path) = @_;
+
+ my $w = create_file_selector(title => $title, want_a_dir => 1, directory => $path);
+ put_in_hash($o, $w);
+
+ $w->{ok}->signal_connect(clicked => sub { $o->{retval} = $w->{chooser}->get_filename });
}
sub ask_browse_tree_info {
@@ -1197,16 +913,27 @@ sub ask_browse_tree_info {
$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),
- ));
+ gtknew('VBox', spacing => 5, children => [
+ 0, gtknew('Title2', label => $common->{message},
+ # workaround infamous 6 years old gnome bug #101968:
+ width => mygtk2::get_label_width()),
+ 1, gtknew('VBox', children => [
+ 1, gtknew('ScrolledWindow', child => $tree),
+ 0, gtknew('Frame', text => N("Info"), child =>
+ gtknew('ScrolledWindow', child => my $info = gtknew('TextView', editable => 0, height => 100)),
+ ) ]),
+ 0, Gtk2::HSeparator->new,
+ 0, my $status = gtknew('Label'),
+ if_($common->{auto_deps},
+ 0, gtknew('CheckButton', text => $common->{auto_deps}, active_ref => \$common->{state}{auto_deps})
+ ),
+ 0, Gtk2::HSeparator->new,
+ 0, my $box2 = gtknew('HBox', spacing => 10),
+ ]));
+
+ gtkpack__($box2, gtknew(($::isInstall ? 'Install_Button' : 'Button'), text => N("Help"),
+ clicked => $common->{interactive_help})) if $common->{interactive_help};
+
#gtkpack__($box2, my $toolbar = Gtk2::Toolbar->new('horizontal', 'icons'));
gtkpack__($box2, my $toolbar = Gtk2::Toolbar->new);
@@ -1214,32 +941,22 @@ sub ask_browse_tree_info {
@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);
+ $box2->pack_end(my $w = gtknew('Button', text => $t, clicked => sub {
+ $w->{retval} = $val;
+ Gtk2->main_quit;
+ }), 0, 1, 20);
+ $w->show;
$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);
+ $status->show;
- $w->{window}->set_size_request(map { $_ - 2 * $border - 4 } $::windowwidth, $::windowheight) if !$::isInstall;
+ $w->{window}->set_size_request(map { $_ - 2 * $border - 4 } $w->{windowwidth}, $w->{windowheight}) if !$::isInstall;
$buttons[0]->grab_focus;
- $w->{rwindow}->show_all;
+ $w->{rwindow}->show;
- #- 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}->() } ]);
+ my @toolbar;
foreach my $ic (@{$common->{icons} || []}) {
push @toolbar, ($ic->{icon} => [ $ic->{help}, sub {
if ($ic->{code}) {
@@ -1255,7 +972,7 @@ sub ask_browse_tree_info {
}
$pixcolumn->{is_pix} = 1;
- $common->{widgets} = { w => $w, tree => $tree, tree_model => $tree_model, textcolumn => $textcolumn, pixcolumn => $pixcolumn,
+ $common->{widgets} = { w => $w, tree => $tree, tree_model => $tree_model,
info => $info, status => $status };
ask_browse_tree_info_given_widgets($common);
}
@@ -1267,8 +984,10 @@ sub ask_browse_tree_info_given_widgets {
my ($curr, $prev_label, $idle, $mouse_toggle_pending);
my (%wtree, %ptree, %pix, %node_state, %state_stats);
my $update_size = sub {
- my $new_label = $common->{get_status}();
- $prev_label ne $new_label and $w->{status}->set($prev_label = $new_label);
+ 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 {
@@ -1401,7 +1120,7 @@ sub ask_browse_tree_info_given_widgets {
};
$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 $children = sub { map { $w->{tree_model}->get($_, 0) } gtktreeview_children($w->{tree_model}, $_[0]) };
my $toggle = sub {
if (ref($curr) && !$_[0]) {
$w->{tree}->toggle_expansion($w->{tree_model}->get_path($curr));
@@ -1424,7 +1143,7 @@ sub ask_browse_tree_info_given_widgets {
$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 ' ') {
+ if ($_[1]->keyval >= 0x100 ? member($c, "\r", "\x8d") : $c eq ' ') {
$toggle->(0);
}
0;
@@ -1433,7 +1152,10 @@ sub ask_browse_tree_info_given_widgets {
$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 ($idle) {
+ Glib::Source->remove($idle);
+ undef $idle;
+ }
if (!$model->iter_has_child($iter)) {
$curr = $model->get($iter, 0);
@@ -1450,7 +1172,7 @@ sub ask_browse_tree_info_given_widgets {
}
0;
});
- $w->{tree}->signal_connect(button_press_event => sub { #- not too good, but CellRendererPixbuf doesn't have the needed signals :(
+ $w->{tree}->signal_connect(button_press_event => sub { #- not too good, but CellRendererPixbuf does not 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);
@@ -1461,6 +1183,7 @@ sub ask_browse_tree_info_given_widgets {
&$update_size;
$common->{initial_selection} and $common->{toggle_nodes}($set_leaf_state, @{$common->{initial_selection}});
my $_b = before_leaving { $clear_all_caches->() };
+ $common->{init_callback}->() if $common->{init_callback};
$w->{w}->main;
}
@@ -1474,10 +1197,10 @@ sub gtk_set_treelist {
sub gtk_TextView_get_log {
- my ($log_w, $log_scroll, $command, $filter_output, $when_command_is_over) = @_;
+ my ($log_w, $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: $!";
+ common::nonblock($F);
my $gtk_buffer = $log_w->get_buffer;
$log_w->signal_connect(destroy => sub {
@@ -1485,20 +1208,16 @@ sub gtk_TextView_get_log {
$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;
+ $log_w->{to_bottom}->();
}
if (waitpid($pid, c::WNOHANG()) > 0) {
- #- we do not call $when_command_is_over if $gtk_buffer doesn't exist anymore
+ #- we do not call $when_command_is_over if $gtk_buffer does not exist anymore
#- since it is not a normal case
$when_command_is_over->($gtk_buffer) if $when_command_is_over && $gtk_buffer;
$pid = '';
@@ -1513,9 +1232,9 @@ sub gtk_TextView_get_log {
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;
+ my $log_w = gtknew('TextView', editable => 0);
+ my $log_scroll = gtknew('ScrolledWindow', child => $log_w, to_bottom => 1);
+ my $pid = gtk_TextView_get_log($log_w, $command, $filter_output, $when_command_is_over) or return;
$log_scroll, $pid;
}
@@ -1592,7 +1311,7 @@ sub toggle_expansion {
# compatible with Combo since its API is quite nice.
package Gtk2::OptionMenu;
-use common;
+use MDK::Common;
# try to get combox <==> option menu mapping
sub set_popdown_strings {
@@ -1603,7 +1322,7 @@ sub set_popdown_strings {
#$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
+ $w;
}
sub new_with_strings {
@@ -1621,7 +1340,7 @@ sub entry {
sub get_text {
my ($w) = @_;
- $w->{strings}[$w->get_history];
+ $w->get_history == -1 ? '' : $w->{strings}[$w->get_history];
}
sub set_text {
@@ -1638,20 +1357,21 @@ sub set_text {
package Gtk2::ComboBox;
-use common;
+use MDK::Common;
# try to get combox <==> option menu mapping
sub set_popdown_strings {
my ($w, @strs) = @_;
+ $w->get_model->clear;
# keep string list around for ->set_text compatibilty helper
$w->{strings} = \@strs;
$w->append_text($_) foreach @strs;
- $w
+ $w;
}
sub new_with_strings {
my ($class, $strs, $o_val) = @_;
- my $w = $class->new;
+ my $w = $class->new_text;
$w->set_popdown_strings(@$strs);
$w->set_text($o_val) if $o_val;
$w;
@@ -1664,7 +1384,7 @@ sub entry {
sub get_text {
my ($w) = @_;
- $w->{strings}[$w->get_active];
+ $w->get_active == -1 ? '' : $w->{strings}[$w->get_active];
}
sub set_text {
@@ -1673,61 +1393,90 @@ sub set_text {
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(@_);
+ my ($label, $text) = @_;
+ mygtk2::gtkset($label, text => $text);
}
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);
+ mygtk2::gtknew('WrappedLabel', text => $o_text || '', alignment => [ $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;
+ my ($_class, $o_text) = @_;
+ mygtk2::gtknew('Entry', text => $o_text);
}
package Gtk2::Banner;
+use MDK::Common;
+use mygtk2 qw(gtknew);
use ugtk2 qw(:helpers :wrappers);
sub set_pixmap {
my ($darea) = @_;
return if !$darea->realized;
- ugtk2::set_back_pixmap($darea);
+ ugtk2::set_back_pixbuf($darea, $darea->{back_pixbuf});
+ update_text($darea);
+}
+
+sub update_text {
+ my ($darea) = @_;
$darea->{layout} = $darea->create_pango_layout($darea->{text});
+ $darea->{txt_width} = first($darea->{layout}->get_pixel_size);
+ $darea->queue_draw;
}
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);
+ mygtk2::import_style_ressources();
+ my $darea = gtknew('DrawingArea', widget_name => 'Banner');
+ $darea->{back_pixbuf} = gtknew('Pixbuf', file => 'banner-background');
+ my $d_height = $darea->{back_pixbuf}->get_height;
+ $darea->set_size_request(-1, $d_height);
+ $darea->modify_font(Gtk2::Pango::FontDescription->from_string("13"));
+ eval { $darea->{icon} = ugtk2::gtkcreate_pixbuf($icon) };
+ $darea->{icon} ||= ugtk2::gtkcreate_pixbuf(ugtk2::wm_icon());
+ my $blue_part = eval { gtknew('Pixbuf', file => 'banner-blue-part', flip => mygtk2::text_direction_rtl()) };
+ my $blue_width = $blue_part->get_width;
$darea->{text} = $text;
+ require lang;
+ my $is_rtl = lang::text_direction_rtl();
$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;
+ my $width = $darea->{icon}->get_width;
+ # fix icon position when not using the default height:
+ (undef, undef, undef, $d_height) = $darea->window->get_geometry;
+ my $padding = int(($d_height - $height)/2);
+ my $d_width = $darea->allocation->width;
+ my $x_blue = $is_rtl ? $d_width - $blue_width : 0;
+ my $x_icon = $is_rtl ? $d_width - 12 - $width : 12;
+ # here: 10 is the amount of padding (white background) wish to add betwen text & blue background:
+ my $x_text = $is_rtl ? $d_width - $blue_width - 10 - $darea->{txt_width} : $blue_width + 10;
+ $darea->{layout_height} ||= second($darea->{layout}->get_pixel_size);
+ $blue_part->render_to_drawable($darea->window, $style->bg_gc('normal'),
+ 0, 0, $x_blue, 0, -1, -1, 'none', 0, 0);
$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,
+ 0, 0, $x_icon, $padding, -1, -1, 'none', 0, 0);
+ $darea->window->draw_layout($style->fg_gc('normal'), $x_text,
+ $o_options->{txt_ypos} || ($d_height - $darea->{layout_height})/2,
$darea->{layout});
1;
});
@@ -1735,5 +1484,170 @@ sub new {
return $darea;
}
+
+package Gtk2::MDV::CellRendererPixWithLabel;
+
+use MDK::Common;
+use Glib::Object::Subclass "Gtk2::CellRenderer",
+ properties => [
+ Glib::ParamSpec->string("label", "Label", "A meaningfull label", "", [qw(readable writable)]),
+ Glib::ParamSpec->object("pixbuf", "Pixbuf file", "Something nice to display", 'Gtk2::Gdk::Pixbuf', [qw(readable writable)]),
+ ];
+
+my $x_padding = 2;
+my $y_padding = 2;
+
+sub INIT_INSTANCE {}
+
+sub pixbuf_size {
+ my ($cell) = @_;
+ my $pixbuf = $cell->get('pixbuf');
+ $pixbuf ? ($pixbuf->get_width, $pixbuf->get_height) : (0, 0);
+}
+
+sub calc_size {
+ my ($cell, $layout) = @_;
+ my ($width, $height) = $layout->get_pixel_size;
+ my ($pwidth, $pheight) = pixbuf_size($cell);
+
+ return 0, 0,
+ $width + $x_padding * 3 + $pwidth,
+ max($pheight, $height + $y_padding * 2);
+}
+
+sub GET_SIZE {
+ my ($cell, $widget, $_cell_area) = @_;
+
+ my $layout = get_layout($cell, $widget);
+ $layout->set_text($cell->get('label'));
+
+ return calc_size($cell, $layout);
+}
+
+sub get_layout {
+ my ($_cell, $widget) = @_;
+ return $widget->create_pango_layout("");
+}
+
+sub RENDER { # not that efficient...
+ my ($cell, $window, $widget, $_background_area, $cell_area, $_expose_area, $flags) = @_;
+ my $state;
+ if ($flags & 'selected') {
+ $state = $widget->has_focus
+ ? 'selected'
+ : 'active';
+ } else {
+ $state = $widget->state eq 'insensitive'
+ ? 'insensitive'
+ : 'normal';
+ }
+
+ my $layout = get_layout($cell, $widget);
+ $layout->set_text($cell->get('label'));
+
+ my $is_rtl = lang::text_direction_rtl();
+ my $txt_width = first($layout->get_pixel_size);
+
+ my ($x_offset, $y_offset, $_width, $_height) = calc_size($cell, $layout);
+ my $pixbuf = $cell->get('pixbuf');
+ my ($pwidth, $pheight) = pixbuf_size($cell);
+ my $txt_offset = $cell_area->x + $x_offset + $x_padding * 2 + $pwidth;
+
+ if ($pixbuf) {
+ $pixbuf->render_to_drawable($window, $widget->style->fg_gc('normal'),
+ 0, 0,
+ $is_rtl ? $cell_area->width - $cell_area->x - $pwidth : $cell_area->x ,#+ $x_padding,
+ $cell_area->y, #+ $y_padding,
+ $pwidth, $pheight, 'none', 0, 0);
+ }
+ $widget->get_style->paint_layout($window,
+ $state,
+ 1,
+ $cell_area,
+ $widget,
+ "cellrenderertext",
+ $is_rtl ? $cell_area->width - $txt_width - $txt_offset : $txt_offset,
+ $cell_area->y + $y_offset + $y_padding,
+ $layout);
+
+}
+
1;
+
+package Gtk2::Notify::Queue;
+
+sub new {
+ my ($class, $statusicon) = @_;
+
+ require Gtk2::Notify;
+
+ my $self = bless {
+ queue => [],
+ statusicon => $statusicon,
+ display => 5000,
+ delay => 500,
+ }, $class;
+ $self;
+}
+
+sub process_next {
+ my ($self) = @_;
+ shift @{$self->{queue}};
+ #- wait for some time so that the new notification is noticeable
+ @{$self->{queue}} and Glib::Timeout->add($self->{delay}, sub { $self->show; 0 });
+}
+
+sub add {
+ my ($self, $info) = @_;
+ push @{$self->{queue}}, $info;
+ @{$self->{queue}} == 1 and $self->show;
+}
+
+sub show {
+ my ($self) = @_; # perl_checker: $self = Gtk2::Notify->new
+ my $info = $self->{queue}[0];
+ my $notification = Gtk2::Notify->new($info->{title}, $info->{message}, $self->{statusicon});
+ $notification->set_icon_from_pixbuf($info->{pixbuf}) if $info->{pixbuf};
+ $notification->set_urgency($info->{urgency}) if $info->{urgency};
+ foreach my $a (@{$info->{actions} || []}) {
+ $notification->add_action(
+ $a->{action}, $a->{label},
+ sub {
+ $info->{processed} = 1;
+ #- $a->{callback} has to call $selft->process_next when done
+ $a->{callback}->();
+ });
+ }
+ $notification->signal_connect(closed => sub {
+ $info->{processed} and return;
+ $info->{timeout}->() if $info->{timeout};
+ $self->process_next;
+ });
+ # this makes net_applet to segfault (mga#9102):
+ #eval { $notification->show };
+}
+
+1;
+
+
+package Gtk2::GUI_Update_Guard;
+
+use MDK::Common::Func qw(before_leaving);
+use ugtk2;
+
+sub new {
+ my ($_class) = @_; # prevent a perl_checker warning in callers
+ my $old_signal = $SIG{ALRM};
+ $SIG{ALRM} = sub {
+ ugtk2::gtkflush();
+ alarm(1);
+ };
+ alarm(1);
+ return before_leaving {
+ alarm(0);
+ $SIG{ALRM} = $old_signal || 'DEFAULT'; # restore default action
+ };
+}
+
+1;
generated by cgit v1.2.1 (git 2.21.0) at 2025-10-25 15:17:53 +0000