home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / tcl8.0 / mac / tclMacOSA.r < prev    next >
Encoding:
Text File  |  1997-08-15  |  2.2 KB  |  76 lines  |  [TEXT/CWIE]
  1. /*
  2.  * tkMacOSA.r --
  3.  *
  4.  *    This file creates resources used by the AppleScript package.
  5.  *
  6.  * Copyright (c) 1997 Sun Microsystems, Inc.
  7.  *
  8.  * See the file "license.terms" for information on usage and redistribution
  9.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  10.  *
  11.  * SCCS: @(#) tclMacOSA.r 1.4 97/08/15 10:51:01
  12.  */
  13.  
  14. #include <Types.r>
  15. #include <SysTypes.r>
  16.  
  17. /*
  18.  * The folowing include and defines help construct
  19.  * the version string for Tcl.
  20.  */
  21.  
  22. #define SCRIPT_MAJOR_VERSION 1        /* Major number */
  23. #define SCRIPT_MINOR_VERSION  0        /* Minor number */
  24. #define SCRIPT_RELEASE_SERIAL  2    /* Really minor number! */
  25. #define RELEASE_LEVEL alpha        /* alpha, beta, or final */
  26. #define SCRIPT_VERSION "1.0"
  27. #define SCRIPT_PATCH_LEVEL "1.0a2"
  28. #define FINAL 0                /* Change to 1 if final version. */
  29.  
  30. #if FINAL
  31. #   define MINOR_VERSION (SCRIPT_MINOR_VERSION * 16) + SCRIPT_RELEASE_SERIAL
  32. #else
  33. #   define MINOR_VERSION SCRIPT_MINOR_VERSION * 16
  34. #endif
  35.  
  36. #define RELEASE_CODE 0x00
  37.  
  38. resource 'vers' (1) {
  39.     SCRIPT_MAJOR_VERSION, MINOR_VERSION,
  40.     RELEASE_LEVEL, 0x00, verUS,
  41.     SCRIPT_PATCH_LEVEL,
  42.     SCRIPT_PATCH_LEVEL ", by Jim Ingham & Ray Johnson © Sun Microsystems"
  43. };
  44.  
  45. resource 'vers' (2) {
  46.     SCRIPT_MAJOR_VERSION, MINOR_VERSION,
  47.     RELEASE_LEVEL, 0x00, verUS,
  48.     SCRIPT_PATCH_LEVEL,
  49.     "Tclapplescript " SCRIPT_PATCH_LEVEL " © 1996-1997"
  50. };
  51.  
  52. /*
  53.  * The -16397 string will be displayed by Finder when a user
  54.  * tries to open the shared library. The string should
  55.  * give the user a little detail about the library's capabilities
  56.  * and enough information to install the library in the correct location.  
  57.  * A similar string should be placed in all shared libraries.
  58.  */
  59. resource 'STR ' (-16397, purgeable) {
  60.     "TclAppleScript Library\n\n"
  61.     "This library provides the ability to run AppleScript "
  62.     " commands from Tcl/Tk programs.  To work properly, it "
  63.     "should be placed in the ‘Tool Command Language’ folder "
  64.     "within the Extensions folder."
  65. };
  66.  
  67.  
  68. /* 
  69.  * We now load the Tk library into the resource fork of the library.
  70.  */
  71.  
  72. data 'TEXT' (4000,"pkgIndex",purgeable, preload) {
  73.     "# Tcl package index file, version 1.0\n"
  74.     "package ifneeded Tclapplescript 1.0 [list tclPkgSetup $dir Tclapplescript 1.0 {{Tclapplescript.shlb load AppleScript}}]\n"
  75. };
  76.