balance-quotes in scheme:text<%>
This function is called when the user types a quote in the
text%. If the 'framework:paren-match preference is
#t (see
preferences:get) the matching open quote is flashed.
( -> void
send a-scheme:text balance-quotes key-event)
key-event : (instance key-event%)