RE: line-field usage

["Pawson, David" <DPawson@xxxxxxxxxxx>]

Peter's solution worked fine, I think
its effectively the same idea except that
its 'first child' rather than sibling
(para is child of progress)

Included below:

(element (progress para)
(make paragraph
  start-indent: 1.5in   
   first-line-start-indent: 0in
   (process-children)))

(mode progress-first-para
(element (para)
(process-children))
)

(element progress
  (let ((my-children (select-elements (children (current-node)) 'para)))
  (sosofo-append
      (make paragraph
	start-indent: 1.5in   
	first-line-start-indent: -1.5in 
        (sosofo-append
          (make line-field 
	    field-width: 1.5in
	    (literal "Progress"))
	  (with-mode progress-first-para
          (process-node-list
            (children (node-list-first my-children))))))
      (process-node-list (node-list-rest my-children)))))



regards, DaveP

>-----Original Message-----
>From: Roger Holberton [mailto:roger.holberton@xxxxxxxx]
>Sent: 03 December 1999 09:39
>To: DSSSlist@xxxxxxxxxxxxxxxx
>Subject: Re: line-field usage
>
>
>
>> Some other solution?
>
>I use first-sibling?
>
>(element (progress para)
> (make sequence
>	(if (first-sibling?)
>		(make paragraph
>		   start-indent: 1.5in   
>		    first-line-start-indent: -1.5in
>		    (process-children))
>		(make paragraph
>		   start-indent: 1.5in   
>		    first-line-start-indent: 0in
>		    (process-children))
>)))
>
>or something similar (I haven't tested this exact code)
>
>
>
>
>
>Roger Holberton
>Senior Analyst Programmer
>International Registrations Department
>World Intellectual Property Organization
>++ 41 22 338 96 38
>Roger.Holberton@xxxxxxxx
>
>
> DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist
>


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