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:
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
Last edited by RobTrew; 2012-01-07 at 11:13 AM.. Reason: Added steps for reproducing the effect. Sadly it doesn't print - but there is always screen dump ...
Threaded Mode