...>perl -MTk -e "$w = new MainWindow;$t = $w->Text()->pack; print '[' . $t->index('1.0') . '] [' . $t->index('end') . ']';"
[1.0] [2.0]