JADE bug??

["Olivier" <nepo@xxxxxxx>]

I've got the following problem using table headers.

On an entity named chapter I create a table flow object, And I want to 
create a table header.
I tried 2 different thing, but jade always crushes (no pb without the 
header).

The first one:

(element (mmel chapter)
  (make simple-page-sequence
    center-header: (with-mode head-mode (process-first-descendant 
"title"))
    center-footer: (page-number-sosofo)
    (make table
      table-border:   #t
      (make table-part
        (make table-column
          width:  190pt)
        (make table-column
          width:  13pt)
        (make table-column
          width:  13pt)
        (make table-column
          width:  44pt)
        (make table-column
          width:  220pt)
        ($mmel-table-header$)
        (process-children)))))

(define ($mmel-table-header$)
  (make sequence
    label: 'header
    (make table-cell
      cell-after-column-border: #t
      starts-row?:  #t
      (make paragraph
        use:  para-style
        quadding: 'end
        (literal "1")))
    (make table-cell
      (make paragraph
        use:  para-style
        (literal "2")))
    (make table-cell
      cell-after-row-border:  #t
      n-columns-spanned:  3
      (make paragraph
        use:  para-style
        (literal "NUMBER INSTALLED")))
    (make table-cell
      cell-after-column-border: #t
      starts-row?:  #t
      (make paragraph
        use:  para-style
        quadding: 'center
        (literal "ITEM")))
    (make table-cell
      cell-after-column-border: #t
      (empty-sosofo))
    (make table-cell
      (make paragraph
        use:  para-style
        (literal "3")))
    (make table-cell
      cell-after-row-border:  #t
      n-columns-spanned:  2
      (make paragraph
        use:  para-style
        (literal "NUMBER REQUIRED FOR DISPATCH")))
    (make table-cell
      cell-after-column-border: #t
      cell-after-row-border: #t
      starts-row?:  #t
      (empty-sosofo))
    (make table-cell
      cell-after-column-border: #t
      (empty-sosofo))
    (make table-cell
      cell-after-column-border: #t
      (empty-sosofo))
    (make table-cell
      n-columns-spanned:  2
      (make paragraph
        use:  para-style
        (literal "4. REMARKS OR EXCEPTIONS")))))

(NB when I just call $mmel-table-header$ without the label: 'header, 
it works properly but there is no table header)

The second way I tried it is:

(element (mmel chapter)
  (make simple-page-sequence
    center-header: (with-mode head-mode (process-first-descendant 
"title"))
    center-footer: (page-number-sosofo)
    (make table
      table-border:   #t
      (make table-part
        (make table-column
          width:  190pt)
        (make table-column
          width:  13pt)
        (make table-column
          width:  13pt)
        (make table-column
          width:  44pt)
        (make table-column
          width:  220pt)
        (process-children)))))

(element (chapter title)
  (make sequence
    label: 'header
    (make table-cell
      cell-after-row-border:  #t
      n-columns-spanned:  5
      (make paragraph
        use:  title-style
        quadding: 'center
        (process-children)))))

and the ($mmel-table-header$) is the same except the label line that 
is removed



The problem is that in both of these case JADE always crushes.

If someone is able to help me please do

  Thanks by advance
  Olivier ROUSSEAU
  nepo@xxxxxxx

 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist