diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-02-11 13:36:33 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-02-11 13:36:33 +0000 |
| commit | 17072de4c773a276767ddd0f0193b274718eadde (patch) | |
| tree | 176ef458de15966672e4178831a98383b861777f /perl-install | |
| parent | 092db0b5324faadaac0dd125547f41c46113043d (diff) | |
| download | drakx-backup-do-not-use-17072de4c773a276767ddd0f0193b274718eadde.tar drakx-backup-do-not-use-17072de4c773a276767ddd0f0193b274718eadde.tar.gz drakx-backup-do-not-use-17072de4c773a276767ddd0f0193b274718eadde.tar.bz2 drakx-backup-do-not-use-17072de4c773a276767ddd0f0193b274718eadde.tar.xz drakx-backup-do-not-use-17072de4c773a276767ddd0f0193b274718eadde.zip | |
(row_setting_dialog) further simplify
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakperm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 3d4eb1ff1..e9e9416c5 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -237,7 +237,7 @@ sub row_setting_dialog { my $dlg = gtknew('Dialog', transient_for => $w->{real_window}, title => $title); # $dlg->set_resizable(0); my $browse = gtknew('Button', text => N("browse")); - my $file = gtknew('Entry'); + my $file = gtknew('Entry', $o_iter ? (text => $model->get($o_iter, 1)) : ()); my ($other, $group, $user, $s) = $o_iter ? reverse(split(//, $model->get($o_iter, 4))) : (); my @bits = qw(sticky gid suid); my @rights = qw(read write execute); @@ -275,7 +275,6 @@ sub row_setting_dialog { my %s_right = get_right($s); my $alrd_exsts = defined $o_iter; - $file->set_text($model->get($o_iter, 1)) if $o_iter; my $users = gtknew('ComboBox', list => [ my @users = get_user_or_group('users') ]); $users->entry->set_text($model->get($o_iter, 2)) if $o_iter; |