summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakperm6
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 5941485dc..e3d4f4d75 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -217,8 +217,6 @@ sub row_setting_dialog {
my $ok = Gtk2::Button->new_from_stock('gtk-ok');
my $cancel = Gtk2::Button->new_from_stock('gtk-cancel');
my $browse = new Gtk2::Button(N("browse"));
- my $users = new Gtk2::Combo;
- my $groups = new Gtk2::Combo;
my $file = new Gtk2::Entry;
my $usr_hbox = new Gtk2::HBox(0,5);
my $usr_vbox = new Gtk2::VBox(0,5);
@@ -270,13 +268,13 @@ sub row_setting_dialog {
$file->set_text($treeModel->get($iter, 0)) if $iter;
+ my $users = Gtk2::OptionMenu->new;
$users->set_popdown_strings(&get_user_or_group('users'));
$users->entry->set_text($treeModel->get($iter, 1)) if $iter;
- $users->entry->set_editable(0);
+ my $groups = Gtk2::OptionMenu->new;
$groups->set_popdown_strings(&get_user_or_group);
$groups->entry->set_text($treeModel->get($iter, 2)) if $iter;
- $groups->entry->set_editable(0);
if ($iter && $treeModel->get($iter, 1) eq 'current') {
$usr_check->set_active(1);