#!/usr/bin/perl use Tk; use strict; my $mw=tkinit; my $textarea = $mw->Scrolled("Text",-scrollbars => 'ose')->pack; $mw->after(1000,\&filltext); MainLoop; sub filltext { for (1..100){ $textarea->insert('end', "$_\n"); $textarea->see('end'); $textarea->idletasks; $mw->after(50); #this is just to slow things down } }
In reply to Re: Tk Scrolled
by zentara
in thread Tk Scrolled
by michaelg
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |