in reply to Tk ASCII Table

nicely done, NatTut.

suggestion of less consequence (and perhaps not a needed exercise for you): create scrollbars for those user cases where right and/or bottom runs off screen.

Replies are listed 'Best First'.
Re^2: Tk ASCII Table
by NateTut (Deacon) on Jun 10, 2005 at 14:36 UTC
    That would be nice, but I'm having trouble getting scrollbars to work. I can't seem to get the $root window to have scrollbars so I thought of putting everything in a frame and scrolling that, but that didn't work either.
[reply]
      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;

      [download]

      Regards, mawe

[reply]
[d/l]
        Hmm... Your scrollbars don't work for me. I'm using Perl 5.8.3 on WIndoze ME. I have created scrolled objects before (i.e. text & TableMatrix) but I have never gotten a frame to scroll.

        Weird.
[reply]

In Section Cool Uses for Perl