root/tk-8.0/tags/rat_4_1_8/generic/tkInitScript.h @ 1274

Revision 1274, 1.7 KB (checked in by anonymous, 14 years ago)

This commit was manufactured by cvs2svn to create tag 'rat_4_1_8'.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1/*
2 * tkInitScript.h --
3 *
4 *      This file contains Unix & Windows common init script
5 *      It is not used on the Mac. (the mac init script is in tkMacInit.c)
6 *
7 * Copyright (c) 1997 Sun Microsystems, Inc.
8 *
9 * See the file "license.terms" for information on usage and redistribution
10 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11 *
12 * SCCS: @(#) tkInitScript.h 1.3 97/08/11 19:12:28
13 */
14
15/*
16 * In order to find tk.tcl during initialization, the following script
17 * is invoked by Tk_Init().  It looks in several different directories:
18 *
19 *      $tk_library             - can specify a primary location, if set
20 *                                no other locations will be checked
21 *
22 *      $env(TK_LIBRARY)        - highest priority so user can always override
23 *                                the search path unless the application has
24 *                                specified an exact directory above
25 *
26 *      $tcl_library/../tk$tk_version
27 *                              - look relative to init.tcl in an installed
28 *                                lib directory (e.g. /usr/local)
29 *
30 *      <executable directory>/../lib/tk$tk_version
31 *                              - look for a lib/tk<ver> in a sibling of
32 *                                the bin directory (e.g. /usr/local)
33 *
34 *      <executable directory>/../library
35 *                              - look in Tk build directory
36 *
37 *      <executable directory>/../../tk$tk_patchLevel/library
38 *                              - look for Tk build directory relative
39 *                                to a parallel build directory
40 *
41 * The first directory on this path that contains a valid tk.tcl script
42 * will be set ast the value of tk_library.
43 *
44 * Note that this entire search mechanism can be bypassed by defining an
45 * alternate tkInit procedure before calling Tk_Init().
46 */
47
48static char initScript[] = "if {[info proc tkInit]==\"\"} {\n\
49  proc tkInit {} {\n\
50    global tk_library\n\
51    set tk_library \"\"\n\
52  }\n\
53}\n\
54tkInit";
Note: See TracBrowser for help on using the browser.