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

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