Text Column

• To: powsner@nlm.nih.gov, CLIM@BBN.COM
• Subject: Text Column
• From: Scott McKay <SWM@sapsucker.scrc.symbolics.com>
• Date: Fri, 20 Dec 1991 14:48-0500
• In-Reply-To: <9112201834.AA01832@csb1.nlm.nih.gov>

    Date: Fri, 20 Dec 1991 13:34 EST
    From: Seth M Powsner <powsner@nlm.nih.gov>

    I'd appreciate some help on displaying a column of text down the right
    side of my window. The text is not in its own pane because I don't want
    the pane border that I can't shut off in MCL CLIM.

    The text is actually a series of short paragraphs to be displayed like a
    one column newspaper.

    I tried (filling-output (window :fill-width column-width)
		 (format window "~A" text-paragraph))
    after (stream-set-cursor-position* window column-left column-top)
    which got the first line right, but wrapped all the way to the left
    side of the window. Actually, I wrapped the filling-output with
    formatting-item-list and formatting-cell.

    What should I have done?
    In the future, the paragraphs will be selectable as units. Does that change
    the recommended approach?

(defun fill-and-indent (string fill-width indentation 
		        &optional (stream *standard-output*))
  (indenting-output (stream `(,indentation :character))
    (filling-output (stream :fill-width `(,fill-width :character))
      (write-string string stream))))

(fill-and-indent "Hello there.  This is a test of filled, then indented output.  Did it work OK?" 20 20)

0,,

• Text Column
• From: Seth M Powsner <powsner@nlm.nih.gov>

• Prev: Text Column
• Next: Re: LUV-92 Theme and Speaker Quest
• Index: CLIM Mailing list (5-Oct-90 to 31-Dec-91)
• Thread: CLIM Mailing list Index (5-Oct-90 to 31-Dec-91)