It's a Label window, with scrolling text.
So I want to make different words in the same window have different
parameters. Basically I want to spawn an IE window with a specific URL.
(Where $vu_win is the main window)
my $fr = $vu_win->Frame(-width =>
90, -background=>'red', -foreground=>'white')->pack(-fill=>'x');
my $lb = $fr->Label(-textvariable => \$text, -width =>
90,-background=>'red', -foreground=>'white')->pack(-fill=>'x');
$lb->repeat(100, \&update);
my $lt;
my $chr;
MainLoop();
sub update
{
$lt = localtime() . " " unless $lt;
$chr = substr($lt,0,1,'');
$text = substr("$text$chr", -90);
}
Regards
Marty
> -----Original Message-----
> From: Peter Eisengrein [mailto:[EMAIL PROTECTED]]
> Sent: Monday 17 December 2001 14:42
> To: 'Martin Moss'; [EMAIL PROTECTED]
> Subject: RE: On click?
>
>
> Is it in a text box, label, RichEdit, other? The short answer (for
> Win32::GUI) is yes, an event is triggered and the associated
> _Click sub is
> run. Depending upon the widget type, it may have to be handled
> differently.
>
>
>
> > -----Original Message-----
> > From: Martin Moss [mailto:[EMAIL PROTECTED]]
> > Sent: 17 December 2001 06:29
> > To: [EMAIL PROTECTED]
> > Subject: On click?
> >
> >
> > Is there an oNClick or equivalent event in perl/TK, or Win32::GUI?
> >
> > I need to make certain Text clickable. i.e. When mouse moves
> > over the text
> > it's icon changes and if the text is clicked, then an event
> > is kicked off.
> > As the text is dynamic and it changes regularly, I need to be able to
> > configure different event's for different Text. Maybe even
> > different Words
> > in a string of text displayed in the same window.
> >
> > Regards
> >
> > Marty
> >
> > > -----Original Message-----
> > > From: [EMAIL PROTECTED]
> > > [mailto:[EMAIL PROTECTED]]On
> > Behalf Of Ron
> > > Hartikka
> > > Sent: Saturday 15 December 2001 02:03
> > > To: Dick Penny; [EMAIL PROTECTED]
> > > Subject: RE: print console lines??
> > >
> > >
> > > Do you want to modify the existing script whose results you
> > want to print?
> > >
> > > Or, do you want to write a new script which (maybe runs the
> > > existing script
> > > and) collects results from the existing script?
> > >
> > > > -----Original Message-----
> > > > From: Dick Penny [mailto:[EMAIL PROTECTED]]
> > > > Sent: Friday, December 14, 2001 7:01 PM
> > > > To: Ron Hartikka; [EMAIL PROTECTED]
> > > > Subject: RE: print console lines??
> > > >
> > > >
> > > > Print the results of the script which ARE in the console
> > window in my
> > > > situation. The particular script which has just finished
> > executing. The
> > > > idea is to be able to look at them prior to printing them.
> > > >
> > > > -----Original Message-----
> > > > From: Ron Hartikka [mailto:[EMAIL PROTECTED]]
> > > > Sent: Friday, December 14, 2001 3:36 PM
> > > > To: Dick Penny; [EMAIL PROTECTED]
> > > > Subject: RE: print console lines??
> > > >
> > > >
> > > > Print the console window, or print the results of your script?
> > > >
> > > > Any script or a particular script?
> > > >
> > > > > -----Original Message-----
> > > > > From: [EMAIL PROTECTED]
> > > > >
> [mailto:[EMAIL PROTECTED]]On Behalf Of
> > > > Dick Penny
> > > > Sent: Friday, December 14, 2001 5:43 PM
> > > > To: [EMAIL PROTECTED]
> > > > Subject: print console lines??
> > > >
> > > >
> > > > On a Win2K machine, I want to run a script, take script normal
> > > > output in console window, and then print the console window
> > > > if/when I like the on screen results? Thanks, Dick
> > > > _______________________________________________
> > > > Perl-Win32-Users mailing list
> > > > [EMAIL PROTECTED]
> > > > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
> > > >
> > > >
> > >
> > >
> > >
> >
> >
> > _______________________________________________
> > Perl-Win32-Users mailing list
> > [EMAIL PROTECTED]
> > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
