I dont understand what you want exatly ,but I give u 2 tips, I hope that help u
u can select a text widget in TK(set the cursor in this widget):
- use Tk;
-
$mw->maxsize(500,800);
-
$mw->minsize(500,800);
-
$text=$mw->Text( -width=>65,
-
-height=>5,
-
);
-
$text->place(-x => 20,-y => 700);
-
$text->focus; #set cursor to the chosen text widget
When u want take a line from text widget do this:
- use Tk;
-
$mw->maxsize(500,800);
-
$mw->minsize(500,800);
-
$text=$mw->Text( -width=>65,
-
-height=>5,
-
);
-
$text->place(-x => 20,-y => 700);
-
#then u write to text widget
-
$r=$text->get('1.0','1.0 lineend'); #take the first line from text