use strict;
use warnings;
use Tk;

my $columns_per_row = 12;

sub ASCII_Buttons {
    my $root = MainWindow->new();
    $root->title('MMG Server Options');
    
    my $frame = $root->Scrolled('Frame',
        -width=>600,-height=>400)->pack(-fill=>'both', -expand=>1);
    
    my ($row,$col) = (1,1);
    for my $character (0..255) {
        my $label = sprintf("[%03d][%s]", $character, chr($character));
        $frame->Button(
		-text=>$label,
            	-font => '-*-Lucida Console-Bold-R-Normal-*-*-160-*-*-*-*-*-*',
            )->grid(-row=>$row,-column=>$col,-sticky=>'nswe');
        if ($col>=$columns_per_row) {$row++;$col=0}
        $col++;
    }
}

ASCII_Buttons();
MainLoop;