Moved the presentations stuff from UCW into Mewa. This requires a hacked UCW to use...

[clinton/lisp-on-lines.git] / src / mewa / packages.lisp

diff --git a/src/mewa/packages.lisp b/src/mewa/packages.lisp
new file mode 100644 (file)
index 0000000..926cf90
--- /dev/null
+++ b/src/mewa/packages.lisp
@@ -0,0 +1,45 @@
+(defpackage :mewa 
+  (:use :ucw :common-lisp :arnesi :iterate)
+  (:export 
+   :mewa 
+   :editablep
+   :mewa-object-presentation 
+   :mewa-one-line-presentation
+   :mewa-list-presentation
+   :mewa-presentation-search
+   
+   ;;Slot Presentations
+   :defslot-presentation
+   :slot-presentation
+   :mewa-slot-presentation
+   :foreign-key-slot-presentation
+   :mewa-relation-slot-presentation
+   :has-a-slot-presentation
+   :has-a
+   :has-many-slot-presentation
+   :has-many
+   :has-very-many-slot-presentation
+   :has-very-many
+   :slot-name
+   :find-attribute 
+   :set-default-attributes 
+   :make-presentation 
+   :call-presentation 
+   :label
+   :attributes
+   :set-attribute
+   :set-attribute-properties
+   :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))
+