#!/usr/bin/perl use warnings; use strict; use Tk; use Tk::HList; my $mw = new MainWindow; my $hl = $mw->Scrolled( 'HList', -scrollbars => 'osoe', -background => 'white', -columns => 400, -header => 1, -width => 10, -height => 5, -command => sub{ print "AAA\n"}, )->pack(-fill=>'both',-expand=> 1); my $bgcolor = "bisque"; foreach my $column ( 0 .. 399 ) { ## Create the Clickable Header my $b = $hl->Button( -background => $bgcolor, -anchor => 'center', -text => "Header$column", -command => sub { print "You pressed Header $column\n"; } ); $hl->headerCreate( $column, -itemtype => 'window', -borderwidth => -2, -headerbackground => $bgcolor, -widget => $b ); } foreach my $num(1..10) { my $e = $hl->addchild(""); #will add at end foreach my $col(0..399){ $hl->itemCreate ($e, $col, -itemtype => 'text', -text => "$num-$col", ); } } MainLoop;
In reply to Re: Size limit of Hlist v. Listbox
by zentara
in thread Size limit of Hlist v. Listbox
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |