summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/harddrake211
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();