# text.tcl --

#

# This file defines the default bindings for Tk text widgets and provides

# procedures that help in implementing the bindings.

#

# RCS: @(#) $Id: text.tcl,v 1.24.2.7 2005/09/10 14:54:17 das Exp $

#

# Copyright (c) 1992-1994 The Regents of the University of California.

# Copyright (c) 1994-1997 Sun Microsystems, Inc.

# Copyright (c) 1998 by Scriptics Corporation.

#

# See the file "license.terms" for information on usage and redistribution

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

#

#-------------------------------------------------------------------------

# Elements of ::tk::Priv that are used in this file:

#

# afterId -		If non-null, it means that auto-scanning is underway

#			and it gives the "after" id for the next auto-scan

#			command to be executed.

# char -		Character position on the line;  kept in order

#			to allow moving up or down past short lines while

#			still remembering the desired position.

# mouseMoved -		Non-zero means the mouse has moved a significant

#			amount since the button went down (so, for example,

#			start dragging out a selection).

# prevPos -		Used when moving up or down lines via the keyboard.

#			Keeps track of the previous insert position, so

#			we can distinguish a series of ups and downs, all

#			in a row, from a new up or down.

# selectMode -		The style of selection currently underway:

#			char, word, or line.

# x, y -		Last known mouse coordinates for scanning

#			and auto-scanning.

#-------------------------------------------------------------------------

#-------------------------------------------------------------------------

# The code below creates the default class bindings for text widgets.

#-------------------------------------------------------------------------

# Standard Motif bindings:

bind Text <1> {

    tk::TextButton1 %W %x %y

    %W tag remove sel 0.0 end

}

bind Text <B1-Motion> {

    set tk::Priv(x) %x

    set tk::Priv(y) %y

    tk::TextSelectTo %W %x %y

}

bind Text <Double-1> {

    set tk::Priv(selectMode) word

    tk::TextSelectTo %W %x %y

    catch {%W mark set insert sel.last}

}

bind Text <Triple-1> {

    set tk::Priv(selectMode) line

    tk::TextSelectTo %W %x %y

    catch {%W mark set insert sel.last}

}

bind Text <Shift-1> {

    tk::TextResetAnchor %W @%x,%y

    set tk::Priv(selectMode) char

    tk::TextSelectTo %W %x %y

}

bind Text <Double-Shift-1>	{

    set tk::Priv(selectMode) word

    tk::TextSelectTo %W %x %y 1

}

bind Text <Triple-Shift-1>	{

    set tk::Priv(selectMode) line

    tk::TextSelectTo %W %x %y

}

bind Text <B1-Leave> {

    set tk::Priv(x) %x

    set tk::Priv(y) %y

    tk::TextAutoScan %W

}

bind Text <B1-Enter> {

    tk::CancelRepeat

}

bind Text <ButtonRelease-1> {

    tk::CancelRepeat

}

bind Text <Control-1> {

    %W mark set insert @%x,%y

}

bind Text <Left> {

    tk::TextSetCursor %W insert-1c

}

bind Text <Right> {

    tk::TextSetCursor %W insert+1c

}

bind Text <Up> {

    tk::TextSetCursor %W [tk::TextUpDownLine %W -1]

}

bind Text <Down> {

    tk::TextSetCursor %W [tk::TextUpDownLine %W 1]

}

bind Text <Shift-Left> {

    tk::TextKeySelect %W [%W index {insert - 1c}]

}

bind Text <Shift-Right> {

    tk::TextKeySelect %W [%W index {insert + 1c}]

}

bind Text <Shift-Up> {

    tk::TextKeySelect %W [tk::TextUpDownLine %W -1]

}

bind Text <Shift-Down> {

    tk::TextKeySelect %W [tk::TextUpDownLine %W 1]

}

bind Text <Control-Left> {

    tk::TextSetCursor %W [tk::TextPrevPos %W insert tcl_startOfPreviousWord]

}

bind Text <Control-Right> {

    tk::TextSetCursor %W [tk::TextNextWord %W insert]

}

bind Text <Control-Up> {

    tk::TextSetCursor %W [tk::TextPrevPara %W insert]

}

bind Text <Control-Down> {

    tk::TextSetCursor %W [tk::TextNextPara %W insert]

}

bind Text <Shift-Control-Left> {

    tk::TextKeySelect %W [tk::TextPrevPos %W insert tcl_startOfPreviousWord]

}

bind Text <Shift-Control-Right> {

    tk::TextKeySelect %W [tk::TextNextWord %W insert]

}

bind Text <Shift-Control-Up> {

    tk::TextKeySelect %W [tk::TextPrevPara %W insert]

}

bind Text <Shift-Control-Down> {

    tk::TextKeySelect %W [tk::TextNextPara %W insert]

}

bind Text <Prior> {

    tk::TextSetCursor %W [tk::TextScrollPages %W -1]

}

bind Text <Shift-Prior> {

    tk::TextKeySelect %W [tk::TextScrollPages %W -1]

}

bind Text <Next> {

    tk::TextSetCursor %W [tk::TextScrollPages %W 1]

}

bind Text <Shift-Next> {

    tk::TextKeySelect %W [tk::TextScrollPages %W 1]

}

bind Text <Control-Prior> {

    %W xview scroll -1 page

}

bind Text <Control-Next> {

    %W xview scroll 1 page

}

bind Text <Home> {

    tk::TextSetCursor %W {insert linestart}

}

bind Text <Shift-Home> {

    tk::TextKeySelect %W {insert linestart}

}

bind Text <End> {

    tk::TextSetCursor %W {insert lineend}

}

bind Text <Shift-End> {

    tk::TextKeySelect %W {insert lineend}

}

bind Text <Control-Home> {

    tk::TextSetCursor %W 1.0

}

bind Text <Control-Shift-Home> {

    tk::TextKeySelect %W 1.0

}

bind Text <Control-End> {

    tk::TextSetCursor %W {end - 1 char}

}

bind Text <Control-Shift-End> {

    tk::TextKeySelect %W {end - 1 char}

}

bind Text <Tab> {

    if { [string equal [%W cget -state] "normal"] } {

	tk::TextInsert %W \t

	focus %W

	break

    }

}

bind Text <Shift-Tab> {

    # Needed only to keep <Tab> binding from triggering;  doesn't

    # have to actually do anything.

    break

}

bind Text <Control-Tab> {

    focus [tk_focusNext %W]

}

bind Text <Control-Shift-Tab> {

    focus [tk_focusPrev %W]

}

bind Text <Control-i> {

    tk::TextInsert %W \t

}

bind Text <Return> {

    tk::TextInsert %W \n

    if {[%W cget -autoseparators]} {%W edit separator}

}

bind Text <Delete> {

    if {[%W tag nextrange sel 1.0 end] ne ""} {

	%W delete sel.first sel.last

    } else {

	%W delete insert

	%W see insert

    }

}

bind Text <BackSpace> {

    if {[%W tag nextrange sel 1.0 end] ne ""} {

	%W delete sel.first sel.last

    } elseif {[%W compare insert != 1.0]} {

	%W delete insert-1c

	%W see insert

    }

}

bind Text <Control-space> {

    %W mark set anchor insert

}

bind Text <Select> {

    %W mark set anchor insert

}

bind Text <Control-Shift-space> {

    set tk::Priv(selectMode) char

    tk::TextKeyExtend %W insert

}

bind Text <Shift-Select> {

    set tk::Priv(selectMode) char

    tk::TextKeyExtend %W insert

}

bind Text <Control-slash> {

    %W tag add sel 1.0 end

}

bind Text <Control-backslash> {

    %W tag remove sel 1.0 end

}

bind Text <<Cut>> {

    tk_textCut %W

}

bind Text <<Copy>> {

    tk_textCopy %W

}

bind Text <<Paste>> {

    tk_textPaste %W

}

bind Text <<Clear>> {

    catch {%W delete sel.first sel.last}

}

bind Text <<PasteSelection>> {

    if {$tk_strictMotif || ![info exists tk::Priv(mouseMoved)]

	|| !$tk::Priv(mouseMoved)} {

	tk::TextPasteSelection %W %x %y

    }

}

bind Text <Insert> {

    catch {tk::TextInsert %W [::tk::GetSelection %W PRIMARY]}

}

bind Text <KeyPress> {

    tk::TextInsert %W %A

}

# Ignore all Alt, Meta, and Control keypresses unless explicitly bound.

# Otherwise, if a widget binding for one of these is defined, the

# <KeyPress> class binding will also fire and insert the character,

# which is wrong.  Ditto for <Escape>.

bind Text <Alt-KeyPress> {# nothing }

bind Text <Meta-KeyPress> {# nothing}

bind Text <Control-KeyPress> {# nothing}

bind Text <Escape> {# nothing}

bind Text <KP_Enter> {# nothing}

if {[string equal [tk windowingsystem] "classic"]

	|| [string equal [tk windowingsystem] "aqua"]} {

    bind Text <Command-KeyPress> {# nothing}

}

# Additional emacs-like bindings:

bind Text <Control-a> {

    if {!$tk_strictMotif} {

	tk::TextSetCursor %W {insert linestart}

    }

}

bind Text <Control-b> {

    if {!$tk_strictMotif} {

	tk::TextSetCursor %W insert-1c

    }

}

bind Text <Control-d> {

    if {!$tk_strictMotif} {

	%W delete insert

    }

}

bind Text <Control-e> {

    if {!$tk_strictMotif} {

	tk::TextSetCursor %W {insert lineend}

    }

}

bind Text <Control-f> {

    if {!$tk_strictMotif} {

	tk::TextSetCursor %W insert+1c

    }

}

bind Text <Control-k> {

    if {!$tk_strictMotif} {

	if {[%W compare insert == {insert lineend}]} {

	    %W delete insert

	} else {

	    %W delete insert {insert lineend}

	}

    }

}

bind Text <Control-n> {

    if {!$tk_strictMotif} {

	tk::TextSetCursor %W [tk::TextUpDownLine %W 1]

    }

}

bind Text <Control-o> {

    if {!$tk_strictMotif} {

	%W insert insert \n

	%W mark set insert insert-1c

    }

}

bind Text <Control-p> {

    if {!$tk_strictMotif} {

	tk::TextSetCursor %W [tk::TextUpDownLine %W -1]

    }

}

bind Text <Control-t> {

    if {!$tk_strictMotif} {

	tk::TextTranspose %W

    }

}

bind Text <<Undo>> {

    catch { %W edit undo }

}

bind Text <<Redo>> {

    catch { %W edit redo }

}

if {$tcl_platform(platform) ne "windows"} {

bind Text <Control-v> {

    if {!$tk_strictMotif} {

	tk::TextScrollPages %W 1

    }

}

}

bind Text <Meta-b> {

    if {!$tk_strictMotif} {

	tk::TextSetCursor %W [tk::TextPrevPos %W insert tcl_startOfPreviousWord]

    }

}

bind Text <Meta-d> {

    if {!$tk_strictMotif} {

	%W delete insert [tk::TextNextWord %W insert]

    }

}

bind Text <Meta-f> {

    if {!$tk_strictMotif} {

	tk::TextSetCursor %W [tk::TextNextWord %W insert]

    }

}

bind Text <Meta-less> {

    if {!$tk_strictMotif} {

	tk::TextSetCursor %W 1.0

    }

}

bind Text <Meta-greater> {

    if {!$tk_strictMotif} {

	tk::TextSetCursor %W end-1c

    }

}

bind Text <Meta-BackSpace> {

    if {!$tk_strictMotif} {

	%W delete [tk::TextPrevPos %W insert tcl_startOfPreviousWord] insert

    }

}

bind Text <Meta-Delete> {

    if {!$tk_strictMotif} {

	%W delete [tk::TextPrevPos %W insert tcl_startOfPreviousWord] insert

    }

}

# Macintosh only bindings:

# if text black & highlight black -> text white, other text the same

if {[string equal [tk windowingsystem] "classic"]

	|| [string equal [tk windowingsystem] "aqua"]} {

bind Text <FocusIn> {

    %W tag configure sel -borderwidth 0

    %W configure -selectbackground systemHighlight -selectforeground systemHighlightText

}

bind Text <FocusOut> {

    %W tag configure sel -borderwidth 1

    %W configure -selectbackground white -selectforeground black

}

bind Text <Option-Left> {

    tk::TextSetCursor %W [tk::TextPrevPos %W insert tcl_startOfPreviousWord]

}

bind Text <Option-Right> {

    tk::TextSetCursor %W [tk::TextNextWord %W insert]

}

bind Text <Option-Up> {

    tk::TextSetCursor %W [tk::TextPrevPara %W insert]

}

bind Text <Option-Down> {

    tk::TextSetCursor %W [tk::TextNextPara %W insert]

}

bind Text <Shift-Option-Left> {

    tk::TextKeySelect %W [tk::TextPrevPos %W insert tcl_startOfPreviousWord]

}

bind Text <Shift-Option-Right> {

    tk::TextKeySelect %W [tk::TextNextWord %W insert]

}

bind Text <Shift-Option-Up> {

    tk::TextKeySelect %W [tk::TextPrevPara %W insert]

}

bind Text <Shift-Option-Down> {

    tk::TextKeySelect %W [tk::TextNextPara %W insert]

}

# End of Mac only bindings

}

# A few additional bindings of my own.

bind Text <Control-h> {

    if {!$tk_strictMotif} {

	if {[%W compare insert != 1.0]} {

	    %W delete insert-1c

	    %W see insert

	}

    }

}

bind Text <2> {

    if {!$tk_strictMotif} {

	tk::TextScanMark %W %x %y

    }

}

bind Text <B2-Motion> {

    if {!$tk_strictMotif} {

	tk::TextScanDrag %W %x %y

    }

}

set ::tk::Priv(prevPos) {}

# The MouseWheel will typically only fire on Windows and MacOS X.

# However, someone could use the "event generate" command to produce

# one on other platforms.

if {[string equal [tk windowingsystem] "classic"]

	|| [string equal [tk windowingsystem] "aqua"]} {

    bind Text <MouseWheel> {

        %W yview scroll [expr {- (%D)}] units

    }

    bind Text <Option-MouseWheel> {

        %W yview scroll [expr {-10 * (%D)}] units

    }

    bind Text <Shift-MouseWheel> {

        %W xview scroll [expr {- (%D)}] units

    }

    bind Text <Shift-Option-MouseWheel> {

        %W xview scroll [expr {-10 * (%D)}] units

    }

} else {

    bind Text <MouseWheel> {

        %W yview scroll [expr {- (%D / 120) * 4}] units

    }

}

if {[string equal "x11" [tk windowingsystem]]} {

    # Support for mousewheels on Linux/Unix commonly comes through mapping

    # the wheel to the extended buttons.  If you have a mousewheel, find

    # Linux configuration info at:

    #	http://www.inria.fr/koala/colas/mouse-wheel-scroll/

    bind Text <4> {

	if {!$tk_strictMotif} {

	    %W yview scroll -5 units

	}

    }

    bind Text <5> {

	if {!$tk_strictMotif} {

	    %W yview scroll 5 units

	}

    }

}

# ::tk::TextClosestGap --

# Given x and y coordinates, this procedure finds the closest boundary

# between characters to the given coordinates and returns the index

# of the character just after the boundary.

#

# Arguments:

# w -		The text window.

# x -		X-coordinate within the window.

# y -		Y-coordinate within the window.

proc ::tk::TextClosestGap {w x y} {

    set pos [$w index @$x,$y]

    set bbox [$w bbox $pos]

    if {[string equal $bbox ""]} {

	return $pos

    }

    if {($x - [lindex $bbox 0]) < ([lindex $bbox 2]/2)} {

	return $pos

    }

    $w index "$pos + 1 char"

}

# ::tk::TextButton1 --

# This procedure is invoked to handle button-1 presses in text

# widgets.  It moves the insertion cursor, sets the selection anchor,

# and claims the input focus.

#

# Arguments:

# w -		The text window in which the button was pressed.

# x -		The x-coordinate of the button press.

# y -		The x-coordinate of the button press.