# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-

#

#	$Id: Grid.tcl,v 1.6 2004/03/28 02:44:57 hobbs Exp $

#

# Grid.tcl --

#

# 	This file defines the default bindings for Tix Grid widgets.

#

# Copyright (c) 1993-1999 Ioi Kim Lam.

# Copyright (c) 2000-2001 Tix Project Group.

# Copyright (c) 2004 ActiveState

#

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

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

#

global tkPriv

if {![llength [info globals tkPriv]]} {

    tk::unsupported::ExposePrivateVariable tkPriv

}

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

# tkPriv elements used in this file:

#

# afterId -		Token returned by "after" for autoscanning.

# fakeRelease -		Cancel the ButtonRelease-1 after the user double click

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

#

foreach fun {tkCancelRepeat} {

    if {![llength [info commands $fun]]} {

	tk::unsupported::ExposePrivateCommand $fun

    }

}

unset fun

proc tixGridBind {} {

    tixBind TixGrid <ButtonPress-1> {

	tixGrid:Button-1 %W %x %y

    }

    tixBind TixGrid <Shift-ButtonPress-1> {

	tixGrid:Shift-Button-1 %W %x %y

    }

    tixBind TixGrid <Control-ButtonPress-1> {

	tixGrid:Control-Button-1 %W %x %y

    }

    tixBind TixGrid <ButtonRelease-1> {

	tixGrid:ButtonRelease-1 %W %x %y

    }

    tixBind TixGrid <Double-ButtonPress-1> {

	tixGrid:Double-1 %W  %x %y

    }

    tixBind TixGrid <B1-Motion> {

	set tkPriv(x) %x 

	set tkPriv(y) %y

	set tkPriv(X) %X

	set tkPriv(Y) %Y

	tixGrid:B1-Motion %W %x %y

    }

    tixBind TixGrid <Control-B1-Motion> {

	set tkPriv(x) %x 

	set tkPriv(y) %y

	set tkPriv(X) %X

	set tkPriv(Y) %Y

	tixGrid:Control-B1-Motion %W %x %y

    }

    tixBind TixGrid <B1-Leave> {

	set tkPriv(x) %x 

	set tkPriv(y) %y

	set tkPriv(X) %X

	set tkPriv(Y) %Y

	tixGrid:B1-Leave %W

    }

    tixBind TixGrid <B1-Enter> {

	tixGrid:B1-Enter %W %x %y

    }

    tixBind TixGrid <Control-B1-Leave> {

	set tkPriv(x) %x 

	set tkPriv(y) %y

	set tkPriv(X) %X

	set tkPriv(Y) %Y

	tixGrid:Control-B1-Leave %W

    }

    tixBind TixGrid <Control-B1-Enter> {

	tixGrid:Control-B1-Enter %W %x %y

    }

    # Keyboard bindings

    #

    tixBind TixGrid <Up> {

	tixGrid:DirKey %W up

    }

    tixBind TixGrid <Down> {

	tixGrid:DirKey %W down

    }

    tixBind TixGrid <Left> {

	tixGrid:DirKey %W left

    }

    tixBind TixGrid <Right> {

	tixGrid:DirKey %W right

    }

    tixBind TixGrid <Prior> {

	%W yview scroll -1 pages

    }

    tixBind TixGrid <Next> {

	%W yview scroll 1 pages

    }

    tixBind TixGrid <Return> {

	tixGrid:Return %W 

    }

    tixBind TixGrid <space> {

	tixGrid:Space %W 

    }

    #

    # Don't use tixBind because %A causes Tk 8.3.2 to crash

    #

    bind TixGrid <MouseWheel> {

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

    }

}

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

#

#

#			 Mouse bindings

#

#

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

proc tixGrid:Button-1 {w x y} {

    if {[$w cget -state] eq "disabled"} {

	return

    }

    tixGrid:SetFocus $w

    if {[tixGrid:GetState $w] == 0} {

	tixGrid:GoState 1 $w $x $y

    }

}

proc tixGrid:Shift-Button-1 {w x y} {

    if {[$w cget -state] eq "disabled"} {

	return

    }

    tixGrid:SetFocus $w

}

proc tixGrid:Control-Button-1 {w x y} {

    if {[$w cget -state] eq "disabled"} {

	return

    }

    tixGrid:SetFocus $w

    case [tixGrid:GetState $w] {

	{s0} {

	    tixGrid:GoState s1 $w $x $y

       	}

	{b0} {

	    tixGrid:GoState b1 $w $x $y

       	}

	{m0} {

	    tixGrid:GoState m1 $w $x $y

       	}

	{e0} {

	    tixGrid:GoState e10 $w $x $y

       	}

    }

}

proc tixGrid:ButtonRelease-1 {w x y} {

    case [tixGrid:GetState $w] {

	{2} {

	    tixGrid:GoState 5 $w $x $y

	}

	{4} {

	    tixGrid:GoState 3 $w $x $y

	}

    }

}

proc tixGrid:B1-Motion {w x y} {

    case [tixGrid:GetState $w] {

	{2 4} {

	    tixGrid:GoState 4 $w $x $y

	}

    }

}

proc tixGrid:Control-B1-Motion {w x y} {

    case [tixGrid:GetState $w] {

	{s2 s4} {

	    tixGrid:GoState s4 $w $x $y 

	}

	{b2 b4} {

	    tixGrid:GoState b4 $w $x $y 

	}

	{m2 m5} {

	    tixGrid:GoState m4 $w $x $y 

	}

    }

}

proc tixGrid:Double-1 {w x y} {

    case [tixGrid:GetState $w] {

	{s0} {

	    tixGrid:GoState s7 $w $x $y

	}

	{b0} {

	    tixGrid:GoState b7 $w $x $y

	}

    }

}

proc tixGrid:B1-Leave {w} {

    case [tixGrid:GetState $w] {

	{s2 s4} {

	    tixGrid:GoState s5 $w

	}

	{b2 b4} {

	    tixGrid:GoState b5 $w

	}

	{m2 m5} {

	    tixGrid:GoState m8 $w

	}

	{e2 e5} {

	    tixGrid:GoState e8 $w

	}

    }

}

proc tixGrid:B1-Enter {w x y} {

    case [tixGrid:GetState $w] {

	{s5 s6} {

	    tixGrid:GoState s4 $w $x $y

	}

	{b5 b6} {

	    tixGrid:GoState b4 $w $x $y

	}

	{m8 m9} {

	    tixGrid:GoState m4 $w $x $y

	}

	{e8 e9} {

	    tixGrid:GoState e4 $w $x $y

	}

    }

}

proc tixGrid:Control-B1-Leave {w} {

    case [tixGrid:GetState $w] {

	{s2 s4} {

	    tixGrid:GoState s5 $w

	}

	{b2 b4} {

	    tixGrid:GoState b5 $w

	}

	{m2 m5} {

	    tixGrid:GoState m8 $w

	}

    }

}

proc tixGrid:Control-B1-Enter {w x y} {

    case [tixGrid:GetState $w] {

	{s5 s6} {

	    tixGrid:GoState s4 $w $x $y

	}

	{b5 b6} {

	    tixGrid:GoState b4 $w $x $y

	}

	{m8 m9} {

	    tixGrid:GoState m4 $w $x $y

	}

    }

}

proc tixGrid:AutoScan {w} {

    case [tixGrid:GetState $w] {

	{s5 s6} {

	    tixGrid:GoState s6 $w

	}

	{b5 b6} {

	    tixGrid:GoState b6 $w

	}

	{m8 m9} {

	    tixGrid:GoState m9 $w

	}

	{e8 e9} {

	    tixGrid:GoState e9 $w

	}

    }

}

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

#

#

#			 Key bindings

#

#

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

proc tixGrid:DirKey {w key} {

    if {[$w cget -state] eq "disabled"} {

	return

    }

    case [tixGrid:GetState $w] {

	{s0} {

	    tixGrid:GoState s8 $w $key

       	}

	{b0} {

	    tixGrid:GoState b8 $w $key

       	}

    }

}

proc tixGrid:Return {w} {

    if {[$w cget -state] eq "disabled"} {

	return

    }

    case [tixGrid:GetState $w] {

	{s0} {

	    tixGrid:GoState s9 $w

       	}

	{b0} {

	    tixGrid:GoState b9 $w

       	}

    }

}

proc tixGrid:Space {w} {

    if {[$w cget -state] eq "disabled"} {

	return

    }

    case [tixGrid:GetState $w] {

	{s0} {

	    tixGrid:GoState s10 $w

       	}

 	{b0} {

	    tixGrid:GoState b10 $w

       	}

   }

}

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

#

#			STATE MANIPULATION

#

#

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

proc tixGrid:GetState {w} {

    global $w:priv:state

    if {![info exists $w:priv:state]} {

	set $w:priv:state 0

    }

    return [set $w:priv:state]

}

proc tixGrid:SetState {w n} {

    global $w:priv:state

    set $w:priv:state $n

}

proc tixGrid:GoState {n w args} {

#   puts "going from [tixGrid:GetState $w] --> $n"

    tixGrid:SetState $w $n

    eval tixGrid:GoState-$n $w $args

}

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

#		   SELECTION ROUTINES

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

proc tixGrid:SelectSingle {w ent} {

    $w selection set [lindex $ent 0] [lindex $ent 1]

    tixGrid:CallBrowseCmd $w $ent

}

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

#	SINGLE SELECTION

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

proc tixGrid:GoState-0 {w} {

    set list $w:_list

    global $list

    if {[info exists $list]} {

	foreach cmd [set $list] {

	    uplevel #0 $cmd

	}

	if {[info exists $list]} {

	    unset $list

	}

    }

}

proc tixGrid:GoState-1 {w x y} {

    set ent [$w nearest $x $y]

    if {$ent != ""} {

	tixGrid:SetAnchor $w $ent

    }

    tixGrid:CheckEdit $w

    $w selection clear 0 0 max max

    if {[$w cget -selectmode] ne "single"} {

	tixGrid:SelectSingle $w $ent

    }

    tixGrid:GoState 2 $w

}

proc tixGrid:GoState-2 {w} {

}

proc tixGrid:GoState-3 {w x y} {

    set ent [$w nearest $x $y]

    if {$ent != ""} {

	tixGrid:SelectSingle $w $ent

    }

    tixGrid:GoState 0 $w

}

proc tixGrid:GoState-5 {w x y} {

    set ent [$w nearest $x $y]

    if {$ent != ""} {

	tixGrid:SelectSingle $w $ent

	tixGrid:SetEdit $w $ent

    }

    tixGrid:GoState 0 $w

}

proc tixGrid:GoState-4 {w x y} {

    set ent [$w nearest $x $y]

    case [$w cget -selectmode] {

	single {

	    tixGrid:SetAnchor $w $ent

	}

	browse {

	    tixGrid:SetAnchor $w $ent

	    $w selection clear 0 0 max max

	    tixGrid:SelectSingle $w $ent

	}

	{multiple extended} {

	    set anchor [$w anchor get]

	    $w selection adjust [lindex $anchor 0] [lindex $anchor 1] \

		[lindex $ent 0] [lindex $ent 1]

	}

    }

}

proc tixGrid:GoState-s5 {w} {

    tixGrid:StartScan $w

}

proc tixGrid:GoState-s6 {w} {

    global tkPriv

    tixGrid:DoScan $w

}

proc tixGrid:GoState-s7 {w x y} {

    set ent [$w nearest $x $y]

    if {$ent != ""} {

	$w selection clear

	$w selection set $ent

	tixGrid:CallCommand $w $ent

    }

    tixGrid:GoState s0 $w

}

proc tixGrid:GoState-s8 {w key} {

    set anchor [$w info anchor]

    if {$anchor == ""} {

	set anchor 0

    } else {

	set anchor [$w info $key $anchor]

    }

    $w anchor set $anchor

    $w see $anchor

    tixGrid:GoState s0 $w

}

proc tixGrid:GoState-s9 {w} {

    set anchor [$w info anchor]

    if {$anchor == ""} {

	set anchor 0

	$w anchor set $anchor

	$w see $anchor

    }

    if {[$w info anchor] != ""} {

	# ! may not have any elements

	#

	tixGrid:CallCommand $w [$w info anchor]

	$w selection clear 

	$w selection set $anchor

    }

    tixGrid:GoState s0 $w

}

proc tixGrid:GoState-s10 {w} {

    set anchor [$w info anchor]

    if {$anchor == ""} {

	set anchor 0

	$w anchor set $anchor

	$w see $anchor

    }

    if {[$w info anchor] != ""} {

	# ! may not have any elements

	#

	tixGrid:CallBrowseCmd $w [$w info anchor]

	$w selection clear 

	$w selection set $anchor

    }

    tixGrid:GoState s0 $w