diff options
Diffstat (limited to 'bin/drakguard')
| -rwxr-xr-x | bin/drakguard | 12 |
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); |