diff options
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 11 |
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(); |