|
sl@0
|
1 |
/*
|
|
sl@0
|
2 |
* tclMacResource.r --
|
|
sl@0
|
3 |
*
|
|
sl@0
|
4 |
* This file creates resources for use in a simple shell.
|
|
sl@0
|
5 |
* This is designed to be an example of using the Tcl libraries
|
|
sl@0
|
6 |
* statically in a Macintosh Application. For an example of
|
|
sl@0
|
7 |
* of using the dynamic libraries look at tclMacApplication.r.
|
|
sl@0
|
8 |
*
|
|
sl@0
|
9 |
* Copyright (c) 1993-94 Lockheed Missle & Space Company
|
|
sl@0
|
10 |
* Copyright (c) 1994-97 Sun Microsystems, Inc.
|
|
sl@0
|
11 |
*
|
|
sl@0
|
12 |
* See the file "license.terms" for information on usage and redistribution
|
|
sl@0
|
13 |
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
sl@0
|
14 |
*
|
|
sl@0
|
15 |
* RCS: @(#) $Id: tclMacResource.r,v 1.8 2002/09/12 17:33:20 das Exp $
|
|
sl@0
|
16 |
*/
|
|
sl@0
|
17 |
|
|
sl@0
|
18 |
#include <Types.r>
|
|
sl@0
|
19 |
#include <SysTypes.r>
|
|
sl@0
|
20 |
|
|
sl@0
|
21 |
/*
|
|
sl@0
|
22 |
* The folowing include and defines help construct
|
|
sl@0
|
23 |
* the version string for Tcl.
|
|
sl@0
|
24 |
*/
|
|
sl@0
|
25 |
|
|
sl@0
|
26 |
#define RC_INVOKED
|
|
sl@0
|
27 |
#include "tcl.h"
|
|
sl@0
|
28 |
|
|
sl@0
|
29 |
/*
|
|
sl@0
|
30 |
* The mechanisim below loads Tcl source into the resource fork of the
|
|
sl@0
|
31 |
* application. The example below creates a TEXT resource named
|
|
sl@0
|
32 |
* "Init" from the file "init.tcl". This allows applications to use
|
|
sl@0
|
33 |
* Tcl to define the behavior of the application without having to
|
|
sl@0
|
34 |
* require some predetermined file structure - all needed Tcl "files"
|
|
sl@0
|
35 |
* are located within the application. To source a file for the
|
|
sl@0
|
36 |
* resource fork the source command has been modified to support
|
|
sl@0
|
37 |
* sourcing from resources. In the below case "source -rsrc {Init}"
|
|
sl@0
|
38 |
* will load the TEXT resource named "Init".
|
|
sl@0
|
39 |
*/
|
|
sl@0
|
40 |
|
|
sl@0
|
41 |
#ifndef TCLTK_NO_LIBRARY_TEXT_RESOURCES
|
|
sl@0
|
42 |
#include "tclMacTclCode.r"
|
|
sl@0
|
43 |
#endif
|
|
sl@0
|
44 |
|