diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakroam | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index ad6b34ed1..e256124fe 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -326,14 +326,14 @@ sub Disconnect { sub Dialog { # read file my ($FilePointer) = @_; -my $content = join('', cat_($FilePointer)); -# dump into a dialog -my $AboutWindow = Gtk2::Dialog->new("Drakroam Info", $w->{window}, - 'destroy-with-parent', - 'gtk-ok' => 'none'); -$AboutWindow->vbox->add(create_scrolled_window(Gtk2::Label->new($content))); -$AboutWindow->signal_connect(response => sub { $_[0]->destroy }); -$AboutWindow->show_all; + my $content = join('', cat_($FilePointer)); + # dump into a dialog + my $AboutWindow = Gtk2::Dialog->new("Drakroam Info", $w->{window}, + 'destroy-with-parent', + 'gtk-ok' => 'none'); + $AboutWindow->vbox->add(create_scrolled_window(Gtk2::Label->new($content))); + $AboutWindow->signal_connect(response => sub { $_[0]->destroy }); + $AboutWindow->show_all; } # start GUI |