Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 18.118.146.180
66 Domain
8.0.30
amvm
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
lib64 /
tcl8.5 /
Tix8.4.3 /
[ HOME SHELL ]
Name
Size
Permission
Action
bitmaps
[ DIR ]
drwxr-xr-x
html
[ DIR ]
drwxr-xr-x
pref
[ DIR ]
drwxr-xr-x
Balloon.tcl
12.97
KB
-rw-r--r--
BtnBox.tcl
2.61
KB
-rw-r--r--
CObjView.tcl
7.56
KB
-rw-r--r--
ChkList.tcl
4.97
KB
-rw-r--r--
ComboBox.tcl
35.42
KB
-rw-r--r--
Compat.tcl
870
B
-rw-r--r--
Console.tcl
14.95
KB
-rw-r--r--
Control.tcl
12.11
KB
-rw-r--r--
DefSchm.tcl
2.94
KB
-rw-r--r--
DialogS.tcl
4.2
KB
-rw-r--r--
DirBox.tcl
5.3
KB
-rw-r--r--
DirDlg.tcl
2.15
KB
-rw-r--r--
DirList.tcl
6.9
KB
-rw-r--r--
DirTree.tcl
8.76
KB
-rw-r--r--
DragDrop.tcl
3.93
KB
-rw-r--r--
DtlList.tcl
1002
B
-rw-r--r--
EFileBox.tcl
11.12
KB
-rw-r--r--
EFileDlg.tcl
1.68
KB
-rw-r--r--
Event.tcl
5.11
KB
-rw-r--r--
FileBox.tcl
14
KB
-rw-r--r--
FileCbx.tcl
2.42
KB
-rw-r--r--
FileDlg.tcl
2.13
KB
-rw-r--r--
FileEnt.tcl
7.15
KB
-rw-r--r--
FloatEnt.tcl
3.1
KB
-rw-r--r--
Grid.tcl
21.16
KB
-rw-r--r--
HList.tcl
17.72
KB
-rw-r--r--
HListDD.tcl
4.39
KB
-rw-r--r--
IconView.tcl
5.97
KB
-rw-r--r--
Init.tcl
6.05
KB
-rw-r--r--
LabEntry.tcl
2.09
KB
-rw-r--r--
LabFrame.tcl
1.15
KB
-rw-r--r--
LabWidg.tcl
3.86
KB
-rw-r--r--
ListNBk.tcl
3.5
KB
-rw-r--r--
Meter.tcl
3.04
KB
-rw-r--r--
MultView.tcl
3.62
KB
-rw-r--r--
NoteBook.tcl
6.02
KB
-rw-r--r--
OldUtil.tcl
2.98
KB
-rw-r--r--
OptMenu.tcl
9.17
KB
-rw-r--r--
PanedWin.tcl
27.68
KB
-rw-r--r--
PopMenu.tcl
5.37
KB
-rw-r--r--
Primitiv.tcl
10.28
KB
-rw-r--r--
README.txt
987
B
-rw-r--r--
ResizeH.tcl
12.94
KB
-rw-r--r--
SGrid.tcl
5.8
KB
-rw-r--r--
SHList.tcl
3.7
KB
-rw-r--r--
SListBox.tcl
6.97
KB
-rw-r--r--
STList.tcl
2.37
KB
-rw-r--r--
SText.tcl
3.09
KB
-rw-r--r--
SWidget.tcl
9.52
KB
-rw-r--r--
SWindow.tcl
6.75
KB
-rw-r--r--
Select.tcl
7.04
KB
-rw-r--r--
Shell.tcl
1.06
KB
-rw-r--r--
SimpDlg.tcl
1.13
KB
-rw-r--r--
StackWin.tcl
1.95
KB
-rw-r--r--
StatBar.tcl
1.31
KB
-rw-r--r--
StdBBox.tcl
1.62
KB
-rw-r--r--
StdShell.tcl
1.15
KB
-rw-r--r--
TList.tcl
17.59
KB
-rw-r--r--
Tix.tcl
9.51
KB
-rw-r--r--
Tree.tcl
4.57
KB
-rw-r--r--
Utils.tcl
10.54
KB
-rw-r--r--
VResize.tcl
4.95
KB
-rw-r--r--
VStack.tcl
9.42
KB
-rw-r--r--
VTree.tcl
4.31
KB
-rw-r--r--
Variable.tcl
2.5
KB
-rw-r--r--
WInfo.tcl
965
B
-rw-r--r--
fs.tcl
3.9
KB
-rw-r--r--
libTix.so
320.71
KB
-rwxr-xr-x
license.terms
2.76
KB
-rw-r--r--
pkgIndex.tcl
122
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : 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"] } }
Close
