• Open Menu Close Menu
  • Apple
  • Shopping Bag
  • Apple
  • Mac
  • iPad
  • iPhone
  • Watch
  • TV
  • Music
  • Support
  • Search apple.com
  • Shopping Bag

Lists

Open Menu Close Menu
  • Terms and Conditions
  • Lists hosted on this site
  • Email the Postmaster
  • Tips for posting to public mailing lists
Quark Annotate script problem with Leopard
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Quark Annotate script problem with Leopard


  • Subject: Quark Annotate script problem with Leopard
  • From: "Ripka, Herb" <email@hidden>
  • Date: Thu, 5 Feb 2009 16:34:48 -0600
  • Acceptlanguage: en-US
  • Thread-topic: Quark Annotate script problem with Leopard

What am I missing that this script doesn't work in Leopard?

This script creates a text box with the name of the picture used in the underlying picture box on a Quark document.

It errors out with the following line, saying that the variable yellow is not defined. How do you define a color (of a text box) in Quark?

make text box at beginning with properties {bounds:{y1, x1, y2, x2}, color:yellow, name:"annotate" & i, runaround:none runaround}

--Herbert Ripka
Greendale, WI

tell application "QuarkXPress Passport"
	activate
	if (document 1 exists) then
		tell document 1
			try
				delete (every text box whose name contains "annotate")
			end try
			set {hm, vm} to {horizontal measure, vertical measure}
			if hm is not points or vm is not points then
				set properties to {horizontal measure:points, vertical measure:points}
			end if
			set selection to null
			set view scale to fit page in window
			set AppleScript's text item delimiters to ":"
			repeat with p from 1 to count of pages
				show page p
				tell page p
					repeat with i from 1 to count of picture boxes
						set filePath to (file path of image 1 of picture box i) as Unicode text
						if filePath is not "null" and filePath is not "no disk file" then
							set fileName to text item -1 of filePath
							tell picture box i
								set {sc1, sc2} to scale of image 1 as list
								set {y1, x1} to origin of bounds as list
							end tell
							set y2 to ((y1 as real) + 14)
							set x2 to ((x1 as real) + 185)
							make text box at beginning with properties {bounds:{y1, x1, y2, x2}, color:yellow, name:"annotate" & i, runaround:none runaround}
							tell story 1 of text box ("annotate" & i)
								set properties to {font:"Monaco", size:11}
								set contents to ("" & fileName & "  " & (sc1 as string))
							end tell
						end if
					end repeat
				end tell
			end repeat
			set AppleScript's text item delimiters to {""}
			if hm is not points or vm is not points then
				set properties to {horizontal measure:hm, vertical measure:vm}
			end if
		end tell
		display dialog "Done." buttons "OK" default button 1 with icon 1 giving up after 1
	else
		display dialog "Open a document, please." buttons "OK" default button 1 with icon 2
	end if
end tell
 _______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list      (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users

This email sent to email@hidden

  • Follow-Ups:
    • Re: Quark Annotate script problem with Leopard
      • From: Shane Stanley <email@hidden>
  • Prev by Date: Re: Simple AS question (BBEdit)
  • Next by Date: Re: Another BBEdit/AS question
  • Previous by thread: Re: Another BBEdit/AS question
  • Next by thread: Re: Quark Annotate script problem with Leopard
  • Index(es):
    • Date
    • Thread