-----BEGIN PGP SIGNED MESSAGE----- Monday, September 28, 1998 This archive can always be obtained from: http://pudge.net/macperl/ http://perl.com/CPAN/authors/id/CNANDOR/ http://perl.com/CPAN/modules/by-module/Mac/ The file is a tarred, gzipped file. Use Stuffit Expander or a similar program to get at the archive. Please let me know how well it does(n't) work, and any changes you'd like to see. #============================================================================ NAME Mac::Apps::Launch - MacPerl module to launch applications SYNOPSIS use Mac::Apps::Launch; my @apps = qw(R*ch Arch MPGP); my $path = "HD:System Folder:Finder"; LaunchApps([@apps], 1) || warn($^E); # launch and switch to front LaunchApps([@apps]) || warn($^E); # launch and don't switch LaunchApps($app[1], 1) || warn($^E); # launch and switch to front LaunchSpecs($path, 1) || warn($^E); # use path instead of app ID QuitApps(@apps) || warn($^E); # quit @apps QuitAllApps(@apps) || warn($^E); # quit all except @apps IsRunning('MACS'); # returns boolean for whether # given app ID is running DESCRIPTION Simply launch or quit applications by their creator ID. The Finder can be quit in this way, though it cannot be launched in this way. This module is used by several other modules. This module as written does not work with MacPerls prior to 5.1.4r4. EXPORT Exports functions `QuitApps', `QuitAllApps', and `LaunchApps', `IsRunning', `LaunchSpecs'. HISTORY v.1.60, September 28, 1998 Added `LaunchSpecs'. Use this when the app does not have a unique app ID, the app is not really an app (like the Finder), or you have more than one instance of the app, and want to launch a particular one. v.1.50, September 16, 1998 Added `IsRunning'. v.1.40, August 3, 1998 Only launches application if not already open; e.g., won't launch newer version it finds if older version is open. v.1.31, May 18, 1998 Added `AEDisposeDesc' call (D'oh!). Dunno why I forgot this. v.1.3, January 3, 1998 General cleanup, rewrite of method implementation, no longer support versions prior to 5.1.4r4, addition of Quit methods, methods return undef on failure (most recent error in `$^E', but could be multiple errors; oh well). AUTHOR Chris Nandor http://pudge.net/ Copyright (c) 1998 Chris Nandor. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Please see the Perl Artistic License. VERSION Version 1.60 (28 September 1998) #============================================================================ - -- Chris Nandor mailto:pudge@pobox.com http://pudge.net/ %PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6']) -----BEGIN PGP SIGNATURE----- Version: PGPfreeware 5.0 for non-commercial use Charset: noconv iQCVAwUBNg/8LShcZja3bnKtAQFSZQP5ATE4Re/HKErJekjBKYPmn9kk0iFi/6Xq E9ih7Qgi66C42OkE+zmSfJ6T3F4joD+bT3iJM5cxd8G9bgTbHligisuYW6oHMxwI qoVr0IZZYIsIxxMyN29HvnUnGOnXbtRvSHb4XBakO066kbj7bU3citeG1mGoeGL8 Uzggq6i/hLY= =1L2Z -----END PGP SIGNATURE-----