diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfloppy | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy index d9cc103c6..addace84a 100755 --- a/perl-install/standalone/drakfloppy +++ b/perl-install/standalone/drakfloppy @@ -166,8 +166,7 @@ $window->{window}->add( Gtk2::HBox->new(0, 0), 5), 30, 75), - 1, $output = new Gtk2::Text(undef, undef), - 0, Gtk2::VScrollbar->new($output->vadj), + 1, $output = Gtk2::TextView->new, ), ), 0, gtkpack__(new Gtk2::HBox(0, 0), @@ -308,7 +307,7 @@ sub build_it { open STATUS, $co or do { create_dialog(N("Unable to fork: %s", $!), 0); return }; local $_; while (<STATUS>) { - $output->insert(undef, undef, undef, $_); + gtktext_append($output, [ [ $_ ] ]); } close STATUS or create_dialog(N("Unable to properly close mkbootdisk: \n %s \n %s", $!, $?), 0); |