Guest
2012-01-07, 10:48 AM
A workaround seems to be to force a screen update with a tiny scripted change to zoom level.
(Though the original zoom level continues to show the wrong state of play until a save, close and reload).
Code:
tell application id "OGfl"
activate
tell front window
tell its canvas
set refRuns to a reference to attribute runs of text of shapes
set lstAlign to alignment of refRuns
set eAlign to first item of first item of lstAlign
if eAlign = left then
set alignment of refRuns to center
else if eAlign = center then
set alignment of refRuns to right
else
set alignment of refRuns to left
end if
end tell
-- FORCE A REPAINT
set zoom to zoom * 0.999
end tell
activate
end tell
Last edited by RobTrew; 2012-01-07 at 10:51 AM..