adjust the inter-row spacing?

[Jim Correia]

On Thursday, May 16, 2002, at 09:49 PM, Adrian Smith wrote:

> At 3:54 PM -0400 16/5/02, Jim Correia wrote:
>> Is there a way to adjust the inter-row spacing?
>>
>
> Thanks for the script.

It was only a quick and dirty script (it didn't handle items that 
weren't at the top level). Here is one that does, and can be used 
as a basis for recursively descending the outline.

on process_item(theItem)
	tell application "OmniOutliner"
		tell theItem
			repeat with i from 1 to count child
				my process_item(child i)
				set s to text of cell 2 of child i
				if (length of s > 0) and (character -1 of s is not return) then
					set s to s & return
					set text of cell 2 of child i to s
				end if
			end repeat
		end tell
	end tell
end process_item

tell application "OmniOutliner"
	tell document 1
		my process_item(root)
	end tell
end tell

Jim