/[dtapublic]/projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkinitscript.h
ViewVC logotype

Annotation of /projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkinitscript.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 25 - (hide annotations) (download)
Sat Oct 8 06:43:03 2016 UTC (7 years, 5 months ago) by dashley
Original Path: sf_code/esrgpcpj/shared/tk_base/tkinitscript.h
File MIME type: text/plain
File size: 2285 byte(s)
Initial commit.
1 dashley 25 /* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tkinitscript.h,v 1.1.1.1 2001/06/13 05:03:31 dtashley Exp $ */
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    
62     /* $History: tkInitScript.h $
63     *
64     * ***************** Version 1 *****************
65     * User: Dtashley Date: 1/02/01 Time: 2:52a
66     * Created in $/IjuScripter, IjuConsole/Source/Tk Base
67     * Initial check-in.
68     */
69    
70     /* End of TKINITSCRIPT.H */

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25