diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-08 23:45:02 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-08 23:45:02 +0000 |
| commit | a3f578efbce1bc645499611f0f1cc13c996f3275 (patch) | |
| tree | ce010f553215da7109f4597540ff8c329cc6416e /perl-install/standalone/drakperm | |
| parent | f7b7767b21f34f99a5b245db1314bd060ced9009 (diff) | |
| download | drakx-backup-do-not-use-a3f578efbce1bc645499611f0f1cc13c996f3275.tar drakx-backup-do-not-use-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.gz drakx-backup-do-not-use-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.bz2 drakx-backup-do-not-use-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.xz drakx-backup-do-not-use-a3f578efbce1bc645499611f0f1cc13c996f3275.zip | |
simplify code through Gtk2::ComboBox->new_with_strings()
Diffstat (limited to 'perl-install/standalone/drakperm')
| -rwxr-xr-x | perl-install/standalone/drakperm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 234228edb..2eae934b8 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -51,8 +51,7 @@ my $index = 0; load_perms(); #- widgets settings -my $combo_perm = Gtk2::ComboBox->new_text; -$combo_perm->set_popdown_strings(sort(values %perm_l10n)); +my $combo_perm = Gtk2::ComboBox->new_with_strings([ sort(values %perm_l10n) ]); sub add_callback() { row_setting_dialog(); @@ -275,12 +274,10 @@ sub row_setting_dialog { my $alrd_exsts = defined $iter; $file->set_text($model->get($iter, 1)) if $iter; - my $users = Gtk2::ComboBox->new_text; - $users->set_popdown_strings(&get_user_or_group('users')); + my $users = Gtk2::ComboBox->new_with_strings([ get_user_or_group('users') ]); $users->entry->set_text($model->get($iter, 2)) if $iter; - my $groups = Gtk2::ComboBox->new_text; - $groups->set_popdown_strings(&get_user_or_group); + my $groups = Gtk2::ComboBox->new_with_strings([ get_user_or_group() ]); $groups->entry->set_text($model->get($iter, 3)) if $iter; my $id_box = gtkadd(Gtk2::HBox->new, |