summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index e3bae1c3c..e7e9ece9c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -377,7 +377,7 @@ sub create_dialog {
# drakfloppy / logdrake
sub destroy_window {
- my($widget, $windowref, $w2) = @_;
+ my ($widget, $windowref, $w2) = @_;
$$windowref = undef;
$w2 = undef if defined $w2;
0;
@@ -750,7 +750,7 @@ sub new {
$o->{isEmbedded} = 1;
$o->{window} = new Gtk2::HBox(0,0);
$o->{rwindow} = $o->{window};
- $::Plug ||= new Gtk2::Plug ($::XID);
+ $::Plug ||= new Gtk2::Plug($::XID);
$::Plug->show;
flush();
$::Plug->add($o->{window});
@@ -1025,9 +1025,9 @@ sub ask_browse_tree_info {
my $go = gtksignal_connect(Gtk2::Button->new($common->{ok}), clicked => sub {
$w->{retval} = 1;
Gtk2->main_quit }),
- $common->{cancel} ? (gtksignal_connect(Gtk2::Button->new($common->{cancel}), clicked => sub {
+ $common->{cancel} ? gtksignal_connect(Gtk2::Button->new($common->{cancel}), clicked => sub {
$w->{retval} = 0;
- Gtk2->main_quit }))
+ Gtk2->main_quit })
: (),
)));
gtkpack__($l, my $toolbar = Gtk2::Toolbar->new('horizontal', 'icons'));