gui.l

来自「A very small LISP implementation with se」· L 代码 · 共 35 行

# 28dec07abu
# (c) Software Lab. Alexander Burger

### GUI ###
(de menu Prg
   (action
      (html 0 "Pico App" *Css NIL
         (<div> '(id . menu)
            (<menu>
               (,"Home" "@start")
               (,"logout" (and *Login "@stop"))
               (NIL (<hr>))
               (T ,"Data"
                  (,"Customers/Suppliers" (and (may Customer) "app/cusu.l"))
                  (,"Items" (and (may Item) "app/item.l"))
                  (,"Orders" (and (may Order) "app/ord.l")) )
               (T ,"Report"
                  (,"Inventory" (and (may Report) "app/inventory.l"))
                  (,"Sales" (and (may Report) "app/sales.l")) )
               (T ,"System"
                  (,"Role Administration" (and (may RoleAdmin) "app/role.l"))
                  (,"User Administration" (and (may UserAdmin) "app/user.l")) ) ) )
         (<div> '(id . main) (run Prg 1)) ) ) )

(de start ()
   (setq *Url "@start")
   (and (app) (setq *Menu 3))
   (menu
      (<h2> NIL "Pico App")
      (<img> "img/7fach.gif" "7fach Logo")
      (----)
      (form NIL
         (gui '(+Init +Map +TextField)
            (cons *Ctry *Lang)
            '(("English" NIL . NIL) ("Deutsch" "DE" . "de") ("鏃ユ湰瑾