# entrybindings.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 Entry <Control-slash>		{j:ekb:self_insert %W %K "\\"}
bind Entry <Control-quoteright>		{j:ekb:self_insert %W %K "`"}
bind Entry <Control-semicolon>		{j:ekb:self_insert %W %K "|"}

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



