OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
tcltk
/
tk8.6
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
bgerror.tcl
8.05 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
button.tcl
20.16 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
choosedir.tcl
9.43 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
clrpick.tcl
20.93 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
comdlg.tcl
8.04 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
console.tcl
32.02 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
dialog.tcl
5.88 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
entry.tcl
16.55 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
focus.tcl
4.74 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
fontchooser.tcl
15.47 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
iconlist.tcl
15.6 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
icons.tcl
10.63 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
images
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
listbox.tcl
14.25 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
megawidget.tcl
9.34 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
menu.tcl
37.12 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
mkpsenc.tcl
28.66 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
msgbox.tcl
16.08 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
msgs
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
obsolete.tcl
5.46 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
optMenu.tcl
1.55 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
palette.tcl
7.74 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
panedwindow.tcl
5.05 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
safetk.tcl
7.21 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
scale.tcl
7.58 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
scrlbar.tcl
12.45 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
spinbox.tcl
15.27 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tclIndex
19.79 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tearoff.tcl
5.02 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
text.tcl
32.31 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tk.tcl
22.6 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tkAppInit.c
4.09 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tkfbox.tcl
37.47 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
ttk
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
unsupported.tcl
10.01 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
xmfbox.tcl
25.46 KB
03/24/2018 06:42:17 PM
rw-r--r--
Editing: tkAppInit.c
Close
/* * 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" #ifdef TK_TEST extern Tcl_PackageInitProc Tktest_Init; #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 # define MODULE_SCOPE extern #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_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit); #ifdef TK_TEST if (Tktest_Init(interp) == TCL_ERROR) { return TCL_ERROR; } Tcl_StaticPackage(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: */