fix #1771

1 files changed, 12 insertions, 11 deletions

diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 3a78608f1..60ce05307 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -203,20 +203,20 @@ sub row_setting_dialog {
     my %perms;
     my $dlg		= new Gtk2::Dialog();
     $dlg->set_transient_for($w->{rwindow}) unless $::isEmbedded;
+    $dlg->set_modal(1);
+#    $dlg->set_resizable(0);
     my $ok 		= new Gtk2::Button('ok');
     my $cancel 	= new Gtk2::Button('cancel');
     my $browse	= new Gtk2::Button(N("browse"));
     my $users 	= new Gtk2::Combo;
     my $groups	= new Gtk2::Combo;
     my $file		= new Gtk2::Entry;
-    my $file_hbox  = new Gtk2::HBox(0,5);
     my $usr_hbox   = new Gtk2::HBox(0,5);
     my $usr_vbox   = new Gtk2::VBox(0,5);
     my $usr_check  = new Gtk2::CheckButton(N("Current user"));
     my $hb_rights  = new Gtk2::HBox(0,15);
     my $vb_rights  = new Gtk2::VBox(0,15);
     my $F_rights	= new Gtk2::Frame(N("Permissions"));
-    my $F_path	= new Gtk2::Frame(N("Path"));
     my $F_usr		= new Gtk2::Frame(N("Property"));
     my $vb_specials = new Gtk2::VBox(0,5);
     my $sticky	= new Gtk2::CheckButton(N("sticky-bit"));
@@ -268,8 +268,6 @@ sub row_setting_dialog {
     $groups->set_popdown_strings(&get_user_or_group);
     $groups->entry->set_text(${$CURENT{data}}[2]);
     $groups->entry->set_editable(0);
-    $dlg->set_modal(1);
-
 	
     if (${$CURENT{data}}[1] eq 'current') {
 	$usr_check->set_active(1);
@@ -317,8 +315,6 @@ sub row_setting_dialog {
 				    $users->set_sensitive(!$bool);
 				});
 	
-    $file_hbox->add($file);
-    $file_hbox->add($browse);
 	
     $usr_vbox->add($usr_check);
     $usr_vbox->add($usr_hbox);
@@ -328,14 +324,19 @@ sub row_setting_dialog {
     $usr_hbox->add(new Gtk2::Label(N("group :")));
     $usr_hbox->add($groups);
 	
-    $F_path->add($file_hbox);
     $F_rights->add($hb_rights);
     $F_usr->add($usr_vbox);
 	
-    $dlg->vbox->add($F_path);
-    $dlg->vbox->add($F_usr);
-    $dlg->vbox->add($F_rights);
-	
+    gtkpack_($dlg->vbox,
+             0, gtkadd(new Gtk2::Frame(N("Path")),
+                   gtkpack_(Gtk2::HBox->new(0,5),
+                            1, $file,
+                            0, $browse
+                           )
+                  ),
+              0, $F_usr,
+              1, $F_rights
+             );
     $dlg->action_area->add($ok);
     $dlg->action_area->add($cancel);