$text->insert('0.0', "First\n");
$text->insert('end', "Second\n");
# $text->markSet('Foo', '3.0'); #make mark at start of line 3
$text->markSet('Foo', 'end-1 chars'); #make mark after last inserted text
$text->markGravity('Foo','left');
$text->insert('end', "Third\n");
$text->insert('Foo', "-inserted-\n");
MainLoop;