RE: flash?

> > > >> Can anyone give me an example code of how TK's flash()
> > > >> function works with a button?
> > > >
> > > >Here's a oneliner:
> > > >
> > > >perl -MTk -e 
> > > '$b=tkinit->Button->pack;$b->repeat(1000,sub{$b->flash});MainLoop'
> > > 
> > > I was in the process of trying to get a flash under Windows 
> > > when Slaven's response arrived.  Neither my examples nor 
> > > Slaven's seem to work.
> > 
> > I also noticed: this one-liner works okay on Linuxes and on 
> older perl/Tk (perl-5.004_02+Tk4 works okay)
> > But neither 800 nor 804 work on windows.
> > 
> > Vadim.
> 
> What about original Tcl/Tk?

Windows version seemingly do not flash:

pack [button .b -text qwerty]
foreach a {1000 3000 5000 7000 9000} {
  after $a ".b flash"
}

visually nothing on windows but flashes on X11.

(I don't have very old Tk, so can't check Tk4, but Tk8.4.13 and 8.5 alpha4 are the same)

Vadim.
--++**==--++**==--++**==--++**==--++**==--++**==--++**==
ptk mailing list
[email protected]
https://mailman.stanford.edu/mailman/listinfo/ptk