I'm not sure that this kind of thing really works all that well - the screen updating seems a bit intermittent. Dbl-click, wait a bit, may work or may not, then suddenly moves twice ... not ideal for real presentations ...
Code:
tell application id "OGfl"
-- Get the unique Id of the shape which contains the action script
set lngId to id of self
-- apply a movement to all the other shapes on the canvas
tell canvas of self
repeat with oShape in (shapes where id is not lngId)
set lstOrigin to origin of oShape
set item 1 of lstOrigin to (item 1 of lstOrigin) + 100
set origin of oShape to lstOrigin
end repeat
end tell
end tell