From 73bb5ccde5f26b77599acb1c83b0ff130ba98255 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 3 Apr 2008 08:21:20 +0000
Subject: allow to add/remove users in the interface

---
 bin/drakguard | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'bin')

diff --git a/bin/drakguard b/bin/drakguard
index 0f1ad7e..e5758b2 100755
--- a/bin/drakguard
+++ b/bin/drakguard
@@ -125,8 +125,8 @@ gtkadd($w->{window},
                    0, gtknew('HBox', spacing => 5, children_tight => [
                        gtknew('ScrolledWindow', width => 220, height => 90, child => $allusers_list),
                        gtknew('VBox', spacing => 5, children_tight => [
-                           gtknew('Button', stock => "gtk-add", sensitive => 0),
-                           gtknew('Button', stock => "gtk-remove", sensitive => 0),
+                           gtknew('Button', stock => "gtk-add", clicked => \&add_user),
+                           gtknew('Button', stock => "gtk-remove", clicked => \&remove_user),
                        ]),
                        gtknew('ScrolledWindow', width => 220, height => 90, child => $users_list),
                    ]),
@@ -215,6 +215,14 @@ sub list_remove_selected {
     list_remove_addr($list, list_get_selected($list));
 }
 
+sub add_user {
+    list_add_addr($users_list, list_get_selected($allusers_list));
+}
+
+sub remove_user {
+    list_remove_selected($users_list);
+}
+
 sub quit_gui {
     my ($code) = @_;
     $w->exit($code);
-- 
cgit v1.2.1