;;;; 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
;;;; *************************************************************************
(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")
)
)
: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)))
(setf (link-ampersand view) "&"))))
+(defun make-std-object-slots-view (class-name slots)
+ #'(lambda (obj strm)
+ )
+
+ )
+
;;;; *************************************************************************
;;;; View Data Format Section
;;;; *************************************************************************
(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)
(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))