If you are inserting something programmatically, then why not check it
before you insert <grin> :)
Anyways, it doesn't do that for me? Run this script and tell me what it
does..
######################
use Tk;
use Tk::LEntry;
use strict;
my $max=10;
my $status="HELLO";
my $mw=new MainWindow;
my $e=$mw->LEntry(
-width=>20,
-maxwidth=>$max)->pack;
my $l=$mw->Label(-textvariable=>\$status)->pack;
$mw->repeat(1000,\&checkinsert);
MainLoop;
sub checkinsert
{
my $length = int(rand(20));
$e->delete(0,'end');
$e->insert('end','X'x$length);
($length>$max)?($status="$length NOT Allowed"):($status=" ");
}
#######################
Jack
--------
"The views expressed here are mine and do not reflect the official
position of my employer or the organization through which the Internet
was accessed".
-----Original Message-----
From: Adam Frielink [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 07, 2002 1:09 PM
As I read the code in the LEntry module, when you perform a
$LEntry->insert('end',@list), it should insert all the list and then
truncate backwards to the maxwidth. My widget doesn't actually perform this
until I try to type/edit the LEntry again.
Am I not understanding the insert logic correctly?
Adam Frielink
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
