Hello Joris,
yes I can. I do it with a parameter like this
(tm-build-widget (message-widget error-text)
,error-text
===
(bar
>>>
(button "Done" (dismiss))))
(define (display-message list-of-messages)
(let* ((error-text ""))
(for-each (lambda (i)
(set! error-text (string-append error-text i "\n")))
list-of-messages)
(widget-popup "message" `(message-widget ,error-text))))
This adds the text to the widget but it does not respect the linebreaks.
Best regards
Michael
2007/9/3, Joris van der Hoeven <[EMAIL PROTECTED]>:
>
> Hi Michael,
>
> On Mon, Sep 03, 2007 at 03:48:16PM +0200, Michael Klein wrote:
> > I have a question concerning widgets:
> > If I use tm-build-widget to construct a widget like this
> > (tm-build-widget (message-widget)
> > "Some Text"
> > ===
> > (bar
> > >>>
> > (button "Done" (dismiss))))
> >
> > And I want to later change the text and then display the widget.
> > How can I do this?
>
> Can you give a more detailed example on what you want?
> Fundamentally, you have the choice between making your text editable and
> between rebuilding the widget by adding a parameter to "message-widget".
> I cannot recommend which way to go without more information.
>
> Best wishes, Joris
>
>
> _______________________________________________
> Texmacs-dev mailing list
> [email protected]
> http://lists.gnu.org/mailman/listinfo/texmacs-dev
>
_______________________________________________
Texmacs-dev mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/texmacs-dev
