r5176: *** empty log message ***

diff --git a/views.lisp b/views.lisp
index ef116ac0c25c2ed6768f54fb6fe78c2022603904..c2c71d734edd76677aecc848b114f616126427bc 100644 (file)
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: views.lisp,v 1.57 2003/06/20 08:35:21 kevin Exp $
+;;;; $Id: views.lisp,v 1.58 2003/06/23 20:08:06 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -168,7 +168,7 @@
 (defun initialize-view-by-source-code (obj-cl view)
   "Initialize a view based upon a source code"
   (let ((source-code (source-code view)))
-    (error "not implemented")
+    (warn "source code compilation is not implemented")
     )
   )
 
@@ -317,7 +317,8 @@
              :xhtml :xhtml-labels :xhtml-link-labels
              :xhtml-link :html-link
              :xml :xml-labels :xml-link :ie-xml-link
-             :xml-link-labels :ie-xml-link-labels)
+             :xml-link-labels :ie-xml-link-labels
+             :display-table :edit-table)
     (error "Unknown view category ~A" (category view)))
   
   (unless (slots view) (setf (slots view) (default-print-slots obj-cl)))
@@ -385,6 +386,12 @@
      (setf (link-ampersand view) "&"))))
 
 
+(defun make-std-object-slots-view (class-name slots)
+  #'(lambda (obj strm)
+      )
+    
+  )
+
 ;;;; *************************************************************************
 ;;;;  View Data Format Section
 ;;;; *************************************************************************
@@ -453,7 +460,7 @@
 
 (defun html-obj-start (obj indent strm)
   (declare (ignore obj indent))
-  (write-string "<div style=\"margin-left:2em;" strm))
+  (write-string "<div style=\"margin-left:2em;\">" strm))
 
 (defun initialize-xhtml-view (view)
   (initialize-text-view view)
@@ -494,7 +501,7 @@
   (setf (list-end-printer view) #'xmlformat-list-end-func)
   (setf (obj-start-printer view) (format nil "<~(~a~)>" (object-class-name view)))
   (setf (obj-start-indent view) t)
-  (setf (subobj-end-printer view) (format nil "</~(~a~)>~%" (object-class-name view)))
+  (setf (subobj-end-printer view) (format nil "</~(~a~)>" (object-class-name view)))
   (setf (subobj-end-indent view) nil)
   (setf (obj-data-indent view) nil))