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