If you select a shape and use the inspector to uncheck "wrap to shape", you should find that you can restore wrapping by setting the
autosizing property of the shape to
overflow.
Code:
tell application id "OGfl"
set lstSeln to (selection of front window) as list
tell item 1 of lstSeln to set autosizing to overflow
end tell