allow to add/remove users in the interface

1 files changed, 10 insertions, 2 deletions

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);