[MacPerl] sleep()ing in GUI programs

[kpreid@ibm.net (Kevin Reid)]

Here's a replacement for sleep() that works better if your program uses
windows:

use Mac::Events;

sub pause {
  my ($time) = @_;
  my $start = time;
  WaitNextEvent until time > ($start + $time);
}

-- 
  Kevin Reid.      |         Macintosh.
   "I'm me."       |      Think different.

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch