Linux websever 5.15.0-153-generic #163-Ubuntu SMP Thu Aug 7 16:37:18 UTC 2025 x86_64
Apache/2.4.52 (Ubuntu)
: 192.168.3.70 | : 192.168.1.99
Cant Read [ /etc/named.conf ]
8.1.2-1ubuntu2.23
urlab
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
/
opt /
miniconda3 /
python /
lib /
tk8.6 /
[ HOME SHELL ]
Name
Size
Permission
Action
demos
[ DIR ]
drwxrwxr-x
images
[ DIR ]
drwxrwxr-x
msgs
[ DIR ]
drwxrwxr-x
ttk
[ DIR ]
drwxrwxr-x
bgerror.tcl
8.33
KB
-rw-rw-r--
button.tcl
20.34
KB
-rw-rw-r--
choosedir.tcl
9.47
KB
-rw-rw-r--
clrpick.tcl
20.84
KB
-rw-rw-r--
comdlg.tcl
8.17
KB
-rw-rw-r--
console.tcl
31.44
KB
-rw-rw-r--
dialog.tcl
5.68
KB
-rw-rw-r--
entry.tcl
17.82
KB
-rw-rw-r--
focus.tcl
4.74
KB
-rw-rw-r--
fontchooser.tcl
17.36
KB
-rw-rw-r--
iconlist.tcl
16.35
KB
-rw-rw-r--
icons.tcl
10.63
KB
-rw-rw-r--
listbox.tcl
14.35
KB
-rw-rw-r--
megawidget.tcl
9.34
KB
-rw-rw-r--
menu.tcl
37.92
KB
-rw-rw-r--
mkpsenc.tcl
28.66
KB
-rw-rw-r--
msgbox.tcl
15.98
KB
-rw-rw-r--
obsolete.tcl
5.46
KB
-rw-rw-r--
optMenu.tcl
1.55
KB
-rw-rw-r--
palette.tcl
7.98
KB
-rw-rw-r--
panedwindow.tcl
5.05
KB
-rw-rw-r--
pkgIndex.tcl
150
B
-rw-rw-r--
safetk.tcl
7.2
KB
-rw-rw-r--
scale.tcl
8.19
KB
-rw-rw-r--
scrlbar.tcl
12.43
KB
-rw-rw-r--
spinbox.tcl
15.58
KB
-rw-rw-r--
tclIndex
19.79
KB
-rw-rw-r--
tearoff.tcl
4.36
KB
-rw-rw-r--
text.tcl
33.15
KB
-rw-rw-r--
tk.tcl
23.06
KB
-rw-rw-r--
tkAppInit.c
4.51
KB
-rw-rw-r--
tkfbox.tcl
37.47
KB
-rw-rw-r--
unsupported.tcl
10.01
KB
-rw-rw-r--
xmfbox.tcl
25.39
KB
-rw-rw-r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : tkAppInit.c
/* * tkAppInit.c -- * * Provides a default version of the main program and Tcl_AppInit * procedure for wish and other Tk-based applications. * * Copyright (c) 1993 The Regents of the University of California. * Copyright (c) 1994-1997 Sun Microsystems, Inc. * Copyright (c) 1998-1999 Scriptics Corporation. * * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. */ #undef BUILD_tk #undef STATIC_BUILD #include "tk.h" #include "tkPort.h" #if TCL_MAJOR_VERSION < 9 && TCL_MINOR_VERSION < 7 # define Tcl_LibraryInitProc Tcl_PackageInitProc # define Tcl_StaticLibrary Tcl_StaticPackage #endif #ifdef TK_TEST #ifdef __cplusplus extern "C" { #endif extern Tcl_LibraryInitProc Tktest_Init; #ifdef __cplusplus } #endif #endif /* TK_TEST */ /* * The following #if block allows you to change the AppInit function by using * a #define of TCL_LOCAL_APPINIT instead of rewriting this entire file. The * #if checks for that #define and uses Tcl_AppInit if it doesn't exist. */ #ifndef TK_LOCAL_APPINIT #define TK_LOCAL_APPINIT Tcl_AppInit #endif #ifndef MODULE_SCOPE # ifdef __cplusplus # define MODULE_SCOPE extern "C" # else # define MODULE_SCOPE extern # endif #endif MODULE_SCOPE int TK_LOCAL_APPINIT(Tcl_Interp *); MODULE_SCOPE int main(int, char **); /* * The following #if block allows you to change how Tcl finds the startup * script, prime the library or encoding paths, fiddle with the argv, etc., * without needing to rewrite Tk_Main() */ #ifdef TK_LOCAL_MAIN_HOOK MODULE_SCOPE int TK_LOCAL_MAIN_HOOK(int *argc, char ***argv); #endif /* Make sure the stubbed variants of those are never used. */ #undef Tcl_ObjSetVar2 #undef Tcl_NewStringObj /* *---------------------------------------------------------------------- * * main -- * * This is the main program for the application. * * Results: * None: Tk_Main never returns here, so this procedure never returns * either. * * Side effects: * Just about anything, since from here we call arbitrary Tcl code. * *---------------------------------------------------------------------- */ int main( int argc, /* Number of command-line arguments. */ char **argv) /* Values of command-line arguments. */ { #ifdef TK_LOCAL_MAIN_HOOK TK_LOCAL_MAIN_HOOK(&argc, &argv); #endif Tk_Main(argc, argv, TK_LOCAL_APPINIT); return 0; /* Needed only to prevent compiler warning. */ } /* *---------------------------------------------------------------------- * * Tcl_AppInit -- * * This procedure performs application-specific initialization. Most * applications, especially those that incorporate additional packages, * will have their own version of this procedure. * * Results: * Returns a standard Tcl completion code, and leaves an error message in * the interp's result if an error occurs. * * Side effects: * Depends on the startup script. * *---------------------------------------------------------------------- */ int Tcl_AppInit( Tcl_Interp *interp) /* Interpreter for application. */ { if ((Tcl_Init)(interp) == TCL_ERROR) { return TCL_ERROR; } if (Tk_Init(interp) == TCL_ERROR) { return TCL_ERROR; } Tcl_StaticLibrary(interp, "Tk", Tk_Init, Tk_SafeInit); #if defined(USE_CUSTOM_EXIT_PROC) if (TkpWantsExitProc()) { Tcl_SetExitProc(TkpExitProc); } #endif #ifdef TK_TEST if (Tktest_Init(interp) == TCL_ERROR) { return TCL_ERROR; } Tcl_StaticLibrary(interp, "Tktest", Tktest_Init, 0); #endif /* TK_TEST */ /* * Call the init procedures for included packages. Each call should look * like this: * * if (Mod_Init(interp) == TCL_ERROR) { * return TCL_ERROR; * } * * where "Mod" is the name of the module. (Dynamically-loadable packages * should have the same entry-point name.) */ /* * Call Tcl_CreateObjCommand for application-specific commands, if they * weren't already created by the init procedures called above. */ /* * Specify a user-specific startup file to invoke if the application is * run interactively. Typically the startup file is "~/.apprc" where "app" * is the name of the application. If this line is deleted then no user- * specific startup file will be run under any conditions. */ Tcl_ObjSetVar2(interp, Tcl_NewStringObj("tcl_rcFileName", -1), NULL, Tcl_NewStringObj("~/.wishrc", -1), TCL_GLOBAL_ONLY); return TCL_OK; } /* * Local Variables: * mode: c * c-basic-offset: 4 * fill-column: 78 * End: */
Close
