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

["Muggli, Ricardo T. (CCC)" <rtmuggli@carlsoncraft.com>]

much chopped from reply...

Sorry if this is covered int the new Mac::Glue 0.31. I didn't get a chance
to grab it yet.
	>>From Ricardo Muggli:
	>From Chris Nandor:
	>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.


I added the following to the gluescriptadds and made adjustments for
gluedialect I think the < should be > or how I have it below:
use Mac::Gestalt;

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


This worked for all of the following systems. I also listed the
gestaltSystemVersion and path to the scripting additions.

sys.ver.	stalt	scripting additions
7.5.3R2	1875	System:Extensions:Scripting Additions:
7.5.5		1877	System:Extensions:Scripting Additions:
7.6.1		1889	System:Extensions:Scripting Additions:
8.1		2064	System:Scripting Additions:
8.5.1		2129	System:Scripting Additions:
8.6		2144	System:Scripting Additions:

the dialects folder is always withing the Scripting Additions folder


	>>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)'
: '')
	>                    )

This seemed to work.

Thanks a lot,

Ricardo Muggli

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