[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Show/Hide applications



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