diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 12 | ||||
| -rw-r--r-- | perl-install/ugtk2.pm | 10 |
2 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index bb504b962..a8e44f50a 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -580,12 +580,12 @@ Create one first by clicking on 'Configure'")),1,1,0); $window->vbox->pack_start(gtkpack__(new Gtk2::VBox(0, 0), new Gtk2::Label(N("Internet Connection Configuration")), new Gtk2::HSeparator, - my $table1 = create_packtable({ col_spacings => 5, row_spacings => 5, homogenous => 1 }, - [ Gtk2::Label->new(N("Profile: ")), - Gtk2::Label->new(translate($netcnx->{PROFILE})) ], - [ Gtk2::Label->new(N("Connection type: ")), - Gtk2::Label->new(translate($netcnx->{type})) ], - ), + create_packtable({ col_spacings => 5, row_spacings => 5, homogenous => 1 }, + [ Gtk2::Label->new(N("Profile: ")), + Gtk2::Label->new(translate($netcnx->{PROFILE})) ], + [ Gtk2::Label->new(N("Connection type: ")), + Gtk2::Label->new(translate($netcnx->{type})) ], + ), new Gtk2::HSeparator, gtkadd(Gtk2::Frame->new(N("Parameters")), $vbox2), ), diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 470b0a1a6..722e04769 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -42,7 +42,7 @@ unless ($::no_ugtk_init) { !check_for_xserver() and die "Cannot be run in console mode.\n"; $::one_message_has_been_translated and warn("N() was called from $::one_message_has_been_translated BEFORE gtk2 initialisation, replace it with a N_() AND a translate() later.\n"), c::_exit(1); - Gtk2->init(); + Gtk2->init; c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains; $::need_utf8_i18n = 1; } @@ -152,7 +152,7 @@ sub gtkradio { sub gtkroot() { my $root if 0; - $root ||= Gtk2::Gdk->get_default_root_window(); + $root ||= Gtk2::Gdk->get_default_root_window; } sub gtkset_text { @@ -357,7 +357,7 @@ sub create_dialog { my $ret = 0; my $dialog = _create_dialog($title, $o_options); $dialog->set_border_width(10); - my $text = $o_options->{use_markup} ? gtkset_markup(Gtk2::Label->new(), $label) : Gtk2::Label->new($label); + my $text = $o_options->{use_markup} ? gtkset_markup(Gtk2::Label->new, $label) : Gtk2::Label->new($label); gtkpack($dialog->vbox, gtkpack_(Gtk2::HBox->new, if_($o_options->{stock}, 0, Gtk2::Image->new_from_stock($o_options->{stock}, 'dialog')), @@ -1323,7 +1323,7 @@ sub append_set { my ($model, @values) = @_; # compatibility: @values = @{$values[0]} if $#values == 0 && ref($values[0]) eq 'ARRAY'; - my $iter = $model->append(); + my $iter = $model->append; $model->set($iter, @values); return $iter; } @@ -1394,7 +1394,7 @@ sub entry { sub get_text { my ($w) = @_; - $w->{strings}->[$w->get_history]; + $w->{strings}[$w->get_history]; } sub set_text { |