From 0de24731d4d351b98250768ce45f170883c998fb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 21 Apr 2005 11:38:13 +0000
Subject: (row_setting_dialog) set dialog's title (usability bug)

---
 perl-install/standalone/drakperm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 52ba3c0ad..1ae3883dd 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -55,14 +55,14 @@ load_perms();
 my $combo_perm = Gtk2::ComboBox->new_with_strings([ sort(values %perm_l10n) ]);
 
 sub add_callback() {
-    row_setting_dialog();
+    row_setting_dialog(N("Add a new rule"));
     $modified++;
 }
 
 sub edit_callback() {
     my (undef, $iter) = $permList->get_selection->get_selected;
     return unless $iter;
-    row_setting_dialog($iter);
+    row_setting_dialog(N("Edit current rule"), $iter);
 }
 
 my @buttons;
@@ -97,7 +97,7 @@ $permList->signal_connect(button_press_event => sub {
                      my (undef, $event) = @_;
                      my (undef, $iter) = $permList->get_selection->get_selected;
                      return unless $iter;
-                     row_setting_dialog($iter) if $event->type eq '2button-press';
+                     row_setting_dialog(N("Edit current rule"), $iter) if $event->type eq '2button-press';
                  });
 
 
@@ -233,10 +233,11 @@ sub load_perms() {
 }
 
 sub row_setting_dialog {
-    my ($iter) = @_;
+    my ($title, $iter) = @_;
     
     my $dlg = Gtk2::Dialog->new;
     $dlg->set_transient_for($w->{real_window}) unless $::isEmbedded;
+    $dlg->set_title($title);
     $dlg->set_modal(1);
 #    $dlg->set_resizable(0);
     my $browse = Gtk2::Button->new(N("browse"));
-- 
cgit v1.2.1