summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakperm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-09 01:39:27 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-09 01:39:27 +0000
commit0bcef6753fff40efc1638452575b07eb7fb1c4f5 (patch)
tree582afdee2ddaf72c35553fb154a6dafbeb2e5244 /perl-install/standalone/drakperm
parentd1b4c0820761179bbcb2d066483236606c67fb7a (diff)
downloaddrakx-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar
drakx-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar.gz
drakx-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar.bz2
drakx-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar.xz
drakx-0bcef6753fff40efc1638452575b07eb7fb1c4f5.zip
prefer obj->new rather than new obj for gtk+ widgets
Diffstat (limited to 'perl-install/standalone/drakperm')
-rwxr-xr-xperl-install/standalone/drakperm10
1 files changed, 5 insertions, 5 deletions
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;