The Omni Group Forums - View Single Post - Scripting text alignment

RobTrew

The alignment of text in OG shapes can be changed by script (code below), but the screen display is not updated until the file is closed and reloaded, or, less reliably, the zoom level is changed.

Oddly, different levels of zoom show different stages of update. At 85% on my system, I am seeing a curious Peter Pan effect, in which the text has moved, but has left its shadow behind ...

In case the effect looks useful, you should be able to reproduce it by:

Setting a starting zoom level (say 85%),
running the alignment-toggling script once,
manually changing the zoom level to 100%,
then manually changing it back to 85% ...

Code:

tell application id "OGfl"
	tell front canvas of front document
		set refRuns to a reference to attribute runs of text of shapes
		set lstAlign to alignment of refRuns
		if first item of lstAlign = {left} then
			set alignment of refRuns to right
		else
			set alignment of refRuns to left
		end if
		alignment of refRuns
	end tell
end tell