More refactorisation

1 files changed, 31 insertions, 0 deletions

diff --git a/gurpmi.pm b/gurpmi.pm
index 404282c5..410602f6 100644
--- a/gurpmi.pm
+++ b/gurpmi.pm
@@ -16,6 +16,11 @@ BEGIN {
 }
 
 use urpm;
+use strict;
+
+use Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(usage fatal but quit add_button_box new_label);
 
 sub usage () {
     print STDERR <<USAGE;
@@ -31,4 +36,30 @@ sub fatal { print STDERR "$_[0]\n"; exit 1 }
 
 sub but ($) { "    $_[0]    " }
 
+sub quit () { Gtk2->main_quit }
+
+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 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;
+    }
+}
+
 1;