(interactive_msg) force sizing of Labels in order to prevent garbaged

wrapping with hebrew (#32882)

1 files changed, 4 insertions, 5 deletions

diff --git a/rpmdrake.pm b/rpmdrake.pm
index 048b08fb..b4d58e92 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -202,6 +202,7 @@ sub interactive_msg {
     $d->{rwindow}->set_position($options{transient} ? 'center_on_parent' : 'center_always');
     $contents = formatAlaTeX($contents) unless $options{scroll}; #- because we'll use a WrappedLabel
     my $banner = $options{banner} ? getbanner() : undef;
+    my $text_w;
     gtkadd(
 	$d->{window},
 	gtkpack_(
@@ -211,11 +212,8 @@ sub interactive_msg {
 	    (
 		$options{scroll} ? gtkadd(
 		    gtkset_shadow_type(Gtk2::Frame->new, 'in'),
-		    gtkset_size_request(
-			create_scrolled_window(gtktext_insert(Gtk2::TextView->new, $contents)),
-			$typical_width*2, 300
-		    )
-		) : Gtk2::WrappedLabel->new($contents)
+			($text_w = create_scrolled_window(gtktext_insert(Gtk2::TextView->new, $contents))),
+		) : ($text_w = Gtk2::WrappedLabel->new($contents))
 	    ),
          if_($options{widget}, 0, $options{widget}),
 	    0,
@@ -249,6 +247,7 @@ sub interactive_msg {
 	    )
 	)
     );
+    $text_w->set_size_request($typical_width*2, -1);
     $d->main;
     return $d->{retval};
 }