:def-meta-model
:def-base-class
:%def-base-class
+
:def-view-class/table
:def-view-class/meta
:view-class-metadata
:expr-and
:expr-or
:expr-not
- :select-instances
- ))
+ :select-instances))
(defpackage :mewa
:mewa
:mewa-object-presentation
:mewa-one-line-presentation
+ :mewa-list-presentation
:mewa-presentation-search
:find-attribute
:set-default-attributes
:make-presentation
:call-presentation
- :label
- :set-attribute
+ :label
+ :attributes
+ :set-attribute
+ :perform-set-attributes
+ :perform-set-attribute-properties
:find-class-attributes
:default-attributes
:ok
:edit-instance
:save-instance
:cancel-save-instance
+ :ensure-instance-sync
+ :instance-is-stored-p
:global-properties
:search-expr
:search-query))
-
(defpackage :lisp-on-lines
- (:use :mewa :meta-model :common-lisp :it.bese.ucw))
\ No newline at end of file
+ (:use :mewa :meta-model :common-lisp :it.bese.ucw)
+ (:nicknames :lol)
+ (:export
+ ;;;; Mewa Exports
+ :mewa ;the superclass of all mewa-presentations
+ :make-presentation
+
+ ;;attributes
+ :attributes
+ :set-default-attributes
+ :set-attribute
+ :find-attribute
+ :perform-set-attributes
+ ;;
+ :perform-set-attribute-properties
+
+ ;; presentation objects
+ :mewa-object-presentation
+ :mewa-one-line-presentation
+ :mewa-list-presentation
+
+ ;; CRUD
+ :instance-is-stored-p
+
+ ;;;; Meta Model Exports))
+ :def-view-class/table
+ :def-view-class/meta
+ :list-slot-types
+ ))
\ No newline at end of file