diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-20 16:43:50 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-20 16:43:50 +0000 |
| commit | a4122424f3447a9c4776bf6eed039ca2fed788c9 (patch) | |
| tree | 21fc36006c3ef667508382e06b72df2cb8e24e6b /perl-install | |
| parent | c7014ee7ee40bb81ed27749694df793a7d19ecee (diff) | |
| download | drakx-backup-do-not-use-a4122424f3447a9c4776bf6eed039ca2fed788c9.tar drakx-backup-do-not-use-a4122424f3447a9c4776bf6eed039ca2fed788c9.tar.gz drakx-backup-do-not-use-a4122424f3447a9c4776bf6eed039ca2fed788c9.tar.bz2 drakx-backup-do-not-use-a4122424f3447a9c4776bf6eed039ca2fed788c9.tar.xz drakx-backup-do-not-use-a4122424f3447a9c4776bf6eed039ca2fed788c9.zip | |
fix crash on editable items
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")), |