summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm23
1 files changed, 13 insertions, 10 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index b23ab5b80..a94d87dfd 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -243,7 +243,6 @@ sub row_setting_dialog {
my $cancel = Gtk2::Button->new(N("Cancel"));
my $browse = new Gtk2::Button(N("browse"));
my $file = new Gtk2::Entry;
- my ($id_box, $usr_check);
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);
@@ -280,6 +279,17 @@ sub row_setting_dialog {
my $groups = Gtk2::OptionMenu->new;
$groups->set_popdown_strings(&get_user_or_group);
$groups->entry->set_text($model->get($iter, 3)) if $iter;
+
+ my $id_box = gtkadd(Gtk2::HBox->new(0,5),
+ Gtk2::Label->new(N("User :")),
+ $users,
+ Gtk2::Label->new(N("Group :")),
+ $groups,
+ );
+
+ my $usr_check = gtksignal_connect(gtkset_tip($tips, Gtk2::CheckButton->new(N("Current user")),
+ N("When checked, owner and group won't be changed")),
+ clicked => sub { $id_box->set_sensitive($_[0]->get_active) });
if ($iter && $model->get($iter, 2) eq 'current') {
$usr_check->set_active(1);
@@ -329,15 +339,8 @@ sub row_setting_dialog {
),
0, gtkadd(Gtk2::Frame->new(N("Property")),
gtkadd(Gtk2::VBox->new(0,5),
- $usr_check = gtksignal_connect(gtkset_tip($tips, Gtk2::CheckButton->new(N("Current user")),
- N("When checked, owner and group won't be changed")),
- clicked => sub { $id_box->set_sensitive($usr_check->get_active) }),
- $id_box = gtkadd(Gtk2::HBox->new(0,5),
- Gtk2::Label->new(N("User :")),
- $users,
- Gtk2::Label->new(N("Group :")),
- $groups,
- ),
+ $usr_check,
+ $id_box,
),
),
1, gtkadd(Gtk2::Frame->new(N("Permissions")),