diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-26 16:02:26 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-26 16:02:26 +0000 |
| commit | 9b80b439e34c01759443ba05c61dc6ea4c3cf640 (patch) | |
| tree | 6352980a34e8ec76e46192b6846d6e82a57c7feb /perl-install | |
| parent | 1cbe9a2cb9d28f0f7f5faa7dd07c089aee20d578 (diff) | |
| download | drakx-9b80b439e34c01759443ba05c61dc6ea4c3cf640.tar drakx-9b80b439e34c01759443ba05c61dc6ea4c3cf640.tar.gz drakx-9b80b439e34c01759443ba05c61dc6ea4c3cf640.tar.bz2 drakx-9b80b439e34c01759443ba05c61dc6ea4c3cf640.tar.xz drakx-9b80b439e34c01759443ba05c61dc6ea4c3cf640.zip | |
(Gtk2::Banner::new) add o_otions ref hash parameter, thus enabling to
override text position (eg: for mcc about dialog)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 890ed5b01..5fa9aba62 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1622,7 +1622,7 @@ sub set_pixmap { sub new { - my ($_class, $icon, $text) = @_; + my ($_class, $icon, $text, $o_options) = @_; my $darea = Gtk2::DrawingArea->new; $darea->set_size_request(-1, 75); @@ -1637,7 +1637,8 @@ sub new { my $height = $darea->{icon}->get_height; $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, 25, $darea->{layout}); + $darea->window->draw_layout($style->text_gc('normal'), $height + 20, $o_options->{txt_ypos} || 25, + $darea->{layout}); 1; }); |