1 files changed, 8 insertions, 3 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 13212171c..15ef68568 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -322,9 +322,14 @@ $textcolumn->set_min_width(350);
 #$textcolumn->set_minmax_width(400);
 $textcolumn->set_sizing('GTK_TREE_VIEW_COLUMN_AUTOSIZE');#GROW_ONLY
 #$tree->columns_autosize();
-my $path = Gtk2::TreePath->new_first;
-$path->down unless $::isEmbedded;
-$tree->get_selection->select_path($path);
+# Gtk+-2.x workaround for not wrapped textview on first show
+$tree->signal_connect(realize => sub {
+                          my $path = Gtk2::TreePath->new_first;
+                          $path->down;
+                          $tree->get_selection->select_path($path);
+                          $path->up;
+                          $tree->get_selection->select_path($path);
+});
 $w->{rwindow}->show_all;
 undef $wait;
 gtkset_mousecursor_normal();