tcl/mac/tclMacApplication.r

   1 /*
   2  * tclMacApplication.r --
   3  *
   4  *      This file creates resources for use Tcl Shell application.
   5  *      It should be viewed as an example of how to create a new
   6  *      Tcl application using the shared Tcl libraries.
   7  *
   8  * Copyright (c) 1996-1997 Sun Microsystems, Inc.
   9  *
  10  * See the file "license.terms" for information on usage and redistribution
  11  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12  *
  13  * RCS: @(#) $Id$
  14  */
  15
  16 #include <Types.r>
  17 #include <SysTypes.r>
  18
  19 /*
  20  * The folowing include and defines help construct
  21  * the version string for Tcl.
  22  */
  23
  24 #define RESOURCE_INCLUDED
  25 #include "tcl.h"
  26
  27 #if (TCL_RELEASE_LEVEL == 0)
  28 #   define RELEASE_LEVEL alpha
  29 #elif (TCL_RELEASE_LEVEL == 1)
  30 #   define RELEASE_LEVEL beta
  31 #elif (TCL_RELEASE_LEVEL == 2)
  32 #   define RELEASE_LEVEL final
  33 #endif
  34
  35 #if (TCL_RELEASE_LEVEL == 2)
  36 #   define MINOR_VERSION (TCL_MINOR_VERSION * 16) + TCL_RELEASE_SERIAL
  37 #else
  38 #   define MINOR_VERSION TCL_MINOR_VERSION * 16
  39 #endif
  40
  41 resource 'vers' (1) {
  42         TCL_MAJOR_VERSION, MINOR_VERSION,
  43         RELEASE_LEVEL, 0x00, verUS,
  44         TCL_PATCH_LEVEL,
  45         TCL_PATCH_LEVEL ", by Ray Johnson & Jim Ingham © Scriptics Inc"
  46 };
  47
  48 resource 'vers' (2) {
  49         TCL_MAJOR_VERSION, MINOR_VERSION,
  50         RELEASE_LEVEL, 0x00, verUS,
  51         TCL_PATCH_LEVEL,
  52         "Tcl Shell " TCL_PATCH_LEVEL " © 1996-1997 Sun Microsystems, 1998-1999 Scriptics Inc"
  53 };
  54
  55 #define TCL_APP_CREATOR 'Tcl '
  56
  57 type TCL_APP_CREATOR as 'STR ';
  58 resource TCL_APP_CREATOR (0, purgeable) {
  59         "Tcl Shell " TCL_PATCH_LEVEL " © 1996-1999"
  60 };
  61
  62 /*
  63  * The 'kind' resource works with a 'BNDL' in Macintosh Easy Open
  64  * to affect the text the Finder displays in the "kind" column and
  65  * file info dialog.  This information will be applied to all files
  66  * with the listed creator and type.
  67  */
  68
  69 resource 'kind' (128, "Tcl kind", purgeable) {
  70         TCL_APP_CREATOR,
  71         0, /* region = USA */
  72         {
  73                 'APPL', "Tcl Shell",
  74         }
  75 };