Select Code to Download

#!/usr/local/bin/perl
use Tk; use Tk::ROText;
...
$rot->insert('end', ' is baz');
$a=$mw->ROText(height=>2)->pack; $a->insert('end','foo'); $a->focus;
MainLoop;

#!/usr/local/bin/perl
use Tk; use Tk::ROText;
...
  $a->focus;
}
MainLoop;