#!/usr/bin/perl
use strict;
use warnings;

use Tk;
use Tk::Dialog;
use Tk::TableMatrix;
use utf8;

sub setheight;


my $mw = MainWindow->new;
$mw->minsize(800, 500);		# minimum size of main window in pixels	

my $textfont = '-*-Courier-Medium-R-Normal--*-140-*-*-*-*-*-*';

my $arrayVar = {};

while (<DATA>) {
	my $i = $. - 1;
	/^([^\t]*)\t([^\t]*)/;
	$arrayVar->{"$i,0"} = "$1";
	$arrayVar->{"$i,1"} = "$2";
}

my $rows = $.;
# print "\nrows: $rows\n";


my $cols = 2; # number of columns

my $t = $mw->Scrolled('TableMatrix', 
					-scrollbars => "osoe",
					-font   => $textfont,
					-resizeborders => 'col', # none, col, row
					-bordercursor => "sb_h_double_arrow",
					-rows => $rows,
					-cols => $cols,
					-wrap => 1,
					-justify => 'left',		# this only affects multiline cells
					-anchor => 'nw',			# this aligns text to the top left
					# -rowheight => 1,
					-colwidth =>-400,
					-variable => $arrayVar,
					# -colstretchmode => 'all',
					)->pack(-expand => 1, -fill => 'both');


setheight;	# initial height adjustment; height will be readjusted later when necessary by calling the same sub


my $buttexit = $mw->Button( -text => "Exit", -command => sub{ $mw->destroy});		    
my $buttheight = $mw->Button( -text => "Set height", -command => sub {setheight;});		    


$buttheight->pack();
$buttexit->pack();
$buttexit->focus( -force );


# my $cursorpos = $t->icursor();
# my $activeindex = $t->index('active');
# my $activecont = $t->get('active');


Tk::MainLoop;


sub setheight {
	for my $i (0 .. $rows - 1) {
		# print "\n\nrow $i";
		for my $col (0 .. $cols - 1) {
			$t->activate("$i,$col");
			my $activecont = $t->get('active');
			# print "\n$i,$col";
			my $charcount = length($activecont);
			# print " length: $charcount";
			my $width = $t->colWidth($col,) / -8; # approx width in characters
			my $reqheight = int(length($activecont) / $width) + 1;
			# print ", required height: $reqheight";
			my $currheight = $t->rowHeight($i);
			$t->rowHeight($i, $reqheight) if ( ($col == 0) or ($reqheight > $currheight)); # set row height for the height of the tallest cell in the row
		}
	}
}


__DATA__
this	is a relatively long string that will probably end up displayed on two lines if the window isn't wide enough this is a relatively long string that will probably end up displayed on two lines if the window isn't wide enough
this is not that short, eitherrr	lalala)(=/%!+"'§΄&#729;`&#731;°^&#711;~
well, this cell contains quite a lot of text so I'm expecting it will be wrapped	lalalaια&#369;ϊ&#337;νσόΦ)(=/%!+"'§΄&#729;`&#731;°^&#711;~