From a7f8d31c10fc7f8ea56478eb374d07a60179cd36 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Sun, 31 Aug 2003 21:12:22 +0000
Subject: (create_dialog) do not scroll labels by default

---
 perl-install/ugtk2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 382ce4ebc..ffd6c5d90 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -381,7 +381,7 @@ sub create_dialog {
     gtkpack($dialog->vbox,
             gtkpack_(Gtk2::HBox->new,
                      if_($o_options->{stock}, 0, Gtk2::Image->new_from_stock($o_options->{stock}, 'dialog')),
-                     1, create_scrolled_window($text, [ 'never', 'automatic' ]),
+                     1, $o_options->{scroll} ? create_scrolled_window($text, [ 'never', 'automatic' ]) : $text,
                     ),
            );
 
-- 
cgit v1.2.1