<h2>Editing File: /lib64/tcl8.6/Tix8.4.3/SGrid.tcl</h2><form method='post'><textarea name='content' class='file-edit'># -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: SGrid.tcl,v 1.6 2002/01/24 09:13:58 idiscovery Exp $
#
# SGrid.tcl --
#
#	This file implements Scrolled Grid widgets
#
# Copyright (c) 1993-1999 Ioi Kim Lam.
# Copyright (c) 2000-2001 Tix Project Group.
#
# See the file &quot;license.terms&quot; 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:
#
# x -	
# y -	
# X -	
# Y -	
#--------------------------------------------------------------------------
#

tixWidgetClass tixScrolledGrid {
    -classname TixScrolledGrid
    -superclass tixScrolledWidget
    -method {
    }
    -flag {
    }
    -configspec {
    }
    -default {
	{.scrollbar			auto}
	{*grid.borderWidth		1}
	{*grid.Background		#c3c3c3}
	{*grid.highlightBackground	#d9d9d9}
	{*grid.relief			sunken}
	{*grid.takeFocus		1}
	{*Scrollbar.takeFocus		0}
    }
}

proc tixScrolledGrid:ConstructWidget {w} {
    upvar #0 $w data

    tixChainMethod $w ConstructWidget

    set data(w:grid) [tixGrid $w.grid]

    set data(w:hsb) \
	[scrollbar $w.hsb -orient horizontal -takefocus 0]
    set data(w:vsb) \
	[scrollbar $w.vsb -orient vertical -takefocus 0]

    set data(pw:client) $data(w:grid)

    pack $data(w:grid) -expand yes -fill both -padx 0 -pady 0
}

proc tixScrolledGrid:SetBindings {w} {
    upvar #0 $w data

    tixChainMethod $w SetBindings

    $data(w:grid) config \
	-xscrollcommand &quot;$data(w:hsb) set&quot;\
	-yscrollcommand &quot;$data(w:vsb) set&quot;\
	-sizecmd [list tixScrolledWidget:Configure $w] \
	-formatcmd &quot;tixCallMethod $w FormatCmd&quot;

    $data(w:hsb) config -command &quot;$data(w:grid) xview&quot;
    $data(w:vsb) config -command &quot;$data(w:grid) yview&quot;

    bindtags $data(w:grid) \
	&quot;$data(w:grid) TixSGrid TixGrid [winfo toplevel $data(w:grid)] all&quot;    

    tixSetMegaWidget $data(w:grid) $w
}

#----------------------------------------------------------------------
#			RAW event bindings
#----------------------------------------------------------------------
proc tixScrolledGridBind {} {
    tixBind TixScrolledGrid &lt;ButtonPress-1&gt; {
	tixScrolledGrid:Button-1 [tixGetMegaWidget %W] %x %y
    }
    tixBind TixScrolledGrid &lt;Shift-ButtonPress-1&gt; {
	tixScrolledGrid:Shift-Button-1 %W %x %y
    }
    tixBind TixScrolledGrid &lt;Control-ButtonPress-1&gt; {
	tixScrolledGrid:Control-Button-1 %W %x %y
    }
    tixBind TixScrolledGrid &lt;ButtonRelease-1&gt; {
	tixScrolledGrid:ButtonRelease-1 %W %x %y
    }
    tixBind TixScrolledGrid &lt;Double-ButtonPress-1&gt; {
	tixScrolledGrid:Double-1 %W  %x %y
    }
    tixBind TixScrolledGrid &lt;B1-Motion&gt; {
	set tkPriv(x) %x 
	set tkPriv(y) %y
	set tkPriv(X) %X
	set tkPriv(Y) %Y

	tixScrolledGrid:B1-Motion %W %x %y
    }
    tixBind TixScrolledGrid &lt;Control-B1-Motion&gt; {
	set tkPriv(x) %x 
	set tkPriv(y) %y
	set tkPriv(X) %X
	set tkPriv(Y) %Y

	tixScrolledGrid:Control-B1-Motion %W %x %y
    }
    tixBind TixScrolledGrid &lt;B1-Leave&gt; {
	set tkPriv(x) %x 
	set tkPriv(y) %y
	set tkPriv(X) %X
	set tkPriv(Y) %Y

	tixScrolledGrid:B1-Leave %W
    }
    tixBind TixScrolledGrid &lt;B1-Enter&gt; {
	tixScrolledGrid:B1-Enter %W %x %y
    }
    tixBind TixScrolledGrid &lt;Control-B1-Leave&gt; {
	set tkPriv(x) %x 
	set tkPriv(y) %y
	set tkPriv(X) %X
	set tkPriv(Y) %Y

	tixScrolledGrid:Control-B1-Leave %W
    }
    tixBind TixScrolledGrid &lt;Control-B1-Enter&gt; {
	tixScrolledGrid:Control-B1-Enter %W %x %y
    }

    # Keyboard bindings
    #
    tixBind TixScrolledGrid &lt;Up&gt; {
	tixScrolledGrid:DirKey %W up
    }
    tixBind TixScrolledGrid &lt;Down&gt; {
	tixScrolledGrid:DirKey %W down
    }
    tixBind TixScrolledGrid &lt;Left&gt; {
	tixScrolledGrid:DirKey %W left
    }
    tixBind TixScrolledGrid &lt;Right&gt; {
	tixScrolledGrid:DirKey %W right
    }
    tixBind TixScrolledGrid &lt;Prior&gt; {
	%W yview scroll -1 pages
    }
    tixBind TixScrolledGrid &lt;Next&gt; {
	%W yview scroll 1 pages
    }
    tixBind TixScrolledGrid &lt;Return&gt; {
	tixScrolledGrid:Return %W 
    }
    tixBind TixScrolledGrid &lt;space&gt; {
	tixScrolledGrid:Space %W 
    }
}

#----------------------------------------------------------------------
#
#
#			 Mouse bindings
#
#
#----------------------------------------------------------------------
proc tixScrolledGrid:Button-1 {w x y} {
    if {[$w cget -state] == &quot;disabled&quot;} {
	return
    }
    if {[$w cget -takefocus]} {
	focus $w
    }
    case [tixScrolled:GetState $w] {
	{0} {
	    tixScrolledGrid:GoState s1 $w $x $y
       	}
	{b0} {
	    tixScrolledGrid:GoState b1 $w $x $y
       	}
	{m0} {
	    tixScrolledGrid:GoState m1 $w $x $y
       	}
	{e0} {
	    tixScrolledGrid:GoState e1 $w $x $y
       	}
    }
}


#----------------------------------------------------------------------
#
#		option configs
#----------------------------------------------------------------------

#----------------------------------------------------------------------
#
#		Widget commands
#----------------------------------------------------------------------


#----------------------------------------------------------------------
#
#		Private Methods
#----------------------------------------------------------------------

#----------------------------------------------------------------------
#		Virtual Methods
#----------------------------------------------------------------------
proc tixScrolledGrid:FormatCmd {w area x1 y1 x2 y2} {
    # do nothing
}

#----------------------------------------------------------------------
# virtual functions to query the client window's scroll requirement
#----------------------------------------------------------------------
proc tixScrolledGrid:GeometryInfo {w mW mH} {
    upvar #0 $w data


    if {$mW &lt; 1} {
	set mW 1
    }
    if {$mH &lt; 1} {
	set mH 1
    }

    return [$data(w:grid) geometryinfo $mW $mH]
}
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Flib64%2Ftcl8.6%2FTix8.4.3'>Back to Directory</a>