# Be sure to un-highlight the Sound object so that only the
# TextGrid object is highlighted before you try to run this
# or else it will hiccup at you.

# Query yourself to get the accent label for the tones tier
# and use the comment to prompt the labeler to position the 
form Insert accent (and associated tone target)
comment Position cursor at starred tone target before OK
  choice accent 2
    button L+H*
    button H*
    button L*
    button L*+H
    button !H*
    button H+!H*
    button L+!H*
    button L*+!H
    button !H+!H*
endform

cursor = Get cursor

endeditor
Insert point... 1 'cursor' 'accent$'