Re: how to write a vertical TK Entry?


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: how to write a vertical TK Entry?

by AnomalousMonk (Archbishop)

on Mar 05, 2020 at 07:55 UTC ( [id://11113826]=note: print w/replies, xml )

Need Help??

in reply to how to write a vertical TK Entry?

Don't know how to rotate the characters, but...

use strict;
use warnings;

use Tk;
use Tk::Text;

my $MW = MainWindow->new;

my $text_frame = $MW->Frame->pack;

my $v_text = $text_frame->Text(
    qw(-relief flat  -width 1  -height 10  -wrap char)
    )->pack(qw(-side left));

my $xy_text = $text_frame->Text(
    qw(-relief flat  -width 20  -height 10  -wrap word)
    )->pack(qw(-side left));

$v_text->insert('1.0', '12345');

$xy_text ->insert('1.0', <<"EOT");
now is the time
the rain in spain
how now brown cow
EOT

$v_text->insert('end', 'abc');

$xy_text ->insert('end', <<"EOT");
four score and seven
years ago...
EOT

MainLoop;
[download]

Give a man a fish: <%-{-{-{-<