# textbindings.tcl - custom entry widget bindings for jstools applications
#    (and any other Tk-based applications that choose to honour this file)

######################################################################
# JAYISMS - useful on a NeXT

bind Text <Control-slash>		{j:tkb:self_insert %W %K "\\"}
bind Text <Control-quoteright>		{j:tkb:self_insert %W %K "`"}
bind Text <Control-semicolon>		{j:tkb:self_insert %W %K "|"}

######################################################################
# make F12 work like Compose:
bind Text <Key-F12>		{# nothing}
bind Text <Key-F12><Any-Key>	{j:tc:start_sequence %W %K %A}
bind Text <Key-F12><Any-Key><Any-Key> \
				{j:tc:finish_sequence %W %K %A}
bind Text <Key-F12><Any-KeyRelease><Any-Key> \
  				{j:tc:start_sequence %W %K %A}
bind Text <Key-F12><Any-Key><Any-Key> \
				{j:tc:finish_sequence %W %K %A}
bind Text <Key-F12><Any-Key><Any-KeyRelease><Any-Key> \
				{j:tc:finish_sequence %W %K %A}
bind Text <Key-F12><Any-KeyRelease><Any-Key><Any-KeyRelease><Any-Key> \
				{j:tc:finish_sequence %W %K %A}


