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

Re: [MacPerl] Outputting to a printer



>Other than that, you can use Apple Events or AppleScript to direct a
>program to print something.  Tested to work with SimpleText (ttxt) and
>BBEdit 5.0 (R*ch): <snip>
>You can do more complicated events to print active windows, and specify
>printing options, etc.  But it depends on the target app.

a) By simple substitution, this will cause SimpleText to print a dragged_on
text file:
   #!perl -w
    use Mac::Files;
    use Mac::AppleEvents::Simple;

package main;

    do_event(qw/aevt pdoc ttxt/, q"'----':alis(@@)",
        NewAliasMinimal($ARGV[0]));


b) Now, do_event wants a filename for its third parameter, and I'd like to
print the clipboard contents. My first response is stealing this code from
the drop_test droplet:

 package Dartmouth;
&MacPerl::LoadExternals("clipboard.XFCN"); # XCMD for clipboard processing

but &Dartmouth::Clipboard() is NOT what I'm looking for.
Still ReadingTFM ...
 I know it's in there somewhere.  thanks.

-
The world is one country and mankind, its citizens.

Larry Moore and Shirley Allan
Union Street West
Fergus ON Canada



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch