GRAYBYTE WORDPRESS FILE MANAGER6778

Server IP : 198.54.121.189 / Your IP : 216.73.216.34
System : Linux premium69.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64
PHP Version : 7.4.33
Disable Function : NONE
cURL : ON | WGET : ON | Sudo : OFF | Pkexec : OFF
Directory : /lib64/tcl8.6/Tix8.4.3/
Upload Files :
Current_dir [ Not Writeable ] Document_root [ Writeable ]

Command :


Current File : /lib64/tcl8.6/Tix8.4.3//Variable.tcl
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: Variable.tcl,v 1.4 2001/12/09 05:04:02 idiscovery Exp $
#
# Variable.tcl --
#
#	Routines in this file are used to set up and operate variables
#	for classes that support the -variable option
#
# 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.
#



# tixVariable:ConfigVariable --
#
# 	Set up the -variable option for the object $w
#
# Side effects:
#
#	data(-variable) is changed to the name of the global variable
#	if the global variable exists, data(-value) takes the value of this
#	variable.
#	if the global variable does not exist, it is created with the
#	current data(-value)
#
# Return value:
#
#	true is data(-value) is changed, indicating that data(-command)
#	should be invoked.
#
proc tixVariable:ConfigVariable {w arg} {
    upvar #0 $w data

    set changed 0

    if {$data(-variable) != ""} {
	uplevel #0 \
	    [list trace vdelete $data(-variable) w "tixVariable:TraceProc $w"]
    }

    if {$arg != ""} {
	if {[uplevel #0 info exists [list $arg]]} {
	    # This global variable exists, we use its value
	    #
	    set data(-value) [uplevel #0 set [list $arg]]
	    set changed 1
	} else {
	    # This global variable does not exist; let's set it 
	    #
	    uplevel #0 [list set $arg $data(-value)]
	}
	uplevel #0 \
	    [list trace variable $arg w "tixVariable:TraceProc $w"]
    }

    return $changed
}

proc tixVariable:UpdateVariable {w} {
    upvar #0 $w data

    if {$data(-variable) != ""} {
	uplevel #0 \
	    [list trace vdelete  $data(-variable) w "tixVariable:TraceProc $w"]
	uplevel #0 \
	    [list set $data(-variable) $data(-value)]
	uplevel #0 \
	    [list trace variable $data(-variable) w "tixVariable:TraceProc $w"]

	# just in case someone has another trace and restricted my change
	#
	set data(-value) [uplevel #0 set [list $data(-variable)]]
    }
}

proc tixVariable:TraceProc {w name1 name2 op} {
    upvar #0 $w data
    set varname $data(-variable)

    if {[catch {$w config -value [uplevel #0 [list set $varname]]} err]} {
	uplevel #0 [list set $varname [list [$w cget -value]]]
	error $err
    }
    return
}

proc tixVariable:DeleteVariable {w} {
    upvar #0 $w data

    # Must delete the trace command of the -variable
    #
    if {$data(-variable) != ""} {
	uplevel #0 \
	    [list trace vdelete $data(-variable) w "tixVariable:TraceProc $w"]
    }
}

[ Back ]
Name
Size
Last Modified
Owner / Group
Permissions
Options
..
--
March 03 2024 20:23:41
root / root
0755
bitmaps
--
March 03 2024 20:23:41
root / root
0755
html
--
October 22 2019 12:47:10
root / root
0755
pref
--
March 03 2024 20:23:41
root / root
0755
Balloon.tcl
12.974 KB
October 22 2019 12:47:10
root / root
0644
BtnBox.tcl
2.608 KB
October 22 2019 12:47:10
root / root
0644
CObjView.tcl
7.557 KB
October 22 2019 12:47:10
root / root
0644
ChkList.tcl
4.968 KB
October 22 2019 12:47:10
root / root
0644
ComboBox.tcl
35.421 KB
October 22 2019 12:47:10
root / root
0644
Compat.tcl
0.85 KB
October 22 2019 12:47:10
root / root
0644
Console.tcl
14.952 KB
October 22 2019 12:47:10
root / root
0644
Control.tcl
12.111 KB
October 22 2019 12:47:10
root / root
0644
DefSchm.tcl
2.942 KB
October 22 2019 12:47:10
root / root
0644
DialogS.tcl
4.195 KB
October 22 2019 12:47:10
root / root
0644
DirBox.tcl
5.298 KB
October 22 2019 12:47:10
root / root
0644
DirDlg.tcl
2.154 KB
October 22 2019 12:47:10
root / root
0644
DirList.tcl
6.898 KB
October 22 2019 12:47:10
root / root
0644
DirTree.tcl
8.762 KB
October 22 2019 12:47:10
root / root
0644
DragDrop.tcl
3.931 KB
October 22 2019 12:47:10
root / root
0644
DtlList.tcl
0.979 KB
October 22 2019 12:47:10
root / root
0644
EFileBox.tcl
11.123 KB
October 22 2019 12:47:10
root / root
0644
EFileDlg.tcl
1.678 KB
October 22 2019 12:47:10
root / root
0644
Event.tcl
5.108 KB
October 22 2019 12:47:10
root / root
0644
FileBox.tcl
14 KB
October 22 2019 12:47:10
root / root
0644
FileCbx.tcl
2.425 KB
October 22 2019 12:47:10
root / root
0644
FileDlg.tcl
2.134 KB
October 22 2019 12:47:10
root / root
0644
FileEnt.tcl
7.147 KB
October 22 2019 12:47:10
root / root
0644
FloatEnt.tcl
3.102 KB
October 22 2019 12:47:10
root / root
0644
Grid.tcl
21.157 KB
October 22 2019 12:47:10
root / root
0644
HList.tcl
17.723 KB
October 22 2019 12:47:10
root / root
0644
HListDD.tcl
4.395 KB
October 22 2019 12:47:10
root / root
0644
IconView.tcl
5.967 KB
October 22 2019 12:47:10
root / root
0644
Init.tcl
6.054 KB
October 22 2019 12:47:10
root / root
0644
LabEntry.tcl
2.093 KB
October 22 2019 12:47:10
root / root
0644
LabFrame.tcl
1.153 KB
October 22 2019 12:47:10
root / root
0644
LabWidg.tcl
3.858 KB
October 22 2019 12:47:10
root / root
0644
ListNBk.tcl
3.497 KB
October 22 2019 12:47:10
root / root
0644
Meter.tcl
3.041 KB
October 22 2019 12:47:10
root / root
0644
MultView.tcl
3.617 KB
October 22 2019 12:47:10
root / root
0644
NoteBook.tcl
6.016 KB
October 22 2019 12:47:10
root / root
0644
OldUtil.tcl
2.984 KB
October 22 2019 12:47:10
root / root
0644
OptMenu.tcl
9.172 KB
October 22 2019 12:47:10
root / root
0644
PanedWin.tcl
27.683 KB
October 22 2019 12:47:10
root / root
0644
PopMenu.tcl
5.371 KB
October 22 2019 12:47:10
root / root
0644
Primitiv.tcl
10.28 KB
October 22 2019 12:47:10
root / root
0644
README.txt
0.964 KB
October 22 2019 12:47:10
root / root
0644
ResizeH.tcl
12.937 KB
October 22 2019 12:47:10
root / root
0644
SGrid.tcl
5.796 KB
October 22 2019 12:47:10
root / root
0644
SHList.tcl
3.704 KB
October 22 2019 12:47:10
root / root
0644
SListBox.tcl
6.971 KB
October 22 2019 12:47:10
root / root
0644
STList.tcl
2.371 KB
October 22 2019 12:47:10
root / root
0644
SText.tcl
3.089 KB
October 22 2019 12:47:10
root / root
0644
SWidget.tcl
9.52 KB
October 22 2019 12:47:10
root / root
0644
SWindow.tcl
6.746 KB
October 22 2019 12:47:10
root / root
0644
Select.tcl
7.035 KB
October 22 2019 12:47:10
root / root
0644
Shell.tcl
1.057 KB
October 22 2019 12:47:10
root / root
0644
SimpDlg.tcl
1.13 KB
October 22 2019 12:47:10
root / root
0644
StackWin.tcl
1.945 KB
October 22 2019 12:47:10
root / root
0644
StatBar.tcl
1.308 KB
October 22 2019 12:47:10
root / root
0644
StdBBox.tcl
1.617 KB
October 22 2019 12:47:10
root / root
0644
StdShell.tcl
1.146 KB
October 22 2019 12:47:10
root / root
0644
TList.tcl
17.587 KB
October 22 2019 12:47:10
root / root
0644
Tix.tcl
9.509 KB
October 22 2019 12:47:10
root / root
0644
Tree.tcl
4.569 KB
October 22 2019 12:47:10
root / root
0644
Utils.tcl
10.535 KB
October 22 2019 12:47:10
root / root
0644
VResize.tcl
4.95 KB
October 22 2019 12:47:10
root / root
0644
VStack.tcl
9.425 KB
October 22 2019 12:47:10
root / root
0644
VTree.tcl
4.307 KB
October 22 2019 12:47:10
root / root
0644
Variable.tcl
2.503 KB
October 22 2019 12:47:10
root / root
0644
WInfo.tcl
0.942 KB
October 22 2019 12:47:10
root / root
0644
fs.tcl
3.901 KB
October 22 2019 12:47:10
root / root
0644
libTix.so
341.297 KB
October 22 2019 12:47:11
root / root
0755
license.terms
2.762 KB
October 22 2019 12:47:10
root / root
0644
pkgIndex.tcl
0.119 KB
October 22 2019 12:47:10
root / root
0644

GRAYBYTE WORDPRESS FILE MANAGER @ 2025
CONTACT ME
Static GIF