[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
Re: [MacPerl] beep, beep
At 2:14 PM -0700 11/18/99, Joseph A. DiVerdi wrote:
>Forgive the stupid question but I cannot find a simple way to make a
>system sound. The following snippet works but takes a long time to
>execute:
>
> MacPerl::DoAppleScript("tell application \"Finder\"\nbeep\nend tell\n");
>
>At this point I don't care what sound I make (beep, system sound,
>etc.) I just want to make some noise.
Try this:
-----
#!perl
use Mac::Sound;
SysBeep(1);
-----
Hope this helps,
Eric
--
Eric Albert ejalbert@cs.stanford.edu
http://www.stanford.edu/~ejalbert/
# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org