Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Recent content by keble
-
Perl image viewing with Tk
Things are getting better, but I have a couple of niggles if anyone can help :-) 1) I tried the Keypress addition to stop the script, as mentioned by Kirsle: $mw->bind ("<Motion>", \&close); $mw->bind ("<ButtonPress>", \&close); # mouse clicks $mw->bind ('<KeyPress-Escape>', \&close)... -
Perl image viewing with Tk
I'm using Active too - on a Mac. Likewise, installing Tk on the Mac seemed to be just too much hassle. -
Perl image viewing with Tk
Thanks again - I'll try those. I came across another useful thing for a screen saver: you can get rid of the normal window bars with this: my $mw = MainWindow->new(); $mw->overrideredirect(1); ... but it doesn't leave the user a way to kill the window, so apparently you can use a bind to a... -
Perl image viewing with Tk
Hi, that works! Many thanks. Not sure why but I had to change the wait($delay) to wait_something($delay) otherwise I got a syntax error. Maybe wait is a reserved word. -
Perl image viewing with Tk
Here's the story so far. Notes: $tally is just a count of files; the code just tries to show 2 images, one after the other, with a delay between them (maybe the delay is the problem?) use Tk; use Tk::JPEG; my $mw = MainWindow->new(); $num=int(rand($tally))+1; $file=@file_list[$num]; my... -
Perl image viewing with Tk
I'd appreciate any help with using Perl/Tk (or anything else that's suitable) to create a screen saver, which will display a list of image files, one at a time with some defined delay between. I've tried using Tk's Label. This will display one image OK, but then when I try to display the next it...
