Simple canvas for testing?

Is there a simple way of creating a clean fully-functional render canvas
for testing purposes? Say,

html := WARenderCanvas empty.
element printContentOn: html.
self assert: html contents = '<em>Hello</em>'

Cheers!

-Boris

--
+1.604.689.0322
DeepCove Labs Ltd.
4th floor 595 Howe Street
Vancouver, Canada V6C 2T5
http://tinyurl.com/r7uw4

[hidden email]

CONFIDENTIALITY NOTICE

This email is intended only for the persons named in the message
header. Unless otherwise indicated, it contains information that is
private and confidential. If you have received it in error, please
notify the sender and delete the entire message including any
attachments.

Thank you.

_______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside

On 20 Feb 2007, at 20:51 , Boris Popov wrote:

> Is there a simple way of creating a clean fully-functional render  
> canvas
> for testing purposes? Say,
>
> html := WARenderCanvas empty.
> element printContentOn: html.
> self assert: html contents = '<em>Hello</em>'
>

Not a simple way, but this should do something close.

        | context callbacks renderer stream element |
        context := WARenderingContext new document: ((WAHtmlStreamDocument new)
                                                bodyStream;
                                                yourself).
        callbacks := WACallbackRegistry context: context owner: nil.
        renderer := WARenderCanvas context: context callbacks: callbacks.
        stream := String new writeStream.
        renderer context document stream: stream.
        renderer forgetCurrentBrush.
        renderer render: element.
        stream contents inspect.

HTH
Michel.



_______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside

Great, thanks, I'll check it out. I seem to have managed with the
following,

| context doc |
context := WARenderingContext new.
doc := (WAHtmlStreamDocument new)
                initializeWithRoot: (WARenderedHtmlRoot context:
context);
                body;
                yourself.
context document: doc.
^WARenderCanvas context: context callbacks: WACallbackRegistry new

where the only extensions I added are,

WAHtmlStreamDocument>>body
 state := #body

WARenderCanvas>>contents
 ^self document stream contents

so now my test cases look just as I wanted them,

html := WARenderCanvas empty.
element printContentOn: html.
self assert: html contents = '<em>Hello</em>'

Cheers!

-Boris

--
+1.604.689.0322
DeepCove Labs Ltd.
4th floor 595 Howe Street
Vancouver, Canada V6C 2T5
http://tinyurl.com/r7uw4

[hidden email]

CONFIDENTIALITY NOTICE

This email is intended only for the persons named in the message
header. Unless otherwise indicated, it contains information that is
private and confidential. If you have received it in error, please
notify the sender and delete the entire message including any
attachments.

Thank you.
((WAHtmlStreamDocument
> new)
> bodyStream;
> yourself).
> callbacks := WACallbackRegistry context: context owner: nil.
> renderer := WARenderCanvas context: context callbacks:
callbacks. _______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside