Hi!
Here's a version with scrollbars:
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;
Regards, mawe