View Single Post
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..