picolisp

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

cusu.l (1440B)

      1 # 05jan12abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (must "Customer/Supplier" Customer)
      5 
      6 (menu ,"Customer/Supplier"
      7    (idForm ,"Customer/Supplier" '(choCuSu) 'nr '+CuSu T '(may Delete)
      8       '((: nr) " -- " (: nm))
      9       (<hr>)
     10       (<tab>
     11          (,"Name"
     12             (<grid> 3
     13                ,"Number" NIL (gui '(+E/R +NumField) '(nr : home obj) 10)
     14                ,"Salutation" (choDlg 0 ,"Salutations" '(nm +Sal))
     15                (gui '(+E/R +Obj +TextField) '(sal : home obj) '(nm +Sal) 20)
     16                ,"Name" NIL (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Name" 40)
     17                ,"Name 2" NIL (gui '(+E/R +TextField) '(nm2 : home obj) 40) ) )
     18          (,"Address"
     19             (<grid> 2
     20                ,"Street" (gui '(+E/R +TextField) '(str : home obj) 40)
     21                NIL NIL
     22                ,"Zip" (gui '(+E/R +TextField) '(plz : home obj) 10)
     23                ,"City" (gui '(+E/R +TextField) '(ort : home obj) 40) ) )
     24          (,"Contact"
     25             (<grid> 2
     26                ,"Phone" (gui '(+E/R +TelField) '(tel : home obj) 40)
     27                ,"Fax" (gui '(+E/R +TelField) '(fax : home obj) 40)
     28                ,"Mobile" (gui '(+E/R +TelField) '(mob : home obj) 40)
     29                ,"EMail" (gui '(+E/R +MailField) '(em : home obj) 40) ) )
     30          ((pack (and (: obj txt) "@ ") ,"Memo")
     31             (gui '(+BlobField) '(txt : home obj) 60 8) ) )
     32       (<hr>)
     33       (<spread> NIL (editButton T)) ) )
     34 
     35 # vi:et:ts=3:sw=3