25 |
* PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. |
* PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. |
26 |
*/ |
*/ |
27 |
|
|
28 |
#ifndef lint |
/* #ifndef lint */ |
29 |
static char rcsid[] = "/usr/home/gah/repository/blt/tkAppInit.c,v 1.3 1994/04/02 04:37:26 gah Exp SPRITE (Berkeley) $Revision"; |
/* static char rcsid[] = "/usr/home/gah/repository/blt/tkAppInit.c,v 1.3 1994/04/02 04:37:26 gah Exp SPRITE (Berkeley) $Revision"; */ |
30 |
#endif /* not lint */ |
/* #endif */ |
31 |
|
|
32 |
#include "tk.h" |
#include "tk.h" |
33 |
|
|
64 |
Tcl_AppInit(interp) |
Tcl_AppInit(interp) |
65 |
Tcl_Interp *interp; /* Interpreter for application. */ |
Tcl_Interp *interp; /* Interpreter for application. */ |
66 |
{ |
{ |
67 |
Tk_Window main; |
Tk_Window mmain; |
68 |
/* |
/* |
69 |
extern int Blt_Init _ANSI_ARGS_((Tcl_Interp *interp)); |
extern int Blt_Init _ANSI_ARGS_((Tcl_Interp *interp)); |
70 |
*/ |
*/ |
71 |
main = Tk_MainWindow(interp); |
mmain = Tk_MainWindow(interp); |
72 |
|
|
73 |
/* |
/* |
74 |
* Call the init procedures for included packages. Each call should |
* Call the init procedures for included packages. Each call should |