From cd22e135d5881e93e3533edbcf9aed3de0651f6b Mon Sep 17 00:00:00 2001
From: Stew Benedict <stewb@mandriva.org>
Date: Wed, 3 Sep 2003 14:43:21 +0000
Subject: Last untranslated string.  Rework banner with title ala rpmdrake.

---
 perl-install/standalone/drakbackup | 28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

(limited to 'perl-install/standalone/drakbackup')

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index e06503318..001014f42 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -267,7 +267,7 @@ my $media_problem = 0;
 my $vol_name = 'Drakbackup';
 my $good_restore_path = 1;
 my $max_space = 1000.0;
-my @no_devices = translate("No devices found");
+my @no_devices = translate(N_("No devices found"));
 my %help;
 my $time_string = "* * * * *";
 my $exec_string = "export USER=$ENV{USER}; /usr/sbin/drakbackup --daemon > /dev/null 2>&1";
@@ -5075,17 +5075,33 @@ sub interactive_mode() {
     $in = 'interactive'->vnew;
 
     my $box;
-	my $winht = 400;
+	my $winht = 440;
 	$winht = 320 if $::isEmbedded;
 	my $winwidth = 540;
 	$winwidth = 500 if $::isEmbedded;
+	my $darea;
 	
     $my_win = ugtk2->new('drakbackup');
     $window1 = $my_win->{window};
     unless ($::isEmbedded) {
-	   $my_win->{rwindow}->set_position('center');
-	   $my_win->{rwindow}->set_title(N("Drakbackup"));
-	   $window1->set_size_request(600, 500);
+		$my_win->{rwindow}->set_position('center');
+		$my_win->{rwindow}->set_title(N("Drakbackup"));
+		$window1->set_size_request($winwidth, $winht);
+		my $pixbuf_icon = gtkcreate_pixbuf("ic82-back-up-48");
+		$darea = Gtk2::DrawingArea->new;
+		$darea->set_size_request($winwidth, 60);
+		$darea->modify_font(Gtk2::Pango::FontDescription->from_string('Sans Italic 24'));
+		my $layout = $darea->create_pango_layout(N("Drakbackup"));
+    	$darea->signal_connect(realize => sub { 
+			set_back_pixbuf($darea, gtkcreate_pixbuf('title-tile')) 
+		});
+    	$darea->signal_connect(expose_event => sub {
+			my (undef, undef, $dx, $dy) = $darea->allocation->values;
+			$darea->window->draw_pixbuf($darea->style->white_gc, $pixbuf_icon, 0, 0, $dx - $pixbuf_icon->get_width, $dy - $pixbuf_icon->get_height, -1, -1, 'none', 0, 0);
+			my ($lx, $ly) = $layout->get_pixel_size;
+			$darea->window->draw_layout($darea->style->white_gc, ($dx-$lx)/2, ($dy-$ly)/2, $layout);
+			0;
+		});
     }
     $my_win->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
     read_conf_file();     
@@ -5094,7 +5110,7 @@ sub interactive_mode() {
 		gtkpack(new Gtk2::VBox(0,0),
 			gtkpack(gtkset_size_request($up_box = new Gtk2::VBox(0, 5), $winwidth, $winht),
 				$box = gtkpack_(new Gtk2::VBox(0, 3),
-					if_(!$::isEmbedded, 0, gtkcreate_img("drakbackup.540x57")),
+					if_(!$::isEmbedded, 0, $darea),
 					1, gtkpack_(new Gtk2::HBox(0, 3),
 				  		1, gtkpack_(new Gtk2::HBox(0, 15),	
 							0, new Gtk2::HBox(0, 5),	
-- 
cgit v1.2.1