X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=views.lisp;h=a80c1e9a58051331c17fae8530096be424fd0241;hb=9e616a490d6d4f03682a7bd7e9ea6587fecf2015;hp=f1016a14599de1f25f6d43dc62d4d98293e1854e;hpb=26013f0c832eb9ca60310fab0dca0bed8c4a9061;p=hyperobject.git

diff --git a/views.lisp b/views.lisp
index f1016a1..a80c1e9 100644
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: views.lisp,v 1.10 2002/12/06 20:46:51 kevin Exp $
+;;;; $Id: views.lisp,v 1.11 2002/12/09 10:39:38 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -218,11 +218,15 @@
    (obj-data-end-fmtstr :initarg :obj-data-end-fmtstr :reader obj-data-end-fmtstr)
    (obj-data-value-func :initarg :obj-data-value-func :reader obj-data-value-func)
    (link-ref :initarg :link-ref :reader link-ref))
-  (:default-initargs :file-start-str nil :file-end-str nil :list-start-fmtstr nil :list-start-value-func nil
-		     :list-start-indent nil :list-end-fmtstr nil :list-end-value-func nil :list-end-indent nil
-		     :obj-start-fmtstr nil :obj-start-value-func nil :obj-start-indent nil
-		     :obj-end-fmtstr nil :obj-end-value-func nil :obj-end-indent nil
-		     :obj-data-indent nil :obj-data-fmtstr nil :obj-data-fmtstr-labels nil :obj-data-end-fmtstr nil
+  (:default-initargs :file-start-str nil :file-end-str nil
+		     :list-start-fmtstr nil :list-start-value-func nil
+		     :list-start-indent nil :list-end-fmtstr nil
+		     :list-end-value-func nil :list-end-indent nil
+		     :obj-start-fmtstr nil :obj-start-value-func nil
+		     :obj-start-indent nil :obj-end-fmtstr nil
+		     :obj-end-value-func nil :obj-end-indent nil
+		     :obj-data-indent nil :obj-data-fmtstr nil
+		     :obj-data-fmtstr-labels nil :obj-data-end-fmtstr nil
 		     :obj-data-value-func nil :link-ref nil)
   (:documentation "Parent for all dataformat objects"))
 
@@ -233,7 +237,7 @@
   ())
 
 (defun text-list-start-value-func (obj nitems)
-  (values (hyperobject-class-title obj) nitems))
+  (values (hyperobject-class-user-name obj) nitems))
 
 (defclass textformat (dataformat) 
   ()	
@@ -251,7 +255,7 @@
   (string-downcase (class-name (class-of obj))))
 
 (defun htmlformat-list-start-value-func (x nitems) 
-  (values (hyperobject-class-title x) nitems (class-name-of x)))
+  (values (hyperobject-class-user-name x) nitems (class-name-of x)))
 
 (defclass htmlformat (textformat) 
   ()
@@ -300,7 +304,7 @@
   (format nil "~alist" (class-name-of x)))
 
 (defun xmlformat-list-start-value-func (x nitems) 
-  (values (format nil "~alist" (class-name-of x)) (hyperobject-class-title x) nitems))
+  (values (format nil "~alist" (class-name-of x)) (hyperobject-class-user-name x) nitems))
 
 (defclass xmlformat (textformat) 
   ()
@@ -530,7 +534,7 @@
       (dolist (obj objlist)
         (awhen (hyperobject-class-subobjects obj)  ;; access list of functions
           (dolist (child-obj it)   ;; for each child function
-            (awhen (funcall (reader child-obj) obj)
+            (awhen (slot-value obj (name-slot child-obj))
               (load-all-subobjects it))))))
     objs))
 
@@ -556,10 +560,10 @@
           (if subobjects
               (awhen (hyperobject-class-subobjects obj)  ;; access list of functions
                         (dolist (child-obj it)   ;; for each child function
-                          (awhen (funcall (reader child-obj) obj) ;; access set of child objects
-                                    (view-hyperobject it fmt strm label 
-                                                     (1+ indent) english-only-function
-						     subobjects refvars)))))
+                          (awhen (slot-value obj (name-slot child-obj)) ;; access set of child objects
+				 (view-hyperobject it fmt strm label 
+						   (1+ indent) english-only-function
+						   subobjects refvars)))))
           (fmt-obj-end obj fmt strm indent)))
       (fmt-list-end (car objs) fmt strm indent nobjs))
     t))