Forum programmazione

[DevilAuron]

Ciao, volevo sapere come si faceva per avere un entry(input) con le tk "multinlinea" cioè dove posso

Code: Select all

inserire
una
cosa
così

Come faccio?

[checkm]

Non conosco il Perl ma quando usavo le TK in Python per fare una cosa così non usavo Entry ma un widget che si chiama "Text". ;)

In ogni caso, leggiti le API.

[xero]

uh... allora, non è 1 cosa facile come l'entry per colpa del modo di prendere quello che c'è scritto o scriverci, comunque ti spiego brevemente e poi se googli trovi anche altri esempi:

Per creare il campo:

Code: Select all

$text=$mw->Scrolled( "Text", -scrollbars => 'osoe',
             )->pack();
$text->place( -x => 8, -y => 29, -height => 210, -width => 550);


per prendere quello che c'è nel text

Code: Select all

$risposta=$text->get("0.0","end");


quel 0.0 sono le coordinate dalle quali deve iniziare a prendere il testo, volendo puoi prendere anche 20 lettere nel bel mezzo di 1 testo...

Mentre per metterci del testo:

Code: Select all

@testo=("lol","ciao belli");
$text -> insert('end',"@testo");


e inserisce alla fine del campo text (alla fine intendo dopo cose gia scritte) quello che c'è in @testo

questo dovrebbe bastarti ciau

[DevilAuron]

Grazie mille
E se invece di Aggiungere il testo alla fine lo vorrei aggiungere dove ho cliccato?

Code: Select all

@testo=("lol","ciao belli");
$text -> insert('end',"@testo");

Penso di dover editare 'end' ma non so con cosa sostituirlo

[xero]

ora non ricordo di preciso ma c'è un modo per prendere le coordinate "numero.numero" (cioè riga e lettera) di dove è il cursone nel text, cerco un po e se trovo te lo dico

[DevilAuron]

Grazie se lo trovi mi semplifichi la vita