diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakperm | 23 |
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")), |