(DTPtechNote:493) オーバーフローチェック

[のもと <anonymous at unknown-host>]

InDesign用のオーバーフローチェッカーを作れとの某上司命令で作りました。
しょうちゃんが前に作っていたやつをパクってみた。
階層をチェックするのにとんび方式を採用してます。
entire contents に該当するモノがないのでこれはかなり効率がいい。
とんび方式エライ。
で、InDesignてわりと無茶な参照にもちゃんと反応するんだなぁとちょと感心。
見えてないボックスのオーバーフローがちゃんととれるのは嬉しい。
ていうかそこはQuarkがバカすぎたんだけど。

tell application "InDesign 2.0.2J"
	tell document 1
		if not (color "overflow" exists) then ツ
			make color at end with properties ツ
				{name:"overflow", color model:process ツ
					, color space:rgb, color value:{100, 255, 100}}
		set col to object reference of color "overflow"
		set obj to a reference to it
	end tell
	set cBX to 0
	repeat
		try
			set fill color of (text frames of obj whose overflows = true) to col
			set cBX to cBX + (count (text frames of obj whose overflows = true))
		end try
		if not (exists groups of obj) then exit repeat
		set obj to a reference to groups of obj
	end repeat
	beep
	if cBX ュ 0 then display dialog (cBX as text) & ツ
		"個のオーバーフローが検出されました。" buttons {"OK"} ツ
		default button 1 with icon caution
end tell