I generate the tree in the following order:

XML - (xml-parse-tag) -> LISP - (defining xml-tags as lisp functions) ->
tree-widget format.

I can insert to te level "xml-tags as lisp functions" an accumulator to help
me know the

:level N

of every tree-widget element. N can represens the number of columns at the
beginning of a line used by "group"

||||||||| [N times]

Supposing you have a (:level N) element for every element of tree-widget,
how do you define a fill-paragraph function in tree-widget mode ?

Please help from the author of tree-widget and everybody else who knows it .


Alin.












2011/1/10 Alin Soare <as1789@gmail.com>

>
> No.
>
> Thanks for your answer.
>
> No, your answer is wrong.
>
> You did not understand what I meant.
>
> I answer you so:
>
> I do not like to create a tree like this :
>
>
> |- aaaaaaaaaaaaa
> aaaaaaaaaaaaaaa
> |- bbbbbbbbbbbbb
> bbbbbbbbbbbbbbb
> `cccccccccccccccc
> ccccccccccccccccc
>
> but like this:
>
>
> |- aaaaaaaaaaaaaaaaaaa
> |  aaaaaaaaaaaaaaaaaaa
> |- bbbbbbbbbbbbbbbbbbb
> | bbbbbbbbbbbbbbbbbbbb
> |-ccccccccccccccccccccccc
> `ccccccccccccccccccccccc
>
>
> In other words:
>
> Is there a function fill-paragraph for tree-mode ?
>
>
> Thanks.
>
> Alin
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> <quote author="Tassilo Horn-5">
> 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
>
>
>
> </quote>
>
>