Re: [MacPerl] Running filters in BBEdit

[Chris Nandor <pudge@pobox.com>]

At 22.30 +0200 2000.03.28, Peder Axensten wrote:
>The combination of MacPerl and BBEdit is great! I've a collection of
>AppleScripts, mainly text filters, for BBEdit that I'm redoing in
>MacPerl for better functionality and speed. Everything works great
>except for dialogs:
>
>if(MacPerl::Answer("Should I insert Russian hyphenation?", "Yes",
>"No!")) { whatever }
>
>This will put up a non-modal dialog in MacPerl, but since I'm in
>BBEdit I can't see it. Clicking *repeatedly* on the MacPerl icon in
>the Finder's task manager palette will eventually make it surface --
>then I can click a button in my dialog and get on.

Try:

  use Mac::Processes;
  my $cur_app = GetFrontProcess();
  my $macperl = GetCurrentProcess();

  SetFrontProcess($macperl);

  if (MacPerl::Answer("Should I insert hyphenation?", "Yes", "No!")) {
     print "ha!";
  } else {
     print "hrm";
  }

  SetFrontProcess($cur_app);

-- 
Chris Nandor       |     pudge@pobox.com      |     http://pudge.net/
Andover.Net        | chris.nandor@andover.net | http://slashcode.com/

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org