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

[Eric Dobbs <dobbs@epost.com>]

I'm still not getting much to work with the glue.


For starters, of the examples provided that I can run,
only one of 'em worked without modification.


clean up startup drive window:
worked without modification.  MacOS 8.0


label and beep:
# Class property does not exist.
File 'Dev:Pseudo'; Line 10

Nothing I tried would make this one work on my system.
Generally my edits offered only the same error:
...property does not exist.  I got this same error with
my own hacks too.  (see below).


open Netscape window:
# No event 'make' available from glue for 'Mac::Glue=HASH(0x589c548)'.
File 'xydo:Applications:MacPerl Ÿ:site_perl:Mac:Glue.pm'; Line 400

If I comment out line 4, this works fine, except it
doesn't open in it's own window.  Communicator 4.6


login with BetterTelnet
# No event 'activate' available from glue for 'Mac::Glue=HASH(0x5f01390)'.
File 'xydo:Applications:MacPerl Ÿ:site_perl:Mac:Glue.pm'; Line 400

For this one, if I comment out line 20 and edit line 31
(need to wait for a different prompt character on my
mklinux) -- works fine.  BetterTelnet 2.0b4


At least part of my problem is that I still can't seem
to get my head around AppleEvents.  It seems like the
parts are all simple enough, but I can't get 'em to fit
together. (It gives me a new perspective on why
AppleScript is so wierd  8^).  Anyway, that'll probably
make me a good crash-test dummy for the glue.


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


CaptureAE shows these two events as follows:
Process("Finder").SendAE
"core,
getd,
'----':obj {form:prop,
            want:type(prop),
            seld:type(pvis),
            from:obj {form:name,
                      want:type(pcap),
                      seld:"Shuck",
                      from:'null'()}}"


Process("Finder").SendAE
"core,
setd,
'----':obj {form:prop,
            want:type(prop),
            seld:type(pvis),
            from:obj {form:name,
                      want:type(pcap),
                      seld:"Shuck",
                      from:'null'()}},
data:'fals'()"



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


Not much to show yet.
-Eric



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