tell application id "OGfl"
	tell front window
		repeat with oShape in (selection as list)
			-- do sth to oShape
		end repeat
	end tell
end tell