picolisp

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

item.l (1406B)

      1 # 05mar13abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (must "Item" Item)
      5 
      6 (menu ,"Item"
      7    (idForm ,"Item" '(choItem) 'nr '+Item T '(may Delete) '((: nr) " -- " (: nm))
      8       (<grid> 4
      9          ,"Number" NIL (gui '(+E/R +NumField) '(nr : home obj) 10) NIL
     10          ,"Description" NIL (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Item" 30) NIL
     11          ,"Supplier" (choCuSu 0)
     12          (gui '(+E/R +Obj +TextField) '(sup : home obj) '(nm +CuSu) 30)
     13          (gui '(+View +TextField) '(field -1 'obj 'ort) 30)
     14          ,"Inventory" NIL (gui '(+E/R +NumField) '(inv : home obj) 12)
     15          (gui '(+View +NumField) '(cnt> (: home obj)) 12)
     16          ,"Price" NIL (gui '(+E/R +FixField) '(pr : home obj) 2 12) )
     17       (--)
     18       (<grid> 2
     19          ,"Memo" (gui '(+BlobField) '(txt : home obj) 60 8)
     20          ,"Picture"
     21          (prog
     22             (gui '(+Able +UpField) '(not (: home obj jpg)) 30)
     23             (gui '(+Drop +Button) '(field -1)
     24                '(if (: home obj jpg) ,"Uninstall" ,"Install")
     25                '(cond
     26                   ((: home obj jpg)
     27                      (ask ,"Uninstall Picture?"
     28                         (put!> (: home top 1 obj) 'jpg NIL) ) )
     29                   ((: drop) (blob! (: home obj) 'jpg @)) ) ) ) )
     30       (<spread> NIL (editButton T))
     31       (gui '(+Upd +Img)
     32          '(and (: home obj jpg) (allow (blob (: home obj) 'jpg)))
     33          ,"Picture" ) ) )
     34 
     35 # vi:et:ts=3:sw=3