-----------------
|i'm a headline |
|i am some text |
| ___           |
||img| i'm text |
||___|thatwraps |
|and i'm regular|
|text text text |
-----------------

##</code><code>##

$etext = $mc->new_edit_text( [$font, $text] )
returns a new basic dynamic editable text object. It has interfaces to raw DefineEditText tag. 
##</code><code>##

$etext->box_size( $width, $height )
sets the bounding box of the text and stops auto-sizing the box. When either $width or $height is undef, it is unchanged. Fixing bounding box may cause unexpected text clipping. You should set DefineEditText flag Multiline and/or WordWrap. See SWF::Element.

##</code><code>##

$etext->methos for SWF::Element::Tag::DefineEditText
You can control details of the texts to call methods for DefineEditText tag. See SWF::Element
##</code><code>##

Tag::DefineEditText
Type: Text

 field          class   lookahead
 CharacterID    ID          *
 Bounds         RECT
 Flags          $
   WordWrap     (Flags)
   Multiline    (Flags)
   Password     (Flags)
   ReadOnly     (Flags)
 - HasTextColor (Flags)
 - HasMaxLength (Flags)
 - HasFont      (Flags)
   AutoSize     (Flags)
 - HasLayout    (Flags)
   NoSelect     (Flags)
   Border       (Flags)
   HTML         (Flags)
   UseOutlines  (Flags)
 FontID         ID
 FontHeight     $
 TextColor      RGBA
 MaxLength      $
 Align          $
 LeftMargin     $
 RightMargin    $
 Indent         $
 Leading        $
 VariableName   STRING
 InitialText    STRING

##</code><code>##

$rect=SWF::Element::RECT->new;

##</code><code>##

$rect->configure(Xmin=>0, Ymin=>0, Xmax=>100, Ymax=>100);
$element=SWF::Element::* ->new([parameters]);

##</code><code>##

$etext->methos for SWF::Element::Tag::DefineEditText
You can control details of the texts to call methods for DefineEditText tag. See SWF::Element
##</code><code>##

$etext = $mc->new_edit_text( [$font, $text] )
returns a new basic dynamic editable text object. It has interfaces to raw DefineEditText tag. 
##</code><code>##

package DWIM;
# How to use this module is left as an exercise to the reader.
1;

##</code><code>##

$etext->Tag::DefineEditText->configure(AutoSize=>0,WordWrap=>1);