FM / Tix8.4.3

/usr/lib64/tcl8.5/Tix8.4.3/

/usr/lib64/tcl8.5/Tix8.4.3

Name	Size	Mode	Actions
bitmaps/	-	0755	rm
html/	-	0755	rm
pref/	-	0755	rm
Balloon.tcl	13285	0644	edit dl rm
BtnBox.tcl	2671	0644	edit dl rm
ChkList.tcl	5087	0644	edit dl rm
CObjView.tcl	7738	0644	edit dl rm
ComboBox.tcl	36271	0644	edit dl rm
Compat.tcl	870	0644	edit dl rm
Console.tcl	15311	0644	edit dl rm
Control.tcl	12402	0644	edit dl rm
DefSchm.tcl	3013	0644	edit dl rm
DialogS.tcl	4296	0644	edit dl rm
DirBox.tcl	5425	0644	edit dl rm
DirDlg.tcl	2206	0644	edit dl rm
DirList.tcl	7064	0644	edit dl rm
DirTree.tcl	8972	0644	edit dl rm
DragDrop.tcl	4025	0644	edit dl rm
DtlList.tcl	1002	0644	edit dl rm
EFileBox.tcl	11390	0644	edit dl rm
EFileDlg.tcl	1718	0644	edit dl rm
Event.tcl	5231	0644	edit dl rm
FileBox.tcl	14336	0644	edit dl rm
FileCbx.tcl	2483	0644	edit dl rm
FileDlg.tcl	2185	0644	edit dl rm
FileEnt.tcl	7319	0644	edit dl rm
FloatEnt.tcl	3176	0644	edit dl rm
fs.tcl	3995	0644	edit dl rm
Grid.tcl	21665	0644	edit dl rm
HList.tcl	18148	0644	edit dl rm
HListDD.tcl	4500	0644	edit dl rm
IconView.tcl	6110	0644	edit dl rm
Init.tcl	6199	0644	edit dl rm
LabEntry.tcl	2143	0644	edit dl rm
LabFrame.tcl	1181	0644	edit dl rm
LabWidg.tcl	3951	0644	edit dl rm
libTix.so	318272	0755	edit dl rm
license.terms	2828	0644	edit dl rm
ListNBk.tcl	3581	0644	edit dl rm
Meter.tcl	3114	0644	edit dl rm
MultView.tcl	3704	0644	edit dl rm
NoteBook.tcl	6160	0644	edit dl rm
OldUtil.tcl	3056	0644	edit dl rm
OptMenu.tcl	9392	0644	edit dl rm
PanedWin.tcl	28347	0644	edit dl rm
pkgIndex.tcl	122	0644	edit dl rm
PopMenu.tcl	5500	0644	edit dl rm
Primitiv.tcl	10527	0644	edit dl rm
README.txt	987	0644	edit dl rm
ResizeH.tcl	13247	0644	edit dl rm
Select.tcl	7204	0644	edit dl rm
SGrid.tcl	5935	0644	edit dl rm
Shell.tcl	1082	0644	edit dl rm
SHList.tcl	3793	0644	edit dl rm
SimpDlg.tcl	1157	0644	edit dl rm
SListBox.tcl	7138	0644	edit dl rm
StackWin.tcl	1992	0644	edit dl rm
StatBar.tcl	1339	0644	edit dl rm
StdBBox.tcl	1656	0644	edit dl rm
StdShell.tcl	1173	0644	edit dl rm
SText.tcl	3163	0644	edit dl rm
STList.tcl	2428	0644	edit dl rm
SWidget.tcl	9748	0644	edit dl rm
SWindow.tcl	6908	0644	edit dl rm
Tix.tcl	9737	0644	edit dl rm
TList.tcl	18009	0644	edit dl rm
Tree.tcl	4679	0644	edit dl rm
Utils.tcl	10788	0644	edit dl rm
Variable.tcl	2563	0644	edit dl rm
VResize.tcl	5069	0644	edit dl rm
VStack.tcl	9651	0644	edit dl rm
VTree.tcl	4410	0644	edit dl rm
WInfo.tcl	965	0644	edit dl rm

Edit: /usr/lib64/tcl8.5/Tix8.4.3/DirTree.tcl (8972B)

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: DirTree.tcl,v 1.4 2004/03/28 02:44:57 hobbs Exp $
#
# DirTree.tcl --
#
#	Implements directory tree for Unix file systems
#
#       What the indicators mean:
#
#	(+): There are some subdirectories in this directory which are not
#	     currently visible.
#	(-): This directory has some subdirectories and they are all visible
#
#      none: The dir has no subdirectori(es).
#
# 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.
#

##
## The tixDirTree require special FS handling due to it's limited
## separator idea (instead of real tree).
##

tixWidgetClass tixDirTree {
    -classname TixDirTree
    -superclass tixVTree
    -method {
	activate chdir refresh
    }
    -flag {
	-browsecmd -command -directory -disablecallback -showhidden -value
    }
    -configspec {
	{-browsecmd browseCmd BrowseCmd ""}
	{-command command Command ""}
	{-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean}
	{-showhidden showHidden ShowHidden 0 tixVerifyBoolean}
	{-value value Value ""}
    }
    -alias {
	{-directory -value}
    }
    -default {
	{.scrollbar			auto}
	{*Scrollbar.takeFocus           0}
	{*borderWidth                   1}
	{*hlist.indicator               1}
	{*hlist.background              #c3c3c3}
	{*hlist.drawBranch              1}
	{*hlist.height                  10}
	{*hlist.highlightBackground     #d9d9d9}
	{*hlist.indent                  20}
	{*hlist.itemType                imagetext}
	{*hlist.padX                    3}
	{*hlist.padY                    0}
	{*hlist.relief                  sunken}
	{*hlist.takeFocus               1}
	{*hlist.wideSelection           0}
	{*hlist.width                   20}
    }
}

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

tixChainMethod $w InitWidgetRec

if {$data(-value) == ""} {
	set data(-value) [pwd]
    }

tixDirTree:SetDir $w [file normalize $data(-value)]
}

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

tixChainMethod $w ConstructWidget
    tixDoWhenMapped $w [list tixDirTree:StartUp $w]

$data(w:hlist) config -separator [tixFSSep] \
	-selectmode "single" -drawbranch 1

# We must creat an extra copy of these images to avoid flashes on
    # the screen when user changes directory
    #
    set data(images) [image create compound -window $data(w:hlist)]
    $data(images) add image -image [tix getimage act_fold]
    $data(images) add image -image [tix getimage folder]
    $data(images) add image -image [tix getimage openfold]
}

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

tixChainMethod $w SetBindings
}

# Add one dir into the node (parent directory), sorted alphabetically
#
proc tixDirTree:AddToList {w fsdir image} {
    upvar #0 $w data

set dir    [tixFSInternal $fsdir]

if {[$data(w:hlist) info exists $dir]} { return }

set parent [file dirname $fsdir]
    if {$fsdir eq $parent} {
	# root node
	set node ""
    } else {
	# regular node
	set node [tixFSInternal $parent]
    }
    set added 0
    set text  [tixFSDisplayFileName $fsdir]
    foreach sib [$data(w:hlist) info children $node] {
	if {[string compare $dir $sib] < 0} {
	    $data(w:hlist) add $dir -before $sib -text $text -image $image
	    set added 1
	    break
	}
    }
    if {!$added} {
	$data(w:hlist) add $dir -text $text -image $image
    }

# Check to see if we have children (%% optimize!)
    if {[llength [tixFSListDir $fsdir 1 0 0 $data(-showhidden)]]} {
	tixVTree:SetMode $w $dir open
    }
}

proc tixDirTree:LoadDir {w fsdir {mode toggle}} {
    if {![winfo exists $w]} { return }
    upvar #0 $w data

# Add the directory and set it to the active directory
    #
    set fsdir [tixFSNormalize $fsdir]
    set dir   [tixFSInternal $fsdir]
    if {![$data(w:hlist) info exists $dir]} {
	# Add $dir and all ancestors of $dir into the HList widget
	set fspath ""
	set imgopenfold [tix getimage openfold]
	foreach part [tixFSAncestors $fsdir] {
	    set fspath [file join $fspath $part]
	    tixDirTree:AddToList $w $fspath $imgopenfold
	}
    }
    $data(w:hlist) entryconfig $dir -image [tix getimage act_fold]

if {$mode eq "toggle"} {
	if {[llength [$data(w:hlist) info children $dir]]} {
	    set mode flatten
	} else {
	    set mode expand
	}
    }

if {$mode eq "expand"} {
	# Add all the sub directories of fsdir into the HList widget
	tixBusy $w on $data(w:hlist)
	set imgfolder [tix getimage folder]
	foreach part [tixFSListDir $fsdir 1 0 0 $data(-showhidden)] {
	    tixDirTree:AddToList $w [file join $fsdir $part] $imgfolder
	}
	tixWidgetDoWhenIdle tixBusy $w off $data(w:hlist)
	# correct indicator to represent children status (added above)
	if {[llength [$data(w:hlist) info children $dir]]} {
	    tixVTree:SetMode $w $dir close
	} else {
	    tixVTree:SetMode $w $dir none
	}
    } else {
	$data(w:hlist) delete offsprings $dir
	tixVTree:SetMode $w $dir open
    }
}

proc tixDirTree:ToggleDir {w value mode} {
    upvar #0 $w data

tixDirTree:LoadDir $w $value $mode
    tixDirTree:CallCommand $w
}

proc tixDirTree:CallCommand {w} {
    upvar #0 $w data

if {[llength $data(-command)] && !$data(-disablecallback)} {
	set bind(specs) {%V}
	set bind(%V)    $data(-value)

tixEvalCmdBinding $w $data(-command) bind $data(-value)
    }
}

proc tixDirTree:CallBrowseCmd {w ent} {
    upvar #0 $w data

if {[llength $data(-browsecmd)] && !$data(-disablecallback)} {
	set bind(specs) {%V}
	set bind(%V)    $data(-value)

tixEvalCmdBinding $w $data(-browsecmd) bind [list $data(-value)]
    }
}

proc tixDirTree:StartUp {w} {
    if {![winfo exists $w]} { return }

upvar #0 $w data

# make sure that all the basic volumes are listed
    set imgopenfold [tix getimage openfold]
    foreach fspath [tixFSVolumes] {
	tixDirTree:AddToList $w $fspath $imgopenfold
    }

tixDirTree:LoadDir $w [tixFSExternal $data(i-directory)]
}

proc tixDirTree:ChangeDir {w fsdir {forced 0}} {
    upvar #0 $w data

set dir [tixFSInternal $fsdir]
    if {!$forced && $data(i-directory) eq $dir} {
	return
    }

if {!$forced && [$data(w:hlist) info exists $dir]} {
	# Set the old directory to "non active"
	#
	if {[$data(w:hlist) info exists $data(i-directory)]} {
	    $data(w:hlist) entryconfig $data(i-directory) \
		-image [tix getimage folder]
	}

$data(w:hlist) entryconfig $dir -image [tix getimage act_fold]
    } else {
	if {$forced} {
	    if {[llength [$data(w:hlist) info children $dir]]} {
		set mode expand
	    } else {
		set mode flatten
	    }
	} else {
	    set mode toggle
	}
	tixDirTree:LoadDir $w $fsdir $mode
	tixDirTree:CallCommand $w
    }
    tixDirTree:SetDir $w $fsdir
}

proc tixDirTree:SetDir {w path} {
    upvar #0 $w data

set data(i-directory) [tixFSInternal $path]
    set data(-value) [tixFSNativeNorm $path]
}

#----------------------------------------------------------------------
#
# Virtual Methods
#
#----------------------------------------------------------------------
proc tixDirTree:OpenCmd {w ent} {
    set fsdir [tixFSExternal $ent]
    tixDirTree:ToggleDir $w $fsdir expand
    tixDirTree:ChangeDir $w $fsdir
    tixDirTree:CallBrowseCmd $w $fsdir
}

proc tixDirTree:CloseCmd {w ent} {
    set fsdir [tixFSExternal $ent]
    tixDirTree:ToggleDir $w $fsdir flatten
    tixDirTree:ChangeDir $w $fsdir
    tixDirTree:CallBrowseCmd $w $fsdir
}

proc tixDirTree:Command {w B} {
    upvar #0 $w data
    upvar $B bind

set ent [tixEvent flag V]
    tixChainMethod $w Command $B

if {[llength $data(-command)]} {
	set fsdir [tixFSExternal $ent]
	tixEvalCmdBinding $w $data(-command) bind $fsdir
    }
}

# This is a virtual method
#
proc tixDirTree:BrowseCmd {w B} {
    upvar #0 $w data
    upvar 1 $B bind

set ent [tixEvent flag V]
    set fsdir [tixFSExternal $ent]

# This is a hack because %V may have been modified by callbrowsecmd
    set fsdir [file normalize $fsdir]

tixDirTree:ChangeDir $w $fsdir
    tixDirTree:CallBrowseCmd $w $fsdir
}

#----------------------------------------------------------------------
#
# Public Methods
#
#----------------------------------------------------------------------
proc tixDirTree:chdir {w value} {
    tixDirTree:ChangeDir $w [file normalize $value]
}

proc tixDirTree:refresh {w {dir ""}} {
    upvar #0 $w data

if {$dir eq ""} {
	set dir $data(-value)
    }
    set dir [file normalize $dir]

tixDirTree:ChangeDir $w $dir 1

# Delete any stale directories that no longer exist
    #
    foreach child [$data(w:hlist) info children [tixFSInternal $dir]] {
	if {![file exists [tixFSExternal $child]]} {
	    $data(w:hlist) delete entry $child
	}
    }
}

proc tixDirTree:config-directory {w value} {
    tixDirTree:ChangeDir $w [file normalize $value]
}

cmd: