summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-14 14:47:28 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-14 14:47:28 +0000
commitff4cc37795cb21c219ce360f48f208f45356f03d (patch)
tree2be8313bdc41a95ac6b58cd5ea019b3b481b94a8 /perl-install/ugtk2.pm
parent6cbb31b6b916dc7952da7ca05b9feac5b139707a (diff)
downloaddrakx-ff4cc37795cb21c219ce360f48f208f45356f03d.tar
drakx-ff4cc37795cb21c219ce360f48f208f45356f03d.tar.gz
drakx-ff4cc37795cb21c219ce360f48f208f45356f03d.tar.bz2
drakx-ff4cc37795cb21c219ce360f48f208f45356f03d.tar.xz
drakx-ff4cc37795cb21c219ce360f48f208f45356f03d.zip
honour 9.1 theme title of windows: no icon, text to the left
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm5
1 files changed, 4 insertions, 1 deletions
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)
)
}