#!/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;