From 0bcef6753fff40efc1638452575b07eb7fb1c4f5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 9 Aug 2004 01:39:27 +0000 Subject: prefer obj->new rather than new obj for gtk+ widgets --- perl-install/standalone/drakperm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install/standalone/drakperm') diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 5e3d22df5..dc000abc8 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -100,7 +100,7 @@ $permList->signal_connect(button_press_event => sub { }); -my $tips = new Gtk2::Tooltips; +my $tips = Gtk2::Tooltips->new; $W->add(gtkpack_(Gtk2::VBox->new(0,5), 0, Gtk2::WrappedLabel->new(N("Here you can see files to use in order to fix permissions, owners, and groups via msec.\nYou can also edit your own rules which will owerwrite the default rules."), 0.5), @@ -234,12 +234,12 @@ sub load_perms() { sub row_setting_dialog { my ($iter) = @_; - my $dlg = new Gtk2::Dialog(); + my $dlg = Gtk2::Dialog->new; $dlg->set_transient_for($w->{rwindow}) unless $::isEmbedded; $dlg->set_modal(1); # $dlg->set_resizable(0); - my $browse = new Gtk2::Button(N("browse")); - my $file = new Gtk2::Entry; + my $browse = Gtk2::Button->new(N("browse")); + my $file = Gtk2::Entry->new; my ($other, $group, $user, $s) = reverse(split(//, $model->get($iter, 4))) if $iter; my @bits = qw(sticky gid suid); my @rights = qw(read write execute); @@ -303,7 +303,7 @@ sub row_setting_dialog { $browse->signal_connect(clicked => sub { - my $file_dlg = new Gtk2::FileSelection(N("Path selection")); + my $file_dlg = Gtk2::FileSelection->new(N("Path selection")); $file_dlg->set_modal(1); $file_dlg->set_transient_for($dlg); $file_dlg->show; -- cgit v1.2.1