Quark Script - Works on PowerMac but not Intel

Scripting Forums AppleScript | Mac OS X
,
#1

Here is a script for moving text boxes inside a Quark 6.5 document. It works on PowerMac but
gives an error about not being able to find “object reference” on the Intel macs.

Any suggestions?

Thanks!

property articleBoxBack1 : {“55 pt”, “54 pt”, “204.883 pt”, “291.356 pt”}
property articleBoxBack2 : {“226.748 pt”, “54 pt”, “376.631 pt”, “291.356 pt”}
property articleBoxBack3 : {“407.241 pt”, “54 pt”, “557.125 pt”, “291.356 pt”}
property articleBoxBack4 : {“55 pt”, “317.187 pt”, “204.883 pt”, “554.543 pt”}
property articleBoxBack5 : {“225.952 pt”, “317.187 pt”, “375.836 pt”, “554.543 pt”}

property articleBoxFront1 : {“308.646 pt”, “50.863 pt”, “441 pt”, “380.454 pt”}
property articleBoxFront2 : {“457.335 pt”, “50.863 pt”, “589.689 pt”, “380.454 pt”}
property articleBoxFront3 : {“607.614 pt”, “50.863 pt”, “739.968 pt”, “380.454 pt”}

tell application “QuarkXpress”
tell document 1
if selection is null then
display dialog “Must choose an article to move.”
return
end if
end tell
end tell

set itemChoice to choose from list {“Left Top”, “Left Middle”, “Left Bottom”, “Right Top”, “Right Middle”, “Front Top”, “Front Middle”, “Front Bottom”} with prompt “Pick Location to Move Article”
–display dialog itemChoice

if itemChoice as string is “Left Top” then
my moveArticle(articleBoxBack1)
else if itemChoice as string is “Left Middle” then
my moveArticle(articleBoxBack2)
else if itemChoice as string is “Left Bottom” then
my moveArticle(articleBoxBack3)
else if itemChoice as string is “Right Top” then
my moveArticle(articleBoxBack4)
else if itemChoice as string is “Right Middle” then
my moveArticle(articleBoxBack5)
else if itemChoice as string is “Front Top” then
my moveArticle1(articleBoxFront1)
else if itemChoice as string is “Front Middle” then
my moveArticle1(articleBoxFront2)
else if itemChoice as string is “Front Bottom” then
my moveArticle1(articleBoxFront3)
end if

–Move article from front to back
on moveArticle(location)
tell application “QuarkXpress”
activate
tell document 1
get properties of current box
set theName to name of current box
set aBox to object reference of generic box theName of page 2
move aBox to beginning of page 1
tell page 1
set bounds of current box to location
end tell
end tell
end tell
end moveArticle

–Move article from back to front
on moveArticle1(location)
tell application “QuarkXpress”
activate
tell document 1
get properties of current box
set theName to name of current box
set aBox to object reference of generic box theName of page 1
move aBox to beginning of page 2
tell page 2
set bounds of current box to location
end tell
end tell
end tell
end moveArticle1

Model: Quad G5
AppleScript: 2.1.1
Browser: Safari 419.3
Operating System: Mac OS X (10.4)

#2

Hi,

if you’re going to run the script as an application,
save it as a bundle, which makes the script UB, otherwise you get either a PPC or a Intel script

#3

Tried that and it still has the error. The error is on:

get properties of current box

Is there another way to code this for Intel?

Craig

#4

with a box selected i ran this snippet on my macbook pro without a problem


tell application "QuarkXPress"
	activate
	tell document 1
		get properties of current box
	end tell
end tell

mm

#5

Ok,

The issue was the line:
set aBox to object reference of generic box theName of page 2

This line fixed it:
set aBox to object reference of current box of page 2

Don’t know why it would not use the name of the box.
And yes, the boxes are named.

Craig