Mercurial > cpython-lru_cache-weakref

annotate Modules/tkappinit.c @ 4566:6403c94de50d legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added safeguard against failure in __del__.
author Guido van Rossum <guido@python.org>
date Wed, 27 Nov 1996 19:39:58 +0000
parents d88af58e95cd
children e6b797aaa69f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1691
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1 /* appinit.c -- Tcl and Tk application initialization. */
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
3 #include <tcl.h>
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
4 #include <tk.h>
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
5
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
6 int
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
7 Tcl_AppInit (interp)
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
8 Tcl_Interp *interp;
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
9 {
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
10 Tk_Window main;
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
11
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
12 main = Tk_MainWindow(interp);
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
13
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
14 if (Tcl_Init (interp) == TCL_ERROR)
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
15 return TCL_ERROR;
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
16 if (Tk_Init (interp) == TCL_ERROR)
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
17 return TCL_ERROR;
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
18
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
19 #ifdef WITH_MOREBUTTONS
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
20 {
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
21 extern Tcl_CmdProc studButtonCmd;
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
22 extern Tcl_CmdProc triButtonCmd;
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
23
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
24 Tcl_CreateCommand(interp, "studbutton", studButtonCmd,
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
25 (ClientData) main, NULL);
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
26 Tcl_CreateCommand(interp, "tributton", triButtonCmd,
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
27 (ClientData) main, NULL);
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
28 }
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
29 #endif
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
30 #ifdef WITH_XXX
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
31
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
32 #endif
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
33
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
34 return TCL_OK;
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
35 }
d88af58e95cd Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
36