From f5ed08a589bc9081c68188c464a5a978557d0b2a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 23 May 2013 17:53:00 +0200
Subject: convert Banner widget to Gtk+3

- Parsing of custom resources: RC -> CSS
- signal: 'style-set' => 'style-updated'
- Drop our custom draw code
- widget is much simpler, using Overlays
  (due to that(?), we must remove -4 from the vertical padding)

Also fix "Unit is missing" fatal error with newer gtk+3.10

Most themes work OK but Oxygen-gtk3...
---
 perl-install/ugtk3.pm | 79 +++++++++++++++++++++++----------------------------
 1 file changed, 36 insertions(+), 43 deletions(-)

diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 0ce17fced..fe0b0f89e 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -1429,62 +1429,55 @@ use MDK::Common;
 use mygtk3 qw(gtknew);
 use ugtk3 qw(:helpers :wrappers);
 
-sub set_pixmap {
-    my ($darea) = @_;
-    return if !$darea->get_realized;
-    ugtk3::set_back_pixbuf($darea, $darea->{back_pixbuf});
-    update_text($darea);
+sub set_style {
+   my ($w) = @_;
+   my $pl = Gtk3::CssProvider->new;
+   $pl->load_from_data("Layout, GtkLabel {font: 15px; background-color: #ffffff }");
+   $w->{label}->get_style_context->add_provider($pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION);
+   my $p = Gtk3::CssProvider->new;
+   $w->get_style_context->add_provider($p, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION);
 }
 
 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) = @_;
 
     mygtk3::import_style_ressources();
-    my $w = gtknew('DrawingArea', widget_name => 'Banner');
-    $w->{back_pixbuf} = gtknew('Pixbuf', file => 'banner-background');
-    my $d_height = $w->{back_pixbuf}->get_allocated_height;
-    $w->set_size_request(-1, $d_height);
-    $w->modify_font(Pango::FontDescription->from_string("13"));
-    eval { $w->{icon} = ugtk3::gtkcreate_pixbuf($icon) };
-    $w->{icon} ||= ugtk3::gtkcreate_pixbuf(ugtk3::wm_icon());
+    my $icon = eval { ugtk3::gtkcreate_pixbuf($icon) };
+    $icon ||= ugtk3::gtkcreate_pixbuf(ugtk3::wm_icon());
     my $is_rtl = mygtk3::text_direction_rtl();
     my $blue_part = eval { gtknew('Pixbuf', file => 'banner-blue-part', flip => $is_rtl) };
-    my $blue_width = $blue_part->get_width;
-    $w->{text} = $text;
-
-    $w->signal_connect(realize => \&set_pixmap);
-    $w->signal_connect("style-set" => \&set_pixmap);
-    $w->signal_connect(expose_event => sub {
-                               my $style = $w->get_style;
-                               my $height = $w->{icon}->get_height;
-                               my $width = $w->{icon}->get_width;
-                               # fix icon position when not using the default height:
-                               (undef, undef, undef, $d_height) = $w->get_window->get_geometry;
-                               my $padding = int(($d_height - $height)/2);
-                               my $d_width = $w->get_allocation->width;
-                               my $x_blue = $is_rtl ? $d_width - $blue_width : 0;
-                               my $x_icon = $is_rtl ? $d_width - 12 - $width : 12;
-                               # here: 48 is the amount of white background in the blue background we wish to ignore:
-                               my $x_text = $is_rtl ? $d_width - $blue_width + 48 - $w->{txt_width} : $blue_width - 48;
-                               $w->{layout_height} ||= second($w->{layout}->get_pixel_size);
-                               $blue_part->render_to_drawable($w->get_window, $style->bg_gc('normal'),
-                                                                  0, 0, $x_blue, 0, -1, -1, 'none', 0, 0);
-                               $w->{icon}->render_to_drawable($w->get_window, $style->bg_gc('normal'),
-                                                                  0, 0, $x_icon, $padding, -1, -1, 'none', 0, 0);
-                               $w->get_window->draw_layout($style->fg_gc('normal'), $x_text,
-                                                           $o_options->{txt_ypos} || ($d_height - $w->{layout_height})/2,
-                                                           $w->{layout});
-                               1;
-                           });
-                               
+
+    my $d_height = $blue_part->get_height;
+    
+
+    my $img = gtknew('Image', pixbuf => $blue_part, alignment => [ 0, 0 ]);
+
+    my $label = gtknew('Label', text => $text); # for update_text()
+    my $w = gtknew('Overlay', height => $d_height, main_child => $label, children => [
+		       gtknew('Overlay', main_child => $img, children => [
+				  my $icon_img = gtknew('Image', pixbuf => $icon, alignment => [ 0, 0 ]),
+			      ])
+		   ]);
+
+    # fix Icon position:
+    if ($is_rtl) {
+	$icon_img->set_margin_right(12);
+    } else {
+	$icon_img->set_margin_left(12);
+    }
+    $icon_img->set_margin_top(($blue_part->get_height-$icon->get_height)/2-4);
+
+    $w->{label} = $label;
+    $w->set_size_request(-1, $d_height);
+
+    $w->signal_connect(realize => \&set_style);
+    $w->signal_connect("style-updated" => \&set_style);
+    $w->show_all;
     return $w;
 }
 
-- 
cgit v1.2.1