#---------------
# gncolBalanceQuotes.tcl
#---------------
# William J Giddings
# 04/11/07
#---------------
# Enable context sensitive quotations.
# If the input quote mark is preceded by a printable character,
# then closequote otherwise openquote!
#
#---------------
# Notes:
# This is not "smart" and so does attempt to ballance quote marks.
# The swap is made on the KeyRelease event so the swap will only
# effect the final quote if a key repeat event occurs.
#---------------

#!/bin/sh \
exec tclsh  "$0" "$@"

package require Gnocl     ;# Tcl-Gtk+ bindings

#---------------
# w    text widget into which the substition is to be made
# c    character currently inserted
#
# Codes:
#	 single openquote   `   \u2018
#		closequote  '   \u2019
#	 double openquote   "   \u201C
#		closequote  "   \u201D
#
#	 '      quoteright
#	 #      quotedbl
#---------------

proc balanceQuotes {w c} {
    #get the preceding character
    set idx [ $w getCursor ]
    set str [ $w get cursor-1 ]
    if {$str == "" || [string is space $str] || $str == "\u2018" || $str == "\u201C" } {
	set str " "
    }

    # if the last code entered was '
    if {$c == "quoteright" } {
	$w erase cursor
	if {$str == " "} {
	    # openquote
	    $w insert cursor "\u2018"
	} else  {
	    # closequote
	    $w insert cursor "\u2019"
	}
    }

    # or, if was "
    if {$c == "quotedbl" } {
	$w erase cursor
	if {$str == " "} {
	    # openquote
	    $w insert cursor "\u201C"
	} else  {
	    # closequote
	    $w insert cursor "\u201D"
	}
    }
}

#---------------
# Demo
#---------------
set txt [gnocl::text -baseFont {Sans 25} \
	-onKeyRelease {balanceQuotes %w %K}]
gnocl::window -title BalanceQuotes \
	-child $txt \
	-onDestroy exit \
	-width 250