From 927d5f069190f0911510fac96298dde23e265840 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 23 Jun 2003 20:08:06 +0000
Subject: [PATCH] r5176: *** empty log message ***

---
 views.lisp | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/views.lisp b/views.lisp
index ef116ac..c2c71d7 100644
--- 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) "&amp;"))))
 
 
+(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))
 
-- 
2.34.1