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/Init.tcl (6199B)

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: Init.tcl,v 1.18 2008/02/28 04:35:16 hobbs Exp $
#
# Init.tcl --
#
#	Initializes the Tix library and performes version checking to ensure
#	the Tcl, Tk and Tix script libraries loaded matches with the binary
#	of the respective packages.
#
# 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.
#
namespace eval ::tix {
}

proc tixScriptVersion {}    { return $::tix_version }
proc tixScriptPatchLevel {} { return $::tix_patchLevel }

proc ::tix::Init {dir} {
    global tix env tix_library tcl_platform auto_path

if {[info exists tix(initialized)]} {
	return
    }

if {![info exists tix_library]} {
        # we're running from stand-alone module. 
        set tix_library ""
    } elseif {[file isdir $tix_library]} {
        if {![info exists auto_path] ||
            [lsearch $auto_path $tix_library] == -1} {
            lappend auto_path $tix_library
        }
    }

# STEP 1: Version checking
    #
    #
    package require Tcl 8.4
    package require -exact Tix 8.4.3

# STEP 2: Initialize file compatibility modules
    #

foreach file {
	fs.tcl
	Tix.tcl		Event.tcl
	Balloon.tcl	BtnBox.tcl
	CObjView.tcl	ChkList.tcl
	ComboBox.tcl	Compat.tcl
	Console.tcl	Control.tcl
	DefSchm.tcl	DialogS.tcl
	DirBox.tcl	DirDlg.tcl
	DirList.tcl	DirTree.tcl
	DragDrop.tcl	DtlList.tcl
	EFileBox.tcl	EFileDlg.tcl
	FileBox.tcl	FileCbx.tcl
	FileDlg.tcl	FileEnt.tcl
	FloatEnt.tcl
	Grid.tcl	HList.tcl
	HListDD.tcl	IconView.tcl
	LabEntry.tcl	LabFrame.tcl
	LabWidg.tcl	ListNBk.tcl
	Meter.tcl	MultView.tcl
	NoteBook.tcl	OldUtil.tcl
	OptMenu.tcl	PanedWin.tcl
	PopMenu.tcl	Primitiv.tcl
	ResizeH.tcl	SGrid.tcl
	SHList.tcl	SListBox.tcl
	STList.tcl	SText.tcl
	SWidget.tcl	SWindow.tcl
	Select.tcl	Shell.tcl
	SimpDlg.tcl	StackWin.tcl
	StatBar.tcl	StdBBox.tcl
	StdShell.tcl	TList.tcl
	Tree.tcl
	Utils.tcl	VResize.tcl
	VStack.tcl	VTree.tcl
	Variable.tcl	WInfo.tcl
    } {
	uplevel \#0 [list source [file join $dir $file]]
    }

# STEP 3: Initialize the Tix application context
    #
    tixAppContext tix

# DO NOT DO THIS HERE !!
    # This causes the global defaults to be altered, which may not
    # be desirable.  The user can call this after requiring Tix if
    # they wish to use different defaults.
    #
    #tix initstyle

# STEP 4: Initialize the bindings for widgets that are implemented in C
    #
    foreach w {
	HList TList Grid ComboBox Control FloatEntry
	LabelEntry ScrolledGrid ScrolledListBox
    } {
	tix${w}Bind
    }

rename ::tix::Init ""
}

# tixWidgetClassEx --
#
#       This procedure is similar to tixWidgetClass, except it
#       performs a [subst] on the class declaration before evaluating
#       it. This gives us a chance to specify platform-specific widget
#       default without using a lot of ugly double quotes.
#
#       The use of subst'able entries in the class declaration should
#       be restrained to widget default values only to avoid producing
#       unreadable code.
#
# Arguments:
# name -	The name of the class to declare.
# classDecl -	Various declarations about the class. See documentation
#               of tixWidgetClass for details.

proc tixWidgetClassEx {name classDecl} {
    tixWidgetClass $name [uplevel [list subst $classDecl]]
}

#
# Deprecated tix* functions
#
interp alias {} tixFileJoin {} file join
interp alias {} tixStrEq {} string equal
proc tixTrue  {args} { return 1 }
proc tixFalse {args} { return 0 }
proc tixStringSub {var fromStr toStr} {
    upvar 1 var var
    set var [string map $var [list $fromStr $toStr]]
}
proc tixGetBoolean {args} {
    set len [llength [info level 0]]
    set nocomplain 0
    if {$len == 3} {
	if {[lindex $args 0] ne "-nocomplain"} {
	    return -code error "wrong \# args:\
		must be [lindex [info level 0] 0] ?-nocomplain? string"
	}
	set nocomplain 1
	set val [lindex $args 1]
    } elseif {$len != 2} {
	return -code error "wrong \# args:\
		must be [lindex [info level 0] 0] ?-nocomplain? string"
    } else {
	set val [lindex $args 0]
    }
    if {[string is boolean -strict $val] || $nocomplain} {
	return [string is true -strict $val]
    } elseif {$nocomplain} {
	return 0
    } else {
	return -code error "\"$val\" is not a valid boolean"
    }
}
interp alias {} tixVerifyBoolean {} tixGetBoolean
proc tixGetInt {args} {
    set len [llength [info level 0]]
    set nocomplain 0
    set trunc      0
    for {set i 1} {$i < $len-1} {incr i} {
	set arg [lindex $args 0]
	if {$arg eq "-nocomplain"} {
	    set nocomplain 1
	} elseif {$arg eq "-trunc"} {
	    set trunc 1
	} else {
	    return -code error "wrong \# args: must be\
		[lindex [info level 0] 0] ?-nocomplain? ?-trunc? string"
	}
    }
    if {$i != $len-1} {
	return -code error "wrong \# args: must be\
		[lindex [info level 0] 0] ?-nocomplain? ?-trunc? string"
    }
    set val [lindex $args end]
    set code [catch {expr {round($val)}} res]
    if {$code} {
	if {$nocomplain} {
	    return 0
	} else {
	    return -code error "\"$val\" cannot be converted to integer"
	}
    }
    if {$trunc} {
	return [expr {int($val)}]
    } else {
	return $res
    }
}
proc tixFile {option filename} {
    set len [string length $option]
    if {$len > 1 && [string equal -length $len $option "tildesubst"]} {
	set code [catch {file normalize $filename} res]
	if {$code == 0} {
	    set filename $res
	}
    } elseif {$len > 1 && [string equal -length $len $option "trimslash"]} {
	# normalize extra slashes
	set filename [file join $filename]
	if {$filename ne "/"} {
	    set filename [string trimright $filename "/"]
	}
    } else {
	return -code error "unknown option \"$option\",\
		must be tildesubst or trimslash"
    }
    return $filename
}

interp alias {} tixRaiseWindow {} raise
#proc tixUnmapWindow {w} { }

#
# if tix_library is not defined, we're running in SAM mode. ::tix::Init
# will be called later by the Tix_Init() C code.
#

if {[info exists tix_library]} {
    ::tix::Init [file dirname [info script]]
}

cmd: