Re: [MacPerl] printing from browswer with glue

[Eric Rainey <eric_rainey@wgbh.org>]

>
>
>Other than that, I don't know.  Maybe there is an error message returned
>from the Glue?  The code below works for Netscape and IE:

Hmmm.  This code doesn't produce any oops, but also doesn't print...

use Mac::Glue;

my $IE = new Mac::Glue 'Netscape_Communicator';

$IE->print("masterpiece:archive:2:2.html");

die ("oops $^E") if ($^E);

The following:

use Mac::Glue;

my $IE = new Mac::Glue 'Netscape_Communicator';



$IE->print("masterpiece:archive:2:2.html");

$IE->ERRORS(sub {
      my(@stuff) = @_;
      print "Error: $stuff[4]";
   });

produces the following output.

# # No event 'ERRORS' available from glue for 'Netscape_Communicator'
File 'Pulp:werken:projects:masterpiece:db :applescript:printem_exp.pl'; Line 27
#	Carp::croak('No event \'ERRORS\' available from glue for 
\'Netscape_Communica...') called
File 'Electric:Utilities:MacPerl Ÿ:site_perl:Mac:Glue.pm'; Line 165
#	Mac::Glue::AUTOLOAD('Mac::Glue::GLUE0=HASH(0x8d3d1b4)', 
'CODE(0x8e55558)') called
File 'Pulp:werken:projects:masterpiece:db :applescript:printem_exp.pl'; Line 27


I don't know how to easily discern what version of Glue I'm using, 
it's doesn't say when I look it up in Shuck, but I just downloaded 
the sucker with cpan-mac today so I assume it's the latest version....

BTW, I can get the thing to print using $IE->printbrowserwindow 
which is only in IE 5's dictionary.

.eric.


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