File Manager

X7ROOT File Manager

Current Path: /usr/lib64/tcl8.6/Tix8.4.3

ðŸ“ ..
ðŸ“„ Balloon.tcl(12.97 KB)
ðŸ“„ BtnBox.tcl(2.61 KB)
ðŸ“„ CObjView.tcl(7.56 KB)
ðŸ“„ ChkList.tcl(4.97 KB)
ðŸ“„ ComboBox.tcl(35.42 KB)
ðŸ“„ Compat.tcl(870 B)
ðŸ“„ Console.tcl(14.95 KB)
ðŸ“„ Control.tcl(12.11 KB)
ðŸ“„ DefSchm.tcl(2.94 KB)
ðŸ“„ DialogS.tcl(4.2 KB)
ðŸ“„ DirBox.tcl(5.3 KB)
ðŸ“„ DirDlg.tcl(2.15 KB)
ðŸ“„ DirList.tcl(6.9 KB)
ðŸ“„ DirTree.tcl(8.76 KB)
ðŸ“„ DragDrop.tcl(3.93 KB)
ðŸ“„ DtlList.tcl(1002 B)
ðŸ“„ EFileBox.tcl(11.12 KB)
ðŸ“„ EFileDlg.tcl(1.68 KB)
ðŸ“„ Event.tcl(5.11 KB)
ðŸ“„ FileBox.tcl(14 KB)
ðŸ“„ FileCbx.tcl(2.42 KB)
ðŸ“„ FileDlg.tcl(2.13 KB)
ðŸ“„ FileEnt.tcl(7.15 KB)
ðŸ“„ FloatEnt.tcl(3.1 KB)
ðŸ“„ Grid.tcl(21.16 KB)
ðŸ“„ HList.tcl(17.72 KB)
ðŸ“„ HListDD.tcl(4.39 KB)
ðŸ“„ IconView.tcl(5.97 KB)
ðŸ“„ Init.tcl(6.05 KB)
ðŸ“„ LabEntry.tcl(2.09 KB)
ðŸ“„ LabFrame.tcl(1.15 KB)
ðŸ“„ LabWidg.tcl(3.86 KB)
ðŸ“„ ListNBk.tcl(3.5 KB)
ðŸ“„ Meter.tcl(3.04 KB)
ðŸ“„ MultView.tcl(3.62 KB)
ðŸ“„ NoteBook.tcl(6.02 KB)
ðŸ“„ OldUtil.tcl(2.98 KB)
ðŸ“„ OptMenu.tcl(9.17 KB)
ðŸ“„ PanedWin.tcl(27.68 KB)
ðŸ“„ PopMenu.tcl(5.37 KB)
ðŸ“„ Primitiv.tcl(10.28 KB)
ðŸ“„ README.txt(987 B)
ðŸ“„ ResizeH.tcl(12.94 KB)
ðŸ“„ SGrid.tcl(5.8 KB)
ðŸ“„ SHList.tcl(3.7 KB)
ðŸ“„ SListBox.tcl(6.97 KB)
ðŸ“„ STList.tcl(2.37 KB)
ðŸ“„ SText.tcl(3.09 KB)
ðŸ“„ SWidget.tcl(9.52 KB)
ðŸ“„ SWindow.tcl(6.75 KB)
ðŸ“„ Select.tcl(7.04 KB)
ðŸ“„ Shell.tcl(1.06 KB)
ðŸ“„ SimpDlg.tcl(1.13 KB)
ðŸ“„ StackWin.tcl(1.95 KB)
ðŸ“„ StatBar.tcl(1.31 KB)
ðŸ“„ StdBBox.tcl(1.62 KB)
ðŸ“„ StdShell.tcl(1.15 KB)
ðŸ“„ TList.tcl(17.59 KB)
ðŸ“„ Tix.tcl(9.51 KB)
ðŸ“„ Tree.tcl(4.57 KB)
ðŸ“„ Utils.tcl(10.54 KB)
ðŸ“„ VResize.tcl(4.95 KB)
ðŸ“„ VStack.tcl(9.42 KB)
ðŸ“„ VTree.tcl(4.31 KB)
ðŸ“„ Variable.tcl(2.5 KB)
ðŸ“„ WInfo.tcl(965 B)
ðŸ“ bitmaps
ðŸ“„ fs.tcl(3.9 KB)
ðŸ“ html
ðŸ“„ libTix.so(341.3 KB)
ðŸ“„ license.terms(2.76 KB)
ðŸ“„ pkgIndex.tcl(122 B)
ðŸ“ pref

Editing: SGrid.tcl

# -*- 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 "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:
#
# 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 "$data(w:hsb) set"\
	-yscrollcommand "$data(w:vsb) set"\
	-sizecmd [list tixScrolledWidget:Configure $w] \
	-formatcmd "tixCallMethod $w FormatCmd"

$data(w:hsb) config -command "$data(w:grid) xview"
    $data(w:vsb) config -command "$data(w:grid) yview"

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

tixSetMegaWidget $data(w:grid) $w
}

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

tixScrolledGrid:B1-Motion %W %x %y
    }
    tixBind TixScrolledGrid <Control-B1-Motion> {
	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 <B1-Leave> {
	set tkPriv(x) %x 
	set tkPriv(y) %y
	set tkPriv(X) %X
	set tkPriv(Y) %Y

tixScrolledGrid:B1-Leave %W
    }
    tixBind TixScrolledGrid <B1-Enter> {
	tixScrolledGrid:B1-Enter %W %x %y
    }
    tixBind TixScrolledGrid <Control-B1-Leave> {
	set tkPriv(x) %x 
	set tkPriv(y) %y
	set tkPriv(X) %X
	set tkPriv(Y) %Y

tixScrolledGrid:Control-B1-Leave %W
    }
    tixBind TixScrolledGrid <Control-B1-Enter> {
	tixScrolledGrid:Control-B1-Enter %W %x %y
    }

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

#----------------------------------------------------------------------
#
#
#			 Mouse bindings
#
#
#----------------------------------------------------------------------
proc tixScrolledGrid:Button-1 {w x y} {
    if {[$w cget -state] == "disabled"} {
	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 < 1} {
	set mW 1
    }
    if {$mH < 1} {
	set mH 1
    }

return [$data(w:grid) geometryinfo $mW $mH]
}

X7ROOT File Manager

Editing: SGrid.tcl

Upload File

Create Folder