1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# 18jul19 Software Lab. Alexander Burger
(must "Role Administration" RoleAdmin)
(menu ,"Role Administration"
(idForm ,"Role" ,"Roles" 'nm '+Role T '(may Delete) '((: nm))
(gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Role" 30 ,"Name")
(gui '(+E/R +Fmt +Chart) '(perm : home obj)
'((Val) (mapcar '((S) (list (memq S Val))) *Perms))
'((Lst) (filter '((S L) (and (car L) S)) *Perms Lst))
1 )
(<table> NIL NIL NIL
(for This *Perms
(<row> NIL
(ht:Prin (: 0 0))
(gui 1 '(+Checkbox)) ) ) )
(gui '(+/R +Chart) '(usr : home obj) 1 list)
(<table> 'chart ,"User" NIL
(do 8
(<row> (alternating)
(gui 1 '(+Obj +TextField) '(nm +User)) ) ) )
(scroll 8 T) ) )
|
