[MacPerl] Show/Hide applications

[Chris Nandor <pudge@pobox.com>]

use Mac::AppleEvents::Simple;
sub _showhide {
  do_event(qw/core setd MACS/,
    q"'----': obj {form:prop, want:type(prop), seld:type(pvis), from:" .
    q"obj {form:name, want:type(pcap), seld:TEXT(@), from:'null'()}}," .
    "data:'$_[0]'", $_[1]);
}

sub show {_showhide('true', shift)}
sub hide {_showhide('fals', shift)}

show('Shuck');
hide('Shuck');
show('Shuck');

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

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