#
# demonstrate devdrawkbd and acmechords bindings
#

package require Tk

source devdrawkbd.tcl
source acmechords.tcl

set textbg "#ffffea"
set textselbg "#eeee9e"

text .t \
	-background $textbg\
	-selectbackground $textselbg\
	-padx 6\
	-font TkTextFont
pack .t


devdrawkbd::Bind Text
acmechords::Bind Text
acmechords::Setaction .t action

proc action {txt} {
	puts "execute: $txt"
}