summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm1
-rw-r--r--perl-install/install/steps_gtk.pm4
-rw-r--r--perl-install/interactive/gtk.pm2
-rw-r--r--perl-install/mygtk2.pm1
-rw-r--r--perl-install/ugtk2.pm4
5 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 5cdc46410..6a22c31fa 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -66,6 +66,7 @@ sub main {
gtkpack_(Gtk2::VBox->new(0,7),
0, gtknew(($::isInstall ? ('Title1', 'label') : ('Label_Left', 'text'))
=> N("Click on a partition, choose a filesystem type then choose an action"),
+ # workaround infamous 6 years old gnome bug #101968:
width => mygtk2::get_label_width()
),
1, (my $notebook_widget = Gtk2::Notebook->new),
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 790849e6d..19a3da8cf 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -280,7 +280,9 @@ sub reallyChooseDesktop {
ugtk2::gtkadd($w->{window},
gtknew('VBox', children => [
- 0, gtknew('Title2', width => mygtk2::get_label_width(), label => $message .
+ 0, gtknew('Title2',
+ # workaround infamous 6 years old gnome bug #101968:
+ width => mygtk2::get_label_width(), label => $message .
N("Click on images in order to see a bigger preview")),
1, gtknew('HButtonBox', children_loose => \@l),
0, $w->create_okcancel(N("Next"), undef),
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 61e38b37f..03832686a 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -50,6 +50,7 @@ sub create_boxradio {
my $tips = Gtk2::Tooltips->new;
mapn {
my ($txt, $w) = @_;
+ # workaround infamous 6 years old gnome bug #101968:
$w->child->set_size_request(mygtk2::get_label_width(), -1) if $e->{alignment} ne 'right';
$w->signal_connect(button_press_event => $double_click) if $double_click;
@@ -398,6 +399,7 @@ sub create_widget {
} elsif ($e->{type} eq 'only_label') {
$w = $e->{title} ?
gtknew('Title2', label => escape_text_for_TextView_markup_format(${$e->{val}}),
+ # workaround infamous 6 years old gnome bug #101968:
if_($e->{alignment} ne 'right', width => mygtk2::get_label_width())) :
gtknew('Label_Left', line_wrap => 1, text_markup => ${$e->{val}});
} elsif ($e->{type} eq 'label') {
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 8430e0cf4..d5113614e 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -1223,6 +1223,7 @@ sub get_main_window_size() {
my ($width, $height) = $::real_windowwidth ? ($::real_windowwidth, $::real_windowheight) : $::isWizard ? (540, 360) : (600, 400);
}
+# in order to workaround infamous 6 years old gnome bug #101968:
sub get_label_width() {
first(mygtk2::get_main_window_size()) - 70;
}
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 4eb39660c..03e73c713 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -360,7 +360,9 @@ sub create_box_with_title {
} else {
my $new_label = sub {
my ($txt) = @_;
- ref($txt) ? $txt : gtknew('WrappedLabel', text_markup => $txt, width => mygtk2::get_label_width());
+ ref($txt) ? $txt : gtknew('WrappedLabel', text_markup => $txt,
+ # workaround infamous 6 years old gnome bug #101968:
+ width => mygtk2::get_label_width());
};
gtkpack__($box,
if_($::isWizard, gtknew('Label', height => 10)),