format text in TreeWidget.

format text in TreeWidget.

[Alin Soare]

[-- Attachment #1: Type: text/plain, Size: 1395 bytes --]

I did write the following code.

As the :tag text is  very long on some lines, and pass over the end the
line,  it is displayed on myltiple lines, and the tree looks spoiled. I wish
to make the tree widget show the text formatted correctly, and on maximum N
columns.




(widget-create (quote tree-widget) :node (quote (push-button :tag
"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" :format "%[%t%]
"))
 (quote (tree-widget :tag
"...............................................................................................................................................................................................)
"))
 (quote (tree-widget :tag
"#################################################################################################################################################################################################################################"))
 (quote (tree-widget :tag
"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$"))) <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>


How can I do this ?


Thanks for any help.

[-- Attachment #2: Type: text/html, Size: 1545 bytes --]

Re: format text in TreeWidget.

[Tassilo Horn]

Alin Soare <as1789@gmail.com> writes:

> I did write the following code.
>
> As the :tag text is very long on some lines, and pass over the end the
> line, it is displayed on myltiple lines, and the tree looks spoiled. I
> wish to make the tree widget show the text formatted correctly, and on
> maximum N columns.

Hm, this somehow works, but is not perfect:

--8<---------------cut here---------------start------------->8---
(widget-create 'tree-widget
	       :node '(push-button :tag "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" :format "%[%t%]\n")
	       `(tree-widget
		 :tag ,(with-temp-buffer
			 (set-fill-column 50)
			 (insert "bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla")
			 (fill-paragraph)
			 (buffer-string)))
	       `(tree-widget
		 :tag ,(with-temp-buffer
			 (set-fill-column 60)
			 (insert "foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo")
			 (fill-paragraph)
			 (buffer-string)))
	       `(tree-widget
		 :tag ,(with-temp-buffer
			 (set-fill-column 70)
			 (insert "baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz")
			 (fill-paragraph)
			 (buffer-string))))
--8<---------------cut here---------------end--------------->8---

The problem is that only the first line has correct tree lines...

But maybe that's still a pointer into the right direction.

Bye,
Tassilo