summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/ugtk.pm46
1 files changed, 23 insertions, 23 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 3d26866a6..ace94f2a0 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -42,24 +42,24 @@ sub icon_paths {
# gtk widgets wrappers
#-#######################
-sub gtkdestroy($) { $_[0] and $_[0]->destroy }
+sub gtkdestroy { $_[0] and $_[0]->destroy }
sub gtkflush { Gtk->main_iteration while Gtk->events_pending }
-sub gtkhide($) { $_[0]->hide; $_[0] }
+sub gtkhide { $_[0]->hide; $_[0] }
sub gtkmove { $_[0]->window->move($_[1], $_[2]); $_[0] }
-sub gtkpack($@) { gtkpowerpack(1, 1, @_) }
-sub gtkpack_($@) { gtkpowerpack('arg', 1, @_) }
-sub gtkpack__($@) { gtkpowerpack(0, 1, @_) }
-sub gtkpack2($@) { gtkpowerpack(1, 0, @_) }
-sub gtkpack2_($@) { gtkpowerpack('arg', 0, @_) }
-sub gtkpack2__($@) { gtkpowerpack(0, 0, @_) }
+sub gtkpack { gtkpowerpack(1, 1, @_) }
+sub gtkpack_ { gtkpowerpack('arg', 1, @_) }
+sub gtkpack__ { gtkpowerpack(0, 1, @_) }
+sub gtkpack2 { gtkpowerpack(1, 0, @_) }
+sub gtkpack2_ { gtkpowerpack('arg', 0, @_) }
+sub gtkpack2__ { gtkpowerpack(0, 0, @_) }
sub gtkpack3 { gtkpowerpack($a?1:0, 0, @_) }
sub gtkput { $_[0]->put(gtkshow($_[1]), $_[2], $_[3]); $_[0] }
sub gtkpixmap { new Gtk::Pixmap(gdkpixmap(@_)) }
sub gtkresize { $_[0]->window->resize($_[1], $_[2]); $_[0] }
-sub gtkset_active($$) { $_[0]->set_active($_[1]); $_[0] }
+sub gtkset_active { $_[0]->set_active($_[1]); $_[0] }
sub gtkset_border_width { $_[0]->set_border_width($_[1]); $_[0] }
sub gtkset_editable { $_[0]->set_editable($_[1]); $_[0] }
-sub gtkset_justify($$) { $_[0]->set_justify($_[1]); $_[0] }
+sub gtkset_justify { $_[0]->set_justify($_[1]); $_[0] }
sub gtkset_layout { $_[0]->set_layout($_[1]); $_[0] }
sub gtkset_modal { $_[0]->set_modal($_[1]); $_[0] }
sub gtkset_mousecursor_normal { gtkset_mousecursor(68, @_) }
@@ -69,9 +69,9 @@ sub gtkset_sensitive { $_[0]->set_sensitive($_[1]); $_[0] }
sub gtkset_tip { $_[0]->set_tip($_[1], $_[2]) if $_[2]; $_[1] }
sub gtkset_shadow_type { $_[0]->set_shadow_type($_[1]); $_[0] }
sub gtkset_style { $_[0]->set_style($_[1]); $_[0] }
-sub gtkset_usize($$$) { $_[0]->set_usize($_[1],$_[2]); $_[0] }
-sub gtkshow($) { $_[0]->show; $_[0] }
-sub gtksize($$$) { $_[0]->size($_[1],$_[2]); $_[0] }
+sub gtkset_usize { $_[0]->set_usize($_[1],$_[2]); $_[0] }
+sub gtkshow { $_[0]->show; $_[0] }
+sub gtksize { $_[0]->size($_[1],$_[2]); $_[0] }
sub gdkpixmap {
my ($f, $w) = @_;
@@ -79,7 +79,7 @@ sub gdkpixmap {
$f =~ m|.xpm$| and return gtkcreate_xpm($w, $f);
}
-sub gtkadd($@) {
+sub gtkadd {
my $w = shift;
foreach (@_) {
ref $_ or $_ = new Gtk::Label($_);
@@ -89,7 +89,7 @@ sub gtkadd($@) {
$w
}
-sub gtkappend($@) {
+sub gtkappend {
my $w = shift;
foreach (@_) {
my $l = $_;
@@ -168,7 +168,7 @@ sub gtkset_text {
$w;
}
-sub gtkcombo_setpopdown_strings ($@) {
+sub gtkcombo_setpopdown_strings {
my $w = shift;
$w->set_popdown_strings(@_);
$w;
@@ -191,7 +191,7 @@ sub gtkset_mousecursor {
($w || gtkroot())->set_cursor(Gtk::Gdk::Cursor->new($type));
}
-sub gtksignal_connect($@) {
+sub gtksignal_connect {
my $w = shift;
$w->signal_connect(@_);
$w;
@@ -201,12 +201,12 @@ sub gtksignal_connect($@) {
# create widgets wrappers
#-#######################
-sub create_adjustment($$$) {
+sub create_adjustment {
my ($val, $min, $max) = @_;
new Gtk::Adjustment($val, $min, $max + 1, 1, ($max - $min + 1) / 10, 1);
}
-sub create_box_with_title($@) {
+sub create_box_with_title {
my $o = shift;
my $nbline = sum(map { round(length($_) / 60 + 1/2) } map { split "\n" } @_);
@@ -265,20 +265,20 @@ sub create_box_with_title($@) {
sub create_hbox { gtkset_layout(gtkset_border_width(new Gtk::HButtonBox, 3), $_[0] || 'spread') }
-sub create_menu($@) {
+sub create_menu {
my $title = shift;
my $w = new Gtk::MenuItem($title);
$w->set_submenu(gtkshow(gtkappend(new Gtk::Menu, @_)));
$w
}
-sub create_notebook(@) {
+sub create_notebook {
my $n = new Gtk::Notebook;
add2notebook($n, splice(@_, 0, 2)) while @_;
$n
}
-sub create_packtable($@) {
+sub create_packtable {
my ($options, @l) = @_;
my $w = new Gtk::Table(0, 0, $options->{homogeneous} || 0);
map_index {
@@ -312,7 +312,7 @@ sub createScrolledWindow {
$w
}
-sub create_treeitem($) {
+sub create_treeitem {
my ($name) = @_;
my ($next_child, $left, $right, $up, $down);