picolisp

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

user.l (1038B)

      1 # 30may13abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (must "User Administration" UserAdmin)
      5 
      6 (menu ,"User Administration"
      7    (idForm ,"User" ,"Users" 'nm '+User T '(may Delete) '((: nm))
      8       (<grid> 2
      9          ,"Login Name" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"User" 30)
     10          ,"Password"
     11          (gui '(+Able +E/R +Fmt +TextField)
     12             '(or (may Password) (== *Login (: home obj)))
     13             '(pw : home obj)
     14             '((V) (and V "****"))
     15             '((V)
     16                (if (= V "****")
     17                   (: home obj pw 0)
     18                   (passwd V (: home obj pw 0)) ) )
     19             30 )
     20          ,"Role"
     21          (gui '(+Able +E/R +Obj +TextField)
     22             '(may RoleAdmin)
     23             '(role : home obj)
     24             '(nm +Role)
     25             T )
     26          ,"Full Name" (gui '(+E/R +TextField) '(nam : home obj) 40)
     27          ,"Phone" (gui '(+E/R +TelField) '(tel : home obj) 40)
     28          ,"EMail" (gui '(+E/R +MailField) '(em : home obj) 40) )
     29       (<spread> NIL (editButton T)) ) )
     30 
     31 # vi:et:ts=3:sw=3