Re: [MacPerl-Modules] Mac::Glue problem

[Chris Nandor <pudge@pobox.com>]

At 18.59 -0400 1999.06.18, Muggli, Ricardo T. (CCC) wrote:
>The problem I am having is with the gluedialect and gluescriptadds scripts.
>In those scripts there is this portion:
># this won't work on Mac OS pre-8.0$ARGV[0] =
>catdir(FindFolder(kOnSystemDisk, 'Éscr'), 'Dialects') if !@ARGV;die "Can't
>find Scripting Additions folder\n" if !@ARGV;I'm running 7.5.5 so this
>didn't work. I just hardcoded in my path with this
>(and similar for gluescriptsadd) With this Mac::Glue worked fine for me..
>That is with my minimal testing so far.:
>$ARGV[0] = "10:System Folder:Extensions:Scripting Additions:Dialects:";
>Is there any way to determine what system version is running on the
>computer? If it's >=OS8 use the code that is in there and if it is <8 use
>something like MacPerl::FindFolder(S) and append the correct paths.

Yeah, I have just been too busy to do it.  So riddle me this: will
Scripting Additions always be in System Folder:Extensions:Scripting
Additions in pre-8?  Further, will the dialects be in Scripting
Additions:Dialects?  If so, this will work, I think:

if (!@ARGV) {
    $ARGV[0] = $Gestalt{gestaltSystemVersion()} < hex(800)
        ? FindFolder(kOnSystemDisk, 'Ÿscr')
        : FindFolder(kOnSystemDisk, kExtensionFolderType) .
            ":Scripting Additions";
}

Make the appropriate adjustment for the gluedialect script.  Please let me
know if this works for any system any of you are running (pre and post 8).
Or, just tell me what OS you are running, and where the Scripting Additions
and Dialects folders are.


>Also when I dropped QuarkXPressÆ3.3 on gluemac I get the following repeated
>28 times:# Invalid conversion in sprintf: "%)".File '10:MacPerl
>É:site_perl:Mac:AETE:Format:Glue.pm'; Line 122

Argh.  Here is a fix:

                    sprintf("    %s (%s/%s): %s%s\n", $_,
                        $c{$c}{properties}{$_}[0],
                        $c{$c}{properties}{$_}[1],
                        $d{$c}{properties}{$_},
                        ($c{$c}{properties}{$_}[4] ? ' (read-only)' : '')
                    )

Thanks very much,

--
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