summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakperm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-08 23:45:02 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-08 23:45:02 +0000
commita3f578efbce1bc645499611f0f1cc13c996f3275 (patch)
treece010f553215da7109f4597540ff8c329cc6416e /perl-install/standalone/drakperm
parentf7b7767b21f34f99a5b245db1314bd060ced9009 (diff)
downloaddrakx-a3f578efbce1bc645499611f0f1cc13c996f3275.tar
drakx-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.gz
drakx-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.bz2
drakx-a3f578efbce1bc645499611f0f1cc13c996f3275.tar.xz
drakx-a3f578efbce1bc645499611f0f1cc13c996f3275.zip
simplify code through Gtk2::ComboBox->new_with_strings()
Diffstat (limited to 'perl-install/standalone/drakperm')
-rwxr-xr-xperl-install/standalone/drakperm9
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,