picolisp

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

sal.l (465B)

      1 # 05jan12abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (must "Salutation" Customer)
      5 
      6 (menu ,"Salutation"
      7    (idForm ,"Salutation" ,"Salutations" 'nm '+Sal T '(may Delete) '((: nm))
      8       (<grid> 2
      9          ,"Salutation" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Salutation" 40)
     10          ,"Greeting" (gui '(+E/R +TextField) '(hi : home obj) 40)
     11          ,"Sex" (gui '(+E/R +SexField) '(sex : home obj)) )
     12       (<spread> NIL (editButton T)) ) )
     13 
     14 # vi:et:ts=3:sw=3