picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

role.l (921B)

      1 # 05jan12abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (must "Role Administration" RoleAdmin)
      5 
      6 (menu ,"Role Administration"
      7    (idForm ,"Role" ,"Roles" 'nm '+Role T '(may Delete) '((: nm))
      8       (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Role" 30 ,"Name")
      9       (<table> NIL NIL NIL
     10          (gui '(+E/R +Fmt +Chart)
     11             '(perm : home obj)
     12             '((Val) (mapcar '((S) (list S (memq S Val))) *Perms))
     13             '((Lst) (extract '((L P) (and (cadr L) P)) Lst *Perms))
     14             2 )
     15          (do (length *Perms)
     16             (<row> NIL
     17                (gui 1 '(+Set +TextField) '((Sym) (val (val Sym))))
     18                (gui 2 '(+Checkbox)) ) ) )
     19       (gui '(+/R +Chart) '(usr : home obj) 1 list)
     20       (<table> 'chart ,"User" NIL
     21          (do 8
     22             (<row> (alternating)
     23                (gui 1 '(+Obj +TextField) '(nm +User)) ) ) )
     24       (<spread> (scroll 8 T) (editButton T)) ) )
     25 
     26 # vi:et:ts=3:sw=3