summaryrefslogtreecommitdiffstats
path: root/gurpmi2
diff options
context:
space:
mode:
Diffstat (limited to 'gurpmi2')
-rwxr-xr-xgurpmi246
1 files changed, 9 insertions, 37 deletions
diff --git a/gurpmi2 b/gurpmi2
index 800a4d64..4c0375f2 100755
--- a/gurpmi2
+++ b/gurpmi2
@@ -14,13 +14,9 @@ use gurpmi;
use urpm::msg qw(N);
use Gtk2;
-sub quit () { Gtk2->main_quit }
-
#- GUI globals
my ($mainw, $mainbox);
-#- Gtk2 helper functions
-
#- Replaces the contents of the main window with the specified box
#- (avoids popup multiplication)
sub change_mainw {
@@ -30,35 +26,11 @@ sub change_mainw {
$mainw->show_all;
}
-sub add_button_box {
- my ($vbox, @buttons) = @_;
- my $hbox = Gtk2::HButtonBox->new;
- $vbox->pack_start($hbox, 0, 0, 0);
- $hbox->set_layout('edge');
- $_->set_alignment(0.5, 0.5), $hbox->add($_) foreach @buttons;
-}
-
sub sync () {
$mainw->show;
Gtk2->main_iteration while Gtk2->events_pending;
}
-sub new_label {
- my ($msg) = @_;
- my $label = Gtk2::Label->new($msg);
- $label->set_line_wrap(1);
- $label->set_alignment(0.5, 0.5);
- if (($msg =~ tr/\n/\n/) > 5) {
- my $sw = Gtk2::ScrolledWindow->new;
- $sw->set_policy('never', 'automatic');
- $sw->add_with_viewport($label);
- $sw->set_size_request(-1,200);
- return $sw;
- } else {
- return $label;
- }
-}
-
#- sets the window to a please-wait message
sub wait_label {
my $wait_vbox = Gtk2::VBox->new(0, 5);
@@ -73,14 +45,14 @@ sub wait_label {
my (@all_rpms);
foreach (@ARGV) {
if (/^-/) {
- /^--?[hv?]/ and gurpmi::usage();
- gurpmi::fatal N("Unknown option %s", $_);
+ /^--?[hv?]/ and usage();
+ fatal(N("Unknown option %s", $_));
}
push @all_rpms, $_;
}
-@all_rpms or gurpmi::fatal N("No packages specified");
+@all_rpms or fatal(N("No packages specified"));
-$> and gurpmi::fatal N("Must be root");
+$> and fatal(N("Must be root"));
#- Now, the graphical stuff.
@@ -158,8 +130,8 @@ sub ask_choice {
$label->set_alignment(0.5, 0.5);
$vbox->pack_start($label, 1, 1, 0);
$vbox->pack_start($_, 1, 1, 0) foreach @radios;
- my $cancel_button = Gtk2::Button->new(gurpmi::but N("_Cancel"));
- my $choice_button = Gtk2::Button->new(gurpmi::but N("_Ok"));
+ my $cancel_button = Gtk2::Button->new(but(N("_Cancel")));
+ my $choice_button = Gtk2::Button->new(but(N("_Ok")));
$cancel_button->signal_connect(clicked => \&quit);
$choice_button->signal_connect(clicked => sub {
my $n = 0;
@@ -175,8 +147,8 @@ sub ask_continue {
my ($msg, $nextclosure) = @_;
my $vbox = Gtk2::VBox->new(0, 5);
$vbox->pack_start(new_label($msg), 1, 1, 0);
- my $continue_button = Gtk2::Button->new(gurpmi::but N("_Ok"));
- my $quit_button = Gtk2::Button->new(gurpmi::but N("_Abort"));
+ my $continue_button = Gtk2::Button->new(but(N("_Ok")));
+ my $quit_button = Gtk2::Button->new(but(N("_Abort")));
$quit_button->signal_connect(clicked => \&quit);
$continue_button->signal_connect(clicked => sub { goto &$nextclosure });
add_button_box($vbox, $quit_button, $continue_button);
@@ -326,7 +298,7 @@ sub do_install_3 () {
$vbox = Gtk2::VBox->new(0, 5);
$progress_label = Gtk2::Label->new('-');
$vbox->pack_start($progress_label, 1, 1, 0);
- my $quit_button = Gtk2::Button->new(gurpmi::but N("_Done"));
+ my $quit_button = Gtk2::Button->new(but(N("_Done")));
$quit_button->signal_connect(clicked => \&quit);
add_button_box($vbox, $quit_button);
change_mainw($vbox);