obj.lisp

(in-package #:WIZARD)


(with-defclass (action ())
  (title "")
  (perm :all)
  (val nil)
  (entity nil)
  (fields nil))

(with-defclass (none (action)))

(with-defclass (tpl (action)))

(with-defclass (grid (action))
  (grid nil)
  (param-id nil)
  (height "180"))

(with-defclass (blk (action))
  (contents nil))

(with-defclass (linear (action)))

(with-defclass (announce (action)))

(with-defclass (post (action))
  (date "")
  (announce-photo nil)
  (announce "")
  (text-photo nil)
  (text ""))

(with-defclass (yamap (action))
  (center-coord "")
  (mark-points nil))

(with-defclass (file (action))
  (value "")
  (name ""))

(with-defclass (fld ())
  (name "")
  (title "")
  (typedata '(:str))
  (width 200)
  (xref nil)
  (update nil)
  (view nil)
  (show nil))

(with-defclass (btn ())
  (name "")
  (title "")
  (width 200)
  (value "")
  (perm :all)
  (act))

(with-defclass (popbtn ())
  (name "")
  (title "")
  (top 200)
  (left 400)
  (width 200)
  (height 400)
  (value "")
  (perm :all)
  (actions ""))