From: Drew Crampsie <drewc@tech.coop>
Date: Wed, 31 Aug 2005 21:44:18 +0000 (-0700)
Subject: random fixes
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/ec044146bf44d8b651c6da400bbb78694f5eb9a0?hp=5a4eea119b2c7d1c5a3bbd374e8a26e0b5e1d04f

random fixes

darcs-hash:20050831214418-5417e-f2a5d0cd211f37ee0cefbca08f8f1d04c263a31c.gz
---

diff --git a/src/mewa/slot-presentations.lisp b/src/mewa/slot-presentations.lisp
index 1454c53..5e0d0ba 100644
--- a/src/mewa/slot-presentations.lisp
+++ b/src/mewa/slot-presentations.lisp
@@ -86,7 +86,7 @@ When T, only the default value for primary keys and the joins are updated.")
     (setf (presentation-slot-value slot instance) new-time ))))
 
 (defmethod label :around ((slot clsql-wall-time-slot-presentation))
-  (concatenate 'string (call-next-method) "  (mm/dd/yyyy)"))
+  (concatenate 'string (call-next-method) "  (m/d/y)"))
 
 (defmethod present-slot ((slot clsql-wall-time-slot-presentation) instance)
   (let ((date (presentation-slot-value slot instance))
@@ -130,7 +130,7 @@ When T, only the default value for primary keys and the joins are updated.")
       (meta-model:explode-foreign-key instance (slot-name slot))
     (let ((new-instance
            (call-component
-            (parent slot) 
+            (parent slot)
             (mewa:make-presentation finstance :type (creator self)))))
       
       ;;;; TODO: this next bit is due to a bad design decision. 
@@ -177,11 +177,6 @@ When T, only the default value for primary keys and the joins are updated.")
   (meta-model:sync-instance (instance (parent self))))
 
 
-
-(defmethod present-slot :before ((slot foreign-key-slot-presentation) instance)
-  ())
-
-
 (defmethod  present-slot :around ((slot foreign-key-slot-presentation) instance)  
   (setf (foreign-instance slot) 
 	(when (presentation-slot-value slot instance) 
@@ -190,7 +185,6 @@ When T, only the default value for primary keys and the joins are updated.")
     (if (slot-boundp slot 'place)
         (cond 
           ((editablep slot)
-           (render)
            (<ucw:submit :action  (search-records slot instance) :value "Search" :style "display:inline")
            (<ucw:submit :action  (create-record-on-foreign-key slot instance) :value "Add New" :style "display:inline"))
           ((linkedp slot)
@@ -273,14 +267,15 @@ When T, only the default value for primary keys and the joins are updated.")
   (unless (mewa::instance-is-stored-p instance)
     (setf (mewa::modifiedp (parent self)) t))
   ;; sync up the instance
-  (mewa:ensure-instance-sync (parent slot))
-
+  ;;(mewa:ensure-instance-sync (parent slot))
+  (meta-model:sync-instance (instance (parent slot)))
+  
   (multiple-value-bindf (class home foreign) 
       (meta-model:explode-has-many instance (slot-name slot))
     (let ((new (make-instance class)))
       (setf (slot-value new foreign) (slot-value instance home))
       (meta-model:sync-instance new :fill-gaps-only-p (fill-gaps-only-p self))
-      (call-component (parent slot) (mewa:make-presentation new :type (creator slot)))
+      (call-component (parent slot)  (mewa:make-presentation new :type (creator slot)))
       (meta-model:sync-instance instance))))
 
 (defmethod present-slot ((slot has-many-slot-presentation) instance)
diff --git a/src/packages.lisp b/src/packages.lisp
index 27b9ae4..234d6ec 100644
--- a/src/packages.lisp
+++ b/src/packages.lisp
@@ -59,6 +59,7 @@
    :label
    :attributes
    :set-attribute
+   :set-attribute-properties
    :perform-set-attributes
    :perform-set-attribute-properties
    :find-class-attributes