summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-18 13:25:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-18 13:25:45 +0000
commit459eedd7dc7ef289f379d2fc1dc691a057d1e144 (patch)
treea042f6f973b37076d459c3ec80404f9e4ffaa202 /perl-install/ugtk2.pm
parentfb67876005b9f7002d56f96269da9e6fb5d03b0f (diff)
downloaddrakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar
drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.gz
drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.bz2
drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.xz
drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.zip
remove some unneeded ";", add some for normalization (as told by perl_checker)
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm36
1 files changed, 18 insertions, 18 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 54f99274b..a72aaa945 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -100,7 +100,7 @@ sub gtkadd {
ref $l or $l = Gtk2::WrappedLabel->new($l);
$w->add(gtkshow($l));
}
- $w
+ $w;
}
sub gtkadd_widget {
@@ -119,14 +119,14 @@ sub gtkappend {
ref $l or $l = Gtk2::WrappedLabel->new($l);
$w->append(gtkshow($l));
}
- $w
+ $w;
}
sub gtkappenditems {
my $w = shift;
$_->show foreach @_;
$w->append_items(@_);
- $w
+ $w;
}
# append page to a notebook
@@ -278,7 +278,7 @@ sub create_scrolled_window {
my $w = Gtk2::ScrolledWindow->new(undef, undef);
$w->set_policy($o_policy ? @$o_policy : ('automatic', 'automatic'));
if (member(ref($W), qw(Gtk2::Layout Gtk2::Text Gtk2::TextView Gtk2::TreeView))) {
- $w->add($W)
+ $w->add($W);
} else {
$w->add_with_viewport($W);
}
@@ -287,9 +287,9 @@ sub create_scrolled_window {
$W->set_left_margin(6) if ref($W) =~ /Gtk2::TextView/;
$W->show;
if (ref($W) =~ /Gtk2::TextView|Gtk2::TreeView/) {
- gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'in'), $w)
+ gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'in'), $w);
} else {
- $w
+ $w;
}
}
@@ -358,18 +358,18 @@ sub create_box_with_title {
)
),
if_($a, Gtk2::HSeparator->new)
- )
+ );
} else {
gtkpack__($box,
if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 10)),
(map {
my $w = $new_label->($_);
$::isWizard ? gtkpack__(Gtk2::HBox->new(0,0), gtkset_size_request(Gtk2::Label->new, 20, 0), $w)
- : $w
+ : $w;
} @l),
if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 15)),
if_($a, Gtk2::HSeparator->new)
- )
+ );
}
}
}
@@ -417,7 +417,7 @@ sub create_dialog {
$dialog->action_area->pack_start($button, 1, 1, 0);
$button->grab_default;
- $dialog->set_has_separator(0);;
+ $dialog->set_has_separator(0);
$dialog->show_all;
Gtk2->main;
$ret;
@@ -462,7 +462,7 @@ sub create_menu {
my $title = shift;
my $w = Gtk2::MenuItem->new($title);
$w->set_submenu(gtkshow(gtkappend(Gtk2::Menu->new, @_)));
- $w
+ $w;
}
sub create_notebook {
@@ -471,7 +471,7 @@ sub create_notebook {
my ($page, $title) = splice(@_, 0, 2);
gtkappend_page($book, $page, $title);
}
- $book
+ $book;
}
sub create_packtable {
@@ -546,7 +546,7 @@ sub create_okcancel {
$_->can_default($::isWizard);
$_;
} grep { $_ } @{$_->[0]})
- )
+ );
} ([ \@left, 'start' ],
[ \@right, 'end' ],
)
@@ -1015,7 +1015,7 @@ sub main {
Gtk2->main;
} while (!$o->{destroyed} && ($o->{retval} ? $o_completed && !$o_completed->() : $o_canceled && !$o_canceled->()));
$o->destroy;
- $o->{retval}
+ $o->{retval};
}
sub show($) {
my ($o) = @_;
@@ -1042,7 +1042,7 @@ sub shrink_topwindow {
sub exit {
gtkset_mousecursor_normal(); #- for restoring a normal in any case
flush();
- c::_exit($_[1]) #- workaround
+ c::_exit($_[1]); #- workaround
}
#- in case "exit" above was not called by the program
@@ -1230,7 +1230,7 @@ sub ask_browse_tree_info {
@buttons = reverse @buttons if !$::isInstall;
gtkpack__($box2, gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => sub {
- ask_warn(N("Help"), $common->{interactive_help}->())
+ ask_warn(N("Help"), $common->{interactive_help}->());
})) if $common->{interactive_help};
if ($common->{auto_deps}) {
@@ -1612,7 +1612,7 @@ sub set_popdown_strings {
#$w->set_menu((ugtk2::create_factory_menu($window, [ "File", (undef) x 3, '<Branch>' ], map { [ "File/" . $_, (undef) x 3, '<Item>' ] } @strs))[0]);
$menu->append(ugtk2::gtkshow(Gtk2::MenuItem->new_with_label($_))) foreach @strs;
$w->set_menu($menu);
- $w
+ $w;
}
sub new_with_strings {
@@ -1655,7 +1655,7 @@ sub set_popdown_strings {
# keep string list around for ->set_text compatibilty helper
$w->{strings} = \@strs;
$w->append_text($_) foreach @strs;
- $w
+ $w;
}
sub new_with_strings {