#!/usr/local/bin/perl
use Tk; use Tk::ROText;
my $mw = MainWindow->new();
$a=$mw->ROText(height=>2)->pack; $a->insert('end','foo'); $a->focus;
$rot = $mw->ROText(height=>2)->pack;
$a=$mw->ROText(height=>2)->pack; $a->insert('end','foo'); $a->focus;
$rot->insert('end', 'foo ');
$a=$mw->ROText(height=>2)->pack; $a->insert('end','foo'); $a->focus;
$rot->insert('end', 'the bar', ['mytag','sel']);
$a=$mw->ROText(height=>2)->pack; $a->insert('end','foo'); $a->focus;
$rot->insert('end', ' is baz');
$a=$mw->ROText(height=>2)->pack; $a->insert('end','foo'); $a->focus;
MainLoop;

##</code><code>##

#!/usr/local/bin/perl
use Tk; use Tk::ROText;
my $mw = MainWindow->new();
for (1..3) {
  $a = $mw->ROText(height=>2)->pack;
  $a->focus;
  $a->insert('end','foo',['sel']);
  $a->focus;
}
MainLoop;