(send a-text find-snip pos direction s-pos) -> snip% object or #f
pos : exact non-negative integer
direction : symbol in '(before-or-none before after after-or-none)
s-pos = #f : boxed exact non-negative integer or #f
If the position pos is between
two snips, direction specifies which snip to return; direction
can be any of the following:
- 'before-or-none -- returns the snip before the
position, or #f if pos is 0
- 'before -- returns the snip before the position,
or the first snip if pos is 0
- 'after -- returns the snip after the position, or
the last snip if pos is the last position
- 'after-or-none - returns the snip after the
position, or #f if pos is the last position are larger
The s-pos box is filled with the position where the returned snip starts, unless s-pos is #f.