Re: [MacPerl] dismissing a window

[Chris Nandor <pudge@pobox.com>]

The Low-Tech solution is this:

  MacPerl::DoAppleScript(<<EOT);
  tell application "MacPerl"
    close window "TerminalOne"
  end tell
  EOT


The slightly faster Hi-Tech method is this:

  use Mac::AppleEvents::Simple qw(:all);
  $x = build_event(qw/core clos McPL/,
   "'----':obj {want:type(cwin), from:null(), form:name, seld:TEXT(\@)}",
   'TerminalOne');
  $x->send_event(kAENoReply());


The "I'm cool, I'm using the most recent Mac::Glue alpha" method is this:

  use Mac::Glue::MacPerl;
  $m = new Mac::Glue::MacPerl;
  $m->Close($m->_obj(Window=>'TerminalOne'));

--
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