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: SListBox.tcl

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: SListBox.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $
#
# SListBox.tcl --
#
#	This file implements Scrolled Listbox 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.
#

# ToDo:
# -anchor (none)
#

tixWidgetClass tixScrolledListBox {
    -classname TixScrolledListBox
    -superclass tixScrolledWidget
    -method {
    }
    -flag {
	-anchor -browsecmd -command -state
    }
    -static {
	-anchor
    }
    -configspec {
	{-anchor anchor Anchor w}
	{-browsecmd browseCmd BrowseCmd ""}
	{-command command Command ""}
	{-state state State normal}
	{-takefocus takeFocus TakeFocus 1 tixVerifyBoolean}
    }
    -default {
	{.scrollbar			auto}
	{*borderWidth			1}
	{*listbox.highlightBackground	#d9d9d9}
	{*listbox.relief		sunken}
	{*listbox.background		#c3c3c3}
	{*listbox.takeFocus		1}
	{*Scrollbar.takeFocus		0}
    }
}

proc tixScrolledListBox:InitWidgetRec {w} {
    upvar #0 $w data

tixChainMethod $w InitWidgetRec

set data(x-first) 0
    set data(x-last)  1
    set data(y-first) 0
    set data(y-last)  1
}

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

tixChainMethod $w ConstructWidget

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

set data(pw:client) $data(w:listbox)
}

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

tixChainMethod $w SetBindings

$data(w:listbox) config \
	-xscrollcommand "tixScrolledListBox:XView $w"\
	-yscrollcommand "tixScrolledListBox:YView $w"

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

bind $w <Configure> "+tixScrolledListBox:Configure $w"
    bind $w <FocusIn> "focus $data(w:listbox)"

bindtags $data(w:listbox) \
    "$data(w:listbox) TixListboxState Listbox TixListbox [winfo toplevel $data(w:listbox)] all"
    tixSetMegaWidget $data(w:listbox) $w
}

proc tixScrolledListBoxBind {} {
    tixBind TixListboxState <1> {
	if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} {
	    break
	}
    }
    tixBind TixListbox      <1> {
	if {[string is true -strict [%W cget -takefocus]]} {
	    focus %W
	}
	tixScrolledListBox:Browse [tixGetMegaWidget %W]
    }

tixBind TixListboxState <B1-Motion> {
	if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} {
	    break
	}
    }
    tixBind TixListbox      <B1-Motion> {
	tixScrolledListBox:Browse [tixGetMegaWidget %W]
    }

tixBind TixListboxState <Up> {
	if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} {
	    break
	}
    }
    tixBind TixListbox      <Up> {
	tixScrolledListBox:KeyBrowse [tixGetMegaWidget %W]
    }

tixBind TixListboxState <Down> {
	if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} {
	    break
	}
    }
    tixBind TixListbox      <Down> {
	tixScrolledListBox:KeyBrowse [tixGetMegaWidget %W]
    }

tixBind TixListboxState <Return> {
	if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} {
	    break
	}
    }
    tixBind TixListbox      <Return> {
	tixScrolledListBox:KeyInvoke [tixGetMegaWidget %W]
    }

tixBind TixListboxState <Double-1> {
	if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} {
	    break
	}
    }
    tixBind TixListbox      <Double-1> {
	tixScrolledListBox:Invoke [tixGetMegaWidget %W]
    }

tixBind TixListboxState <ButtonRelease-1> {
	if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} {
	    break
	}
    }
    tixBind TixListbox      <ButtonRelease-1> {
	tixScrolledListBox:Browse [tixGetMegaWidget %W]
    }
}

proc tixScrolledListBox:Browse {w} {
    upvar #0 $w data

if {$data(-browsecmd) != ""} {
	set bind(specs) {%V}
	set bind(%V) [$data(w:listbox) get \
	    [$data(w:listbox) nearest [tixEvent flag y]]]
	tixEvalCmdBinding $w $data(-browsecmd) bind
    }
}

proc tixScrolledListBox:KeyBrowse {w} {
    upvar #0 $w data

if {$data(-browsecmd) != ""} {
	set bind(specs) {%V}
	set bind(%V) [$data(w:listbox) get active]
	tixEvalCmdBinding $w $data(-browsecmd) bind
    }
}

# tixScrolledListBox:Invoke --
#
#	The user has invoked the listbox by pressing either the <Returh>
# key or double-clicking. Call the user-supplied -command function.
#
# For both -browsecmd and -command, it is the responsibility of the
# user-supplied function to determine the current selection of the listbox
# 
proc tixScrolledListBox:Invoke {w} {
    upvar #0 $w data

if {$data(-command) != ""} {
	set bind(specs) {%V}
	set bind(%V) [$data(w:listbox) get \
	    [$data(w:listbox) nearest [tixEvent flag y]]]
	tixEvalCmdBinding $w $data(-command) bind
    }
}

proc tixScrolledListBox:KeyInvoke {w} {
    upvar #0 $w data

if {$data(-command) != ""} {
	set bind(specs) {%V}
	set bind(%V) [$data(w:listbox) get active]
	tixEvalCmdBinding $w $data(-command) bind
    }
}

#----------------------------------------------------------------------
#
#		option configs
#----------------------------------------------------------------------
proc tixScrolledListBox:config-takefocus {w value} {
    upvar #0 $w data
    $data(w:listbox) config -takefocus $value
}

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

#----------------------------------------------------------------------
#
#		Private Methods
#----------------------------------------------------------------------
proc tixScrolledListBox:XView {w first last} {
    upvar #0 $w data

set data(x-first) $first
    set data(x-last) $last

$data(w:hsb) set $first $last
    tixWidgetDoWhenIdle tixScrolledWidget:Configure $w

}

proc tixScrolledListBox:YView {w first last} {
    upvar #0 $w data

set data(y-first) $first
    set data(y-last) $last

$data(w:vsb) set $first $last
    tixWidgetDoWhenIdle tixScrolledWidget:Configure $w

# Somehow an update here must be used to advoid osscilation
    #
    update idletasks
}

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

return [list \
	[list $data(x-first) $data(x-last)]\
	[list $data(y-first) $data(y-last)]]
}

proc tixScrolledListBox:Configure {w} {
    upvar #0 $w data

tixWidgetDoWhenIdle tixScrolledListBox:TrickScrollbar $w

if {$data(-anchor) eq "e"} {
	$data(w:listbox) xview 100000
    }
}

# This procedure is necessary because listbox does not call x,y scroll command
# when its size is changed
#
proc tixScrolledListBox:TrickScrollbar {w} {
    upvar #0 $w data

set inc [$data(w:listbox) select include 0]

$data(w:listbox) select set 0
    if {!$inc} {
	$data(w:listbox) select clear 0
    }
}

X7ROOT File Manager

Editing: SListBox.tcl

Upload File

Create Folder