[Bese-devel] next question

Tue Jul 5 13:46:17 UTC 2005

Does anyone see a difference between:
(defcomponent download-locations (simple-window-component address-manipulator-mixin)
  ()
  (:default-initargs
      :title "Download locations " :stylesheet "/css/qss.css"))

(defcomponent get-address (simple-window-component address-manipulator-mixin)
  ((message :accessor message :initarg :message :initform nil))
  (:default-initargs
      :title "Downloader " :stylesheet "/css/qss.css"))

with 

(defmethod render-on ((res response) (s download-locations))
  (let ((stream (content-stream res)))
    (html-stream 
     stream
       (write-main-menu :active +product-index+ :stream stream)
  (html-stream stream
        (:h1 "QSS Downloads")
        (:p
....

and

(defmethod render-on ((res response) (g get-address))
   (let ((stream (content-stream res)))
     (write-main-menu :active +product-index+ :stream stream)

I can't just the first generates the following code:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/transitional.dtd">
<html
  ><head
    ><meta content="text/html" http-equiv="Content-Type"
    /><title
      >NIL</title
    ></head
  ><body
    ><table class="main-menu" width="100%" cellpadding="0"><tr><th
class="main-menu" colspan="6"><img alt="" src="/images/qlogo.gif"
/></th></tr><tr><td clas

and the second:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/transitional.dtd">
<html
  ><head
    ><meta content="text/html" http-equiv="Content-Type"
    /><title
      >Downloader </title
    ><link href="/css/qss.css" rel="stylesheet" type="text/css"
/></head

Why does one see the title and link ref in the second example but not
in the first one?

Regards
Friedrich