r5219: *** empty log message ***

[hyperobject.git] / views.lisp

diff --git a/views.lisp b/views.lisp
index ef116ac0c25c2ed6768f54fb6fe78c2022603904..b21a18e6c26da0ee0b6b151e279db1d049e903d9 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.59 2003/06/29 16:21:09 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -92,7 +92,7 @@
                  :accessor link-href-end)
    (link-ampersand :type (or string null) :initform nil :initarg :link-ampersand
                   :accessor link-ampersand))
-  (:default-initargs :link-page "disp-func1")
+  (:default-initargs :link-page "lookup-func1")
   (:documentation "View class for a hyperobject"))
 
 
@@ -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)
@@ -486,7 +493,6 @@
   (write-char #\newline strm))
 
 (defun initialize-xml-view (view)
-  (initialize-text-view view)
   (setf (file-start-str view) "") ; (std-xml-header)
   (setf (list-start-indent view)  t)
   (setf (list-start-printer view) #'xmlformat-list-start-func)