From ff4cc37795cb21c219ce360f48f208f45356f03d Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Fri, 14 Feb 2003 14:47:28 +0000 Subject: honour 9.1 theme title of windows: no icon, text to the left --- perl-install/ugtk2.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 9f969ccb6..2c30c213d 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -347,11 +347,14 @@ sub create_box_with_title { ) } else { gtkpack__($box, + if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 10)), (map { my $w = ref($_) ? $_ : Gtk2::Label->new($_); - $::isWizard and $w->set_justify("left"); gtkset_name($w, "Title"); + $::isWizard ? (gtkpack__(Gtk2::HBox->new(0,0), gtkset_size_request(Gtk2::Label->new, 20, 0), $w)) + : $w } map { ref($_) ? $_ : warp_text($_) } @_), + if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 15)), if_($a, Gtk2::HSeparator->new) ) } -- cgit v1.2.1