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

Re: [MacPerl-Modules] Mac::Glue 19990522 Available



At 3.48 -0400 1999.05.24, Eric Dobbs wrote:
>For starters, of the examples provided that I can run,
>only one of 'em worked without modification.

OK, did you run the scriptadds and dialect droplets?  Hm.  I bet the
architecture was different for Mac OS 8.0.  Does anyone know where the aeut
/ dialect information is under Mac OS 8.0?

That is the problem, I'd wager.  property, make, activate are all provided
by the dialect.

Actually, I'd like to know where the dialect information is for 7.5, 7.6,
8.0, and 8.1.  For 8.5 and 8.6 it is in Scripting Additions:Dialects:.


>For my own hacking, I couldn't get anything to work.
>Well, I was able to significantly modify the 'login
>with BetterTelnet' to connect to a router and show
>me some interesting configuration info.  But of the
>stuff I tried from scratch, I didn't have much luck.
>
>I was mainly trying to build these two AppleScripts:
>
>tell application "Finder"
>  get visible of application process "Shuck"
>end tell
>
>tell application "Finder"
>  set the visible of application process "Shuck" to false
>end tell

>Chris, I tried to hide Shuck with this code from your
>earlier reply:
>
>#!perl -wl
>use strict;use Mac::Glue;
>my $b = new Mac::Glue 'Finder';
>$b->set( $b->p( visible => application_process => 'Shuck' ),
>     { to => 0 });
>
>And I got this reply:
># Class property does not exist.
>File 'Dev:Pseudo'; Line 4

The great news is that under my setup, this code works!  So you _are_ on
the right track, but the glue needs some tweaks to work under Mac OS 8.0.

I might take it upon myself to install Mac OS 8.1 on my PowerBook on a Jaz
cart or something (8.1 is what came with the machine).  I don't have an
easy way of testing pre-8.1, though, as my only machine that can handle it
is my router, which I don't want to bring down for this testing (though at
some point I will if I need to).

I might also just go through the dialect and construct my own glue for it
to distribute ... if you see Mac/Glue.pm you notice at the bottom of the
code a "SPECIAL" hash for events and classes.  This is because "get" and
"set" are not defined anywhere anymore under Mac OS 8.5.  They just don't
exist except in the AppleScript code, which I think is lame.  Seems to me
everything should be in some aeut or aete, somewhere.  Regardless, if an
event or class can't be found anywhere, it can fall back on these SPECIAL
hashes.  So I might just put everything I can find that might be in the
aeut / dialect file, put it in a hash, make a glue out of it, call it
"special", and add it to the end of the search path.

--
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 macperl-modules-request@macperl.org