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.
      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

        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.