home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / MacPerl 4.1.3 / MacPerl / MacPerl.r < prev    next >
Encoding:
Text File  |  1994-05-04  |  32.1 KB  |  1,296 lines  |  [TEXT/MPS ]
  1. /*********************************************************************
  2. Project    :    MacPerl            -    Real Perl Application
  3. File        :    MPEdit.r            -    Editor related resources
  4. Authors    :    Matthias Neeracher & Tim Endres
  5.  
  6. A lot of this code is borrowed from 7Edit written by
  7. Apple Developer Support UK
  8.  
  9. Language    :    MPW C
  10.  
  11. $Log: MacPerl.r,v $
  12. Revision 1.1  1994/03/22  00:08:05  neeri
  13. Initial revision
  14.  
  15. Revision 0.17  1994/01/16  00:00:00  neeri
  16. 4.1.2
  17.  
  18. Revision 0.16  1994/01/12  00:00:00  neeri
  19. 4.1.1
  20.  
  21. Revision 0.15  1993/12/28  00:00:00  neeri
  22. 4.1.1b3
  23.  
  24. Revision 0.14  1993/12/20  00:00:00  neeri
  25. 4.1.1b2
  26.  
  27. Revision 0.13  1993/12/15  00:00:00  neeri
  28. 4.1.1b1
  29.  
  30. Revision 0.12  1993/10/24  00:00:00  neeri
  31. 4.1.0
  32.  
  33. Revision 0.11  1993/10/18  00:00:00  neeri
  34. b6
  35.  
  36. Revision 0.10  1993/10/13  00:00:00  neeri
  37. b5
  38.  
  39. Revision 0.9  1993/10/11  00:00:00  neeri
  40. b4
  41.  
  42. Revision 0.8  1993/09/19  00:00:00  neeri
  43. Runtime
  44.  
  45. Revision 0.7  1993/09/08  00:00:00  neeri
  46. b3
  47.  
  48. Revision 0.6  1993/08/27  00:00:00  neeri
  49. Format…
  50.  
  51. Revision 0.5  1993/08/17  00:00:00  neeri
  52. Preferences…
  53.  
  54. Revision 0.4  1993/08/15  00:00:00  neeri
  55. Credits
  56.  
  57. Revision 0.3  1993/07/13  00:00:00  neeri
  58. Options dialog
  59.  
  60. Revision 0.2  1993/05/31  00:00:00  neeri
  61. Support Console Windows
  62.  
  63. Revision 0.1  1993/05/29  00:00:00  neeri
  64. Compiles correctly
  65.  
  66. *********************************************************************/
  67.  
  68. #define SystemSevenOrLater 1
  69.  
  70. #include "Types.r"
  71. #include "SysTypes.r"
  72. #include "BalloonTypes.r"
  73. #include "AEUserTermTypes.r"
  74. #include "AERegistry.r"
  75. #include "AEObjects.r"
  76.  
  77. #include "MPRsrc.h"
  78.  
  79. include "Mercutio.rsrc";
  80.  
  81. #ifndef RUNTIME
  82.  
  83. include ":MP:FontLDEF.rsrc";
  84.  
  85. #include "MPReInit.r"
  86.  
  87. include "MacPerl.rsrc" 'BNDL'(128);
  88. include "MacPerl.rsrc" 'McPL'(0);
  89. include "MacPerl.rsrc" 'ICN#'(128);
  90. include "MacPerl.rsrc" 'icl4'(128);
  91. include "MacPerl.rsrc" 'icl8'(128);
  92. include "MacPerl.rsrc" 'ics#'(128);
  93.  
  94. include "MPDroplet.rsrc" 'CODE' as 'MrPC';
  95. include "MacPerl.rsrc" 'BNDL'(129)     as 'MrPB'(128);
  96. include "MacPerl.rsrc" 'MrPL'(0);
  97. include "MacPerl.rsrc" 'ICN#'(132)     as 'MrPI'(128);
  98. include "MacPerl.rsrc" 'icl4'(132)     as 'MrP4'(128);
  99. include "MacPerl.rsrc" 'icl8'(132)     as 'MrP8'(128);
  100. include "MacPerl.rsrc" 'ics#'(132)     as 'MrP#'(128);
  101. include "MacPerl.rsrc" 'ALRT'(4096)    as 'MrPA'(4096);
  102. include "MacPerl.rsrc" 'DITL'(4096)    as 'MrPD'(4096);
  103. include "MacPerl.rsrc" 'FREF'(132)    as 'MrPF'(132);
  104. include "MacPerl.rsrc" 'FREF'(133)    as 'MrPF'(133);
  105. include "MacPerl.rsrc" 'FREF'(134)    as 'MrPF'(134);
  106. #else
  107.  
  108. include ":RT:FontLDEF.rsrc";
  109.  
  110. #include "MPRtReInit.r"
  111.  
  112. include "MacPerl.rsrc" 'BNDL'(129) as 'BNDL'(128);
  113. include "MacPerl.rsrc" 'MrPL'(0);
  114. include "MacPerl.rsrc" 'ICN#'(132) as 'ICN#'(128);
  115. include "MacPerl.rsrc" 'icl4'(132) as 'icl4'(128);
  116. include "MacPerl.rsrc" 'icl8'(132) as 'icl8'(128);
  117. include "MacPerl.rsrc" 'ics#'(132) as 'ics#'(128);
  118. include "MacPerl.rsrc" 'FREF'(132);
  119. include "MacPerl.rsrc" 'FREF'(133);
  120. include "MacPerl.rsrc" 'FREF'(134);
  121. #endif
  122. include "MacPerl.rsrc" 'DITL'(258);
  123. include "MacPerl.rsrc" 'DLOG'(258);
  124. include "MacPerl.rsrc" 'FOND'(32268);
  125. include "MacPerl.rsrc" 'NFNT'(32268);
  126. include "MacPerl.rsrc" 'FREF'(128);
  127. include "MacPerl.rsrc" 'FREF'(129);
  128. include "MacPerl.rsrc" 'FREF'(130);
  129. include "MacPerl.rsrc" 'FREF'(131);
  130. include "MacPerl.rsrc" 'ICN#'(129);
  131. include "MacPerl.rsrc" 'ICN#'(130);
  132. include "MacPerl.rsrc" 'ICN#'(131);
  133. include "MacPerl.rsrc" 'ICN#'(385);
  134. include "MacPerl.rsrc" 'ICN#'(386);
  135. include "MacPerl.rsrc" 'ICN#'(387);
  136. include "MacPerl.rsrc" 'PICT'(128);
  137. include "MacPerl.rsrc" 'icl4'(129);
  138. include "MacPerl.rsrc" 'icl4'(130);
  139. include "MacPerl.rsrc" 'icl4'(131);
  140. include "MacPerl.rsrc" 'icl4'(385);
  141. include "MacPerl.rsrc" 'icl4'(386);
  142. include "MacPerl.rsrc" 'icl4'(387);
  143. include "MacPerl.rsrc" 'icl8'(129);
  144. include "MacPerl.rsrc" 'icl8'(130);
  145. include "MacPerl.rsrc" 'icl8'(131);
  146. include "MacPerl.rsrc" 'icl8'(385);
  147. include "MacPerl.rsrc" 'icl8'(386);
  148. include "MacPerl.rsrc" 'icl8'(387);
  149. include "MacPerl.rsrc" 'icm#'(256);
  150. include "MacPerl.rsrc" 'icm#'(257);
  151. include "MacPerl.rsrc" 'icm#'(264);
  152. include "MacPerl.rsrc" 'icm#'(265);
  153. include "MacPerl.rsrc" 'icm#'(266);
  154.  
  155. #define GUSI_PREF_VERSION '0110'
  156.  
  157. #include "GUSI.r"
  158.  
  159. include "Perl.rsrc";
  160.  
  161. resource 'GU∑I' (GUSIRsrcID) {
  162.     text, mpw, noAutoSpin, useChdir, approxStat, noTCPDaemon, noUDPDaemon;
  163. };
  164.  
  165. #ifndef RUNTIME
  166.  
  167. resource 'vers' (1) {
  168.     0x04, 0x13, release, 0x00, verUS,
  169.     "4.1.3",
  170.     "MacPerl - ported by Matthias Neeracher and Tim Endres."
  171.     };
  172.  
  173. resource 'vers' (2) {
  174.     0x04, 0x13, release, 0x00, verUS,
  175.     "4.1.3",
  176.     "Perl 4.1.3 (02May94)"
  177.     };
  178.  
  179. resource 'STR#' (CreditID) {
  180.     {
  181.         "Thanks to: Roberto Avanzi",
  182.         "Peter Van Avermaet",
  183.         "Joe Bearly",
  184.         "Benjamin Beberness",
  185.         "David N. Blank-Edelman",
  186.         "James Burgess",
  187.         "Scott Collins",
  188.         "Steve Dorner",
  189.         "Torsten Ekedahl",
  190.         "David Friedlander",
  191.         "Michael Greenspon",
  192.         "Sal Gurnani",
  193.         "David Hansen",
  194.         "Steve Hampson",
  195.         "Brad Hanson",
  196.         "John Kamp",
  197.         "Jim Kateley",
  198.         "Gary LaVoy",
  199.         "Thomas Lenggenhager",
  200.         "Peter Lewis",
  201.         "Jann Linder",
  202.         "Roger Linder",
  203.         "Mike Meckler",
  204.         "Chris Myers",
  205.         "Peter Möller",
  206.         "Asa Packer",
  207.         "Mark Pease",
  208.         "Brad Pickering",
  209.         "Tom Pollard",
  210.         "Simon Poole",
  211.         "Malcolm Pradhan",
  212.         "Alasdair Rawsthorne",
  213.         "Charlie Reiman",
  214.         "Paul Snively",
  215.         "Dan Strnad",
  216.         "Man Wei Tam",
  217.         "James Tisdall",
  218.         "Werner Uhrig",
  219.         "Maki Watanabe",
  220.         "Peter Whaite",
  221.         "Barry Wolman",
  222.         "Michael Wu",
  223.         "… and everybody whose name I might have forgotten.",
  224.         "",
  225.         "",
  226.         "",
  227.         "",
  228.     }
  229. };
  230. #else
  231. resource 'vers' (1) {
  232.     0x04, 0x13, release, 0x00, verUS,
  233.     "4.1.3",
  234.     "MacPerl Runtime - ported by Matthias Neeracher and Tim Endres."
  235. };
  236.  
  237. resource 'vers' (2) {
  238.     0x04, 0x13, release, 0x00, verUS,
  239.     "4.1.3",
  240.     "MacPerl 4.1.3 (02May94)"
  241. };
  242.  
  243. #endif
  244.  
  245. resource 'SIZE' (-1) {
  246.     dontSaveScreen,
  247.     acceptSuspendResumeEvents,
  248.     enableOptionSwitch,
  249.     canBackground,
  250.     multiFinderAware,
  251.     backgroundAndForeground,
  252.     dontGetFrontClicks,
  253.     ignoreChildDiedEvents,
  254.     is32BitCompatible,
  255.     isHighLevelEventAware,
  256.     localAndRemoteHLEvents,
  257.     reserved,
  258.     reserved,
  259.     reserved,
  260.     reserved,
  261.     reserved,
  262.     1536 * 1024,
  263.     1024 * 1024
  264. };
  265.  
  266. #ifndef RUNTIME
  267. type 'MrPS' as 'SIZE';
  268.  
  269. resource 'MrPS' (-1) {
  270.     dontSaveScreen,
  271.     acceptSuspendResumeEvents,
  272.     enableOptionSwitch,
  273.     canBackground,
  274.     multiFinderAware,
  275.     backgroundAndForeground,
  276.     dontGetFrontClicks,
  277.     ignoreChildDiedEvents,
  278.     is32BitCompatible,
  279.     isHighLevelEventAware,
  280.     localAndRemoteHLEvents,
  281.     reserved,
  282.     reserved,
  283.     reserved,
  284.     reserved,
  285.     reserved,
  286.     65536,
  287.     65536
  288. };
  289.  
  290. #endif
  291.  
  292. /************************** Window templates **************************/
  293.  
  294. resource 'WIND' (WindowTemplates, "", purgeable) {
  295.     {18, 48, 312, 488},
  296.     zoomDocProc,
  297.     invisible,
  298.     goAway,
  299.     0x0,
  300.     Untitled, 
  301.     noAutoCenter
  302. };
  303.  
  304. resource 'WIND' (WindowTemplates+1, "", purgeable) {
  305.     {18, 48, 312, 488},
  306.     zoomDocProc,
  307.     invisible,
  308.     goAway,
  309.     0x0,
  310.     "MacPerl",
  311.     noAutoCenter
  312. };
  313.  
  314. resource 'WIND' (WindowTemplates+2, "", purgeable) {
  315.     {18, 48, 312, 488},
  316.     zoomDocProc,
  317.     invisible,
  318.     goAway,
  319.     0x0,
  320.     Untitled,
  321.     noAutoCenter
  322. };
  323.  
  324. /************************** MacPerl'Answer Dialog **************************/
  325.  
  326. resource 'DLOG' (2001)    {
  327.     {  0,   0, 150, 400},
  328.     dBoxProc,
  329.     invisible,
  330.     noGoAway,
  331.     0,
  332.     2001,
  333.     "",
  334.     alertPositionMainScreen
  335. };
  336.  
  337. resource 'DITL' (2001)    {
  338.     {
  339.         {119,  307, 137,  387}, Button         { enabled, "^1"},
  340.         {119, 8406, 137, 8486}, Button         { enabled, "^2"},
  341.         {119, 8313, 137, 8393}, Button         { enabled, "^3"},
  342.         { 13,   23,  45,   55}, Icon            {disabled, 0    },
  343.         { 13,   78, 103,  387}, StaticText    {disabled, "^0"}
  344.     }
  345. };
  346.  
  347.  
  348. resource 'DLOG' (2002)    {
  349.     {  0,   0, 150, 400},
  350.     dBoxProc,
  351.     invisible,
  352.     noGoAway,
  353.     0,
  354.     2002,
  355.     "",
  356.     alertPositionMainScreen
  357. };
  358.  
  359. resource 'DITL' (2002)    {
  360.     {
  361.         {119,  307, 137,  387}, Button         { enabled, "^1"},
  362.         {119,  214, 137,  294}, Button         { enabled, "^2"},
  363.         {119, 8313, 137, 8393}, Button         { enabled, "^3"},
  364.         { 13,   23,  45,   55}, Icon            {disabled, 2    },
  365.         { 13,   78, 103,  387}, StaticText    {disabled, "^0"}
  366.     }
  367. };
  368.  
  369. resource 'DLOG' (2003)    {
  370.     {  0,   0, 150, 400},
  371.     dBoxProc,
  372.     invisible,
  373.     noGoAway,
  374.     0,
  375.     2003,
  376.     "",
  377.     alertPositionMainScreen
  378. };
  379.  
  380. resource 'DITL' (2003)    {
  381.     {
  382.         {119, 307, 137, 387}, Button         { enabled, "B1"},
  383.         {119, 214, 137, 294}, Button         { enabled, "B2"},
  384.         {119, 121, 137, 201}, Button         { enabled, "B3"},
  385.         { 13,  23,  45,  55}, Icon            {disabled, 2    },
  386.         { 13,  78, 103, 387}, StaticText    {disabled, "Prompt"}
  387.     }
  388. };
  389.  
  390. /************************** MacPerl'Ask Dialogs **************************/
  391.  
  392. resource 'DLOG' (2010) {
  393.     {0, 0, 104, 400},
  394.     dBoxProc,
  395.     invisible,
  396.     noGoAway,
  397.     'tmDI',
  398.     2010,
  399.     "",
  400.     alertPositionMainScreen
  401. };
  402.  
  403. resource 'DITL' (2010, "Ask", purgeable) {
  404.     {
  405.         {73, 307, 91, 387}, Button             { enabled, "OK"},
  406.         {73, 214, 91, 294},    Button             { enabled, "Cancel"},
  407.         {13,  13, 31, 387},    StaticText         {disabled, "^0"},
  408.         {44,  15, 60, 385}, EditText             {disabled, ""}
  409.     }
  410. };
  411.  
  412. /************************** MacPerl'Pick Dialog **************************/
  413.  
  414. resource 'DLOG' (2020) {
  415.     {38, 80, 245, 427},
  416.     dBoxProc,
  417.     invisible,
  418.     noGoAway,
  419.     0x0,
  420.     2020,
  421.     "",
  422.     alertPositionMainScreen
  423. };
  424.  
  425. resource 'DITL' (2020) {
  426.     {
  427.         {178,  30, 198,  88},    Button         { enabled, "OK"},
  428.         {178, 258, 198, 316},    Button         { enabled, "Cancel"},
  429.         {  2,   2,  19, 373},    StaticText     {disabled, "Prompt"},
  430.         { 19,   2, 168, 345},    UserItem     {disabled}
  431.     }
  432. };
  433.  
  434. /************************** Error Dialog **************************/
  435.  
  436. resource 'ALRT' (ErrorAlert, "", purgeable) {
  437.     {82, 104, 182, 366},
  438.     ErrorAlert,
  439.     {    OK, visible, silent,
  440.         OK, visible, silent,
  441.         OK, visible, silent,
  442.         OK, visible, silent
  443.     },
  444.     alertPositionMainScreen
  445. };
  446.  
  447. resource 'DITL' (ErrorAlert, "", purgeable) {
  448.     {    { 68, 180,  88, 240}, Button {enabled, "OK"},
  449.         {  9,  57,  56, 240}, StaticText {enabled, "^0^1^2^3"},
  450.         {  9,   7,  41,  39}, Icon {enabled, 1}
  451.     }
  452. };
  453.  
  454. /************************** Save Changes Dialog **************************/
  455.  
  456. resource 'ALRT' (SaveAlert, "", purgeable) {
  457.     {86, 60, 190, 432},
  458.     SaveAlert,
  459.     {    OK, visible, silent,
  460.         OK, visible, silent,
  461.         OK, visible, silent,
  462.         OK, visible, silent
  463.     },
  464.     alertPositionParentWindow
  465. };
  466.  
  467. resource 'DITL' (SaveAlert) {
  468.     {    { 74, 303,  94, 362}, Button         { enabled, "Save"},
  469.         { 74,  65,  94, 150}, Button         { enabled, "Don’t Save"},
  470.         { 74, 231,  94, 290}, Button         { enabled, "Cancel"},
  471.         { 10,  65,  59, 363}, StaticText {disabled, "Save changes to “^0”?"},
  472.         { 10,  20,  42,  52}, Icon         {disabled, 2}
  473.     }
  474. };
  475.  
  476. /************************** Revert Dialog **************************/
  477.  
  478. resource 'ALRT' (RevertAlert, "", purgeable) {
  479.     {86, 60, 190, 432},
  480.     RevertAlert,
  481.     {    OK, visible, silent,
  482.         OK, visible, silent,
  483.         OK, visible, silent,
  484.         OK, visible, silent
  485.     },
  486.     alertPositionParentWindow
  487. };
  488.  
  489. resource 'DITL' (RevertAlert) {
  490.     {    { 74, 303,  94, 362}, Button         { enabled, "Revert"},
  491.         { 74, 231,  94, 290}, Button         { enabled, "Cancel"},
  492.         { 10,  65,  59, 363}, StaticText {disabled, "Revert to the last saved version of “^0”?"},
  493.         { 10,  20,  42,  52}, Icon         {disabled, 2}
  494.     }
  495. };
  496.  
  497. /************************** Abort Dialog **************************/
  498.  
  499. resource 'ALRT' (AbortAlert, "", purgeable) {
  500.     {86, 60, 190, 432},
  501.     AbortAlert,
  502.     {    OK, visible, silent,
  503.         OK, visible, silent,
  504.         OK, visible, silent,
  505.         OK, visible, silent
  506.     },
  507.     alertPositionParentWindow
  508. };
  509.  
  510. resource 'DITL' (AbortAlert) {
  511.     {    { 74, 303,  94, 362}, Button         { enabled, "Quit"},
  512.         { 74, 231,  94, 290}, Button         { enabled, "Cancel"},
  513.         { 10,  65,  59, 363}, StaticText {disabled, "Quit (and abort current Perl script)?"},
  514.         { 10,  20,  42,  52}, Icon         {disabled, 2}
  515.     }
  516. };
  517.  
  518. /************************** Format Dialog **************************/
  519.  
  520. resource 'DLOG' (FormatDialog, "", purgeable) {
  521.     {68, 52, 245, 435},
  522.     movableDBoxProc,
  523.     invisible,
  524.     goAway,
  525.     0x0,
  526.     FormatDialog,
  527.     "Format",
  528.     alertPositionParentWindow
  529. };
  530.  
  531. resource 'DITL' (FormatDialog, purgeable) {
  532.     {    {104, 268, 124, 341},    Button         { enabled, "OK"                },
  533.         {135, 268, 156, 341},    Button         { enabled, "Cancel"            },
  534.         { 28,  11, 156, 170},    UserItem     { enabled                        },
  535.         { 60, 181, 156, 219},    UserItem     { enabled                        },
  536.         { 28, 233, 156, 234},    UserItem     {disabled                        },
  537.         {104, 268, 124, 341},    UserItem     {disabled                        },
  538.         { 30, 183,  46, 217},    EditText     {disabled, ""                    },
  539.         { 42, 245,  62, 372},    CheckBox     { enabled, "Make Default"    },
  540.         {  7,  15,  25,  53},    StaticText    {disabled, "Font"                },
  541.         {  7, 184,  25, 217},    StaticText     {disabled, "Size"                },
  542.     }
  543. };
  544.  
  545. /************************** Preferences Dialog **************************/
  546.  
  547. resource 'DLOG' (PrefDialog, "", purgeable) {
  548.     {0, 0, 250, 400},
  549.     movableDBoxProc,
  550.     invisible,
  551.     goAway,
  552.     'tmDI',
  553.     PrefDialog,
  554.     "Preferences",
  555.     alertPositionMainScreen
  556. };
  557.  
  558. resource 'DITL' (PrefDialog, "", purgeable) {
  559.     {    {  0,  28,  32,  60}, UserItem { enabled },
  560.         {  0,  98,  32, 130}, UserItem { enabled },
  561.         {  0, 168,  32, 200}, UserItem { enabled },
  562.         { 53,   0,  54, 400}, UserItem { disabled },
  563.         { 20, 330,  40, 380}, Button   { enabled, "Done"},
  564.         { 20, 330,  40, 380}, UserItem { disabled }
  565.     }
  566. };
  567.  
  568. resource 'dctb' (PrefDialog, "", purgeable) {
  569.     {
  570.     }
  571. };
  572.  
  573. resource 'STR#' (PrefDialog) {
  574.     {    "Libraries",
  575.         "Scripts",
  576.         "Input",
  577.         "Change Path:",
  578.         "Add Path:"
  579.     }
  580. };
  581.  
  582. resource 'DITL' (PrefLibID, "", purgeable) {
  583.     {    { 60,  10, 220, 375}, UserItem { disabled },
  584.         {225,  25, 245, 145}, Button     { enabled, "Remove Path(s)"     },
  585.         {225, 255, 245, 375}, Button     { enabled, "Add Path…"            }
  586.     }
  587. };
  588.  
  589. resource 'ALRT' (PrefLibDelID, "", purgeable) {
  590.     {108, 158, 238, 476},
  591.     PrefLibDelID,
  592.     {    Cancel, visible, sound1,
  593.         Cancel, visible, sound1,
  594.         Cancel, visible, sound1,
  595.         Cancel, visible, sound1
  596.     },
  597.     alertPositionParentWindow
  598. };
  599.  
  600. resource 'DITL' (PrefLibDelID, "", purgeable) {
  601.     {    { 98, 227, 119, 292}, Button { enabled, "Delete"},
  602.         { 98,  27, 119,  92}, Button { enabled, "Cancel"},
  603.         {  9,  63,  89, 294}, StaticText {disabled, "Are you sure you want to delete the selected paths ?"},
  604.         { 10,  11,  42,  43}, Icon { disabled, 1 }
  605.     }
  606. };
  607.  
  608. resource 'DITL' (PrefScriptID, "", purgeable) {
  609.     {    { 80,  25, 100,  80}, RadioButton { enabled, "Edit"     },
  610.         {100,  25, 120,  80}, RadioButton { enabled, "Run"     },
  611.         {140,  25, 160, 375}, CheckBox     { enabled, "Check for #! line"},
  612.         { 93,  80, 113, 375}, StaticText  {disabled, "Scripts opened from Finder"}
  613.     }
  614. };
  615.  
  616. resource 'DITL' (PrefInputID, "", purgeable) {
  617.     {    { 80,  25, 100, 200}, CheckBox { enabled, "Enable inline input"     },
  618.     }
  619. };
  620.  
  621. /************************** General Error Dialog **************************/
  622.  
  623. resource 'ALRT' (300, "Error Alert", purgeable) {
  624.     {108, 158, 238, 476},
  625.     300,
  626.     {    /* array: 4 elements */
  627.         /* [1] */
  628.         OK, visible, sound1,
  629.         /* [2] */
  630.         OK, visible, sound1,
  631.         /* [3] */
  632.         OK, visible, sound1,
  633.         /* [4] */
  634.         OK, visible, sound1
  635.     },
  636.     alertPositionMainScreen
  637. };
  638.  
  639. resource 'DITL' (300, "", purgeable) {
  640.     {    /* array DITLarray: 3 elements */
  641.         /* [1] */
  642.         {98, 227, 119, 292},
  643.         Button {
  644.             enabled,
  645.             "Oh well"
  646.         },
  647.         /* [2] */
  648.         {9, 63, 89, 294},
  649.         StaticText {
  650.             enabled,
  651.             "Sorry an error has occured in the area o"
  652.             "f ^0. \nThe error code = ^1\n(^2)"
  653.         },
  654.         /* [3] */
  655.         {10, 11, 42, 43},
  656.         Icon {
  657.             enabled,
  658.             0
  659.         }
  660.     }
  661. };
  662.  
  663. /************************** Printing Progress Dialog **************************/
  664.  
  665. resource 'DLOG' (1005, "printing...", purgeable) {
  666.     {148, 157, 185, 354},
  667.     dBoxProc,
  668.     visible,
  669.     noGoAway,
  670.     0x0,
  671.     1005,
  672.     "printing…",
  673.     alertPositionParentWindow
  674. };
  675.  
  676. resource 'DITL' (1005, "printing...", purgeable) {
  677.     {    /* array DITLarray: 1 elements */
  678.         /* [1] */
  679.         {10, 10, 27, 235},
  680.         StaticText {
  681.             disabled,
  682.             "Type \0x11. to cancel printing"
  683.         }
  684.     }
  685. };
  686.  
  687. /************************** 7.0 only alert **************************/
  688.  
  689. resource 'ALRT' (302, "7.0 Only Alert") {
  690.     {50, 60, 192, 350},
  691.     302,
  692.     {    /* array: 4 elements */
  693.         /* [1] */
  694.         OK, visible, sound1,
  695.         /* [2] */
  696.         OK, visible, sound1,
  697.         /* [3] */
  698.         OK, visible, sound1,
  699.         /* [4] */
  700.         OK, visible, sound1
  701.     },
  702.     noAutoCenter
  703. };
  704.  
  705. resource 'DITL' (302) {
  706.     {    /* array DITLarray: 3 elements */
  707.         /* [1] */
  708.         {108, 213, 128, 273},
  709.         Button {
  710.             enabled,
  711.             "OK"
  712.         },
  713.         /* [2] */
  714.         {11, 63, 79, 278},
  715.         StaticText {
  716.             disabled,
  717.             "MacPerl requires System 7.0 or later to run."
  718.         },
  719.         /* [3] */
  720.         {11, 12, 43, 44},
  721.         Icon {
  722.             enabled,
  723.             0
  724.         }
  725.     }
  726. };
  727.  
  728. /************************** Get Script Dialog **************************/
  729.  
  730. resource 'DLOG' (GetScriptDialog, purgeable) {
  731.     {0, 0, 193, 344},
  732.     dBoxProc,
  733.     invisible,
  734.     noGoAway,
  735.     0x0,
  736.     512,
  737.     "",
  738.     alertPositionMainScreen
  739. };
  740.  
  741. resource 'DITL' (GetScriptDialog, purgeable) {
  742.     {    {135, 252, 155, 332},    Button     {    enabled, "Run"                        },
  743.         {104, 252, 124, 332},    Button     {    enabled,    "Cancel"                    },
  744.         {  0,   0,   0,   0},    HelpItem { disabled, HMScanhdlg { -6042 } },
  745.         {  8, 235,  24, 337},    UserItem {    enabled                                },
  746.         { 32, 252,  52, 332},    Button     {    enabled, "Eject"                    },
  747.         { 60, 252,  80, 332},    Button     {    enabled, "Desktop"                },
  748.         { 29,  12, 159, 230},    UserItem {    enabled                                },
  749.         {  6,  12,  25, 230},    UserItem {    enabled                                },
  750.         { 91, 251,  92, 333},    Picture  { disabled,    11                            },
  751.         {170,  12, 186, 110},    CheckBox    {  enabled, "Debug"                    }
  752.     }
  753. };
  754.  
  755. /************************** Save Dialog **************************/
  756.  
  757. resource 'DLOG' (SaveScriptDialog, purgeable) {
  758.     {30, 8, 260, 352},
  759.     dBoxProc,
  760.     invisible,
  761.     noGoAway,
  762.     'tmDI',
  763.     SaveScriptDialog,
  764.     "Put File",
  765.     noAutoCenter 
  766. };
  767.  
  768. resource 'DITL' (SaveScriptDialog, purgeable) {
  769.     {    {161, 252, 181, 332}, Button         { enabled, "Save"                 },
  770.         {130, 252, 150, 332}, Button         { enabled, "Cancel"                 },
  771.         {  0,   0,   0,   0}, HelpItem     { disabled, HMScanhdlg {-6043}},
  772.         {  8, 235,  24, 337}, UserItem     { enabled                             },
  773.         { 32, 252,  52, 332}, Button         { enabled, "Eject"                 },
  774.         { 60, 252,  80, 332}, Button         { enabled, "Desktop"             },
  775.         { 29,  12, 127, 230}, UserItem     { enabled                             },
  776.         {  6,  12,  25, 230}, UserItem     { enabled                             },
  777.         {119, 250, 120, 334}, Picture     { disabled, 11                        },
  778.         {157,  15, 173, 227}, EditText     { enabled, ""                         },
  779.         {136,  15, 152, 227}, StaticText { disabled, "Save as:"             },
  780.         { 88, 252, 108, 332}, UserItem     { disabled                             },
  781.         {187,  17, 206, 283}, Control     { enabled, SaveScriptDialog    },
  782.     }
  783. };
  784.  
  785. resource 'CNTL' (SaveScriptDialog, preload, purgeable) {
  786.     {187,  17, 206, 283},        /*enclosing rectangle of control*/
  787.     popupTitleLeftJust,             /*title position*/
  788.     visible,                         /*make control visible*/ 
  789.     50,                                 /*pixel width of title*/
  790.     SaveScriptDialog,             /*'MENU' resource ID*/
  791.     popupMenuCDEFProc,            /*pop-up control definition ID*/ 
  792.     0,                                 /*reference value*/
  793.     "Type:"                            /*control title*/
  794. };
  795.  
  796. resource 'MENU' (SaveScriptDialog) {
  797.     SaveScriptDialog,
  798.     textMenuProc,
  799.     0x7FFFFFFF,
  800.     enabled,
  801.     "Type",
  802.     {    "Plain Text",                 noIcon, noKey, noMark, plain,
  803.         "Droplet",                     noIcon, noKey, noMark, plain,
  804.         "System 6 & 7 Runtime", noIcon, noKey, noMark, plain,
  805.         "System 7 Runtime",         noIcon, noKey, noMark, plain
  806.     }
  807. };
  808.  
  809. /************************** No Perl Script Dialog **************************/
  810.  
  811. resource 'ALRT' (NoPerlAlert, "", purgeable) {
  812.     {86, 40, 210, 452},
  813.     NoPerlAlert,
  814.     {    OK, visible, silent,
  815.         OK, visible, silent,
  816.         OK, visible, silent,
  817.         OK, visible, silent
  818.     },
  819.     alertPositionParentWindow
  820. };
  821.  
  822. resource 'DITL' (NoPerlAlert) {
  823.     {    { 94, 323, 114, 402}, Button         { enabled, "Proceed"},
  824.         { 94, 231, 114, 310}, Button         { enabled, "Abort"},
  825.         { 10,  65,  79, 403}, StaticText {disabled, 
  826.             "I'm not sure “^0” is really a Perl script (the #! line is missing). "
  827.             "Still want to proceed with trying to execute this script?"
  828.                                                     },
  829.         { 10,  20,  42,  52}, Icon         {disabled, 2}
  830.     }
  831. };
  832.  
  833. /************************** File too bulky to open Dialog **************************/
  834.  
  835. resource 'ALRT' (ElvisAlert, "", purgeable) {
  836.     {86, 40, 210, 452},
  837.     ElvisAlert,
  838.     {    OK, visible, silent,
  839.         OK, visible, silent,
  840.         OK, visible, silent,
  841.         OK, visible, silent
  842.     },
  843.     alertPositionParentWindow
  844. };
  845.  
  846. resource 'DITL' (ElvisAlert) {
  847.     {    { 94, 323, 114, 402}, Button         { enabled, "Save"},
  848.         { 94, 231, 114, 310}, Button         { enabled, "Cancel"},
  849.         { 10,  65,  79, 403}, StaticText {disabled, 
  850.             "This file is too big to be edited in MacPerl. "
  851.             "You may, however, save it as a MacPerl script or runtime."
  852.                                                     },
  853.         { 10,  20,  42,  52}, Icon         {disabled, 2}
  854.     }
  855. };
  856.  
  857. /************************** Menus **************************/
  858.  
  859. resource 'MENU' (appleID) {
  860.     appleID,
  861.     1,
  862.     0x7FFFFFFD,
  863.     enabled,
  864.     apple,
  865.     {    /* array: 2 elements */
  866.         /* [1] */
  867.         "About MacPerl…", noIcon, noKey, noMark, plain,
  868.         /* [2] */
  869.         "-", noIcon, noKey, noMark, plain
  870.     }
  871. };
  872.  
  873. resource 'MENU' (fileID) {
  874.     fileID,
  875.     1,
  876.     0b101101111011,
  877.     enabled,
  878.     "File",
  879.     {    "New",             noIcon, "N",     noMark, plain,
  880.         "Open…",         noIcon, "O",     noMark, plain,
  881.         "-",                 noIcon, noKey, noMark, plain,
  882.         "Close",         noIcon, "W",     noMark, plain,
  883.         "Save",             noIcon, "S",     noMark, plain,
  884.         "Save As…",     noIcon, "S",     noMark, extend,
  885.         "Revert",         noIcon, noKey, noMark, plain,
  886.         "-",                 noIcon, noKey, noMark, plain,
  887.         "Page Setup…", noIcon, noKey, noMark, plain,
  888.         "Print…",         noIcon, "P",     noMark, plain,
  889.         "-",                 noIcon, noKey, noMark, plain,
  890.         "Quit",             noIcon, "Q",     noMark, plain
  891.     }
  892. };
  893.  
  894. resource 'MENU' (editID) {
  895.     editID,
  896.     1,
  897.     0b1011110101111101,
  898.     enabled,
  899.     "Edit",
  900.     {    "Undo", noIcon, "Z", noMark, plain,
  901.         "-", noIcon, noKey, noMark, plain,
  902.         "Cut", noIcon, "X", noMark, plain,
  903.         "Copy", noIcon, "C", noMark, plain,
  904.         "Paste", noIcon, "V", noMark, plain,
  905.         "Clear", noIcon, noKey, noMark, plain,
  906.         "Select All", noIcon, "A", noMark, plain,
  907.         "-", noIcon, noKey, noMark, plain,
  908.         "Format…", noIcon, "Y", noMark, plain,
  909. #ifndef RUNTIME
  910.         "-", noIcon, noKey, noMark, plain,
  911.         "Create Publisher…", noIcon, noKey, noMark, plain,
  912.         "Subscribe To…", noIcon, noKey, noMark, plain,
  913.         "Section Options…", noIcon, noKey, noMark, plain,
  914.         "Show Borders", noIcon, noKey, noMark, plain,
  915. #endif
  916.         "-", noIcon, noKey, noMark, plain,
  917.         "Preferences…", noIcon, noKey, noMark, plain,
  918.     }
  919. };
  920.  
  921. resource 'MENU' (windowID, preload) {
  922.     windowID,
  923.     1,
  924.     allEnabled,
  925.     enabled,
  926.     "Window",
  927.     {
  928.     }
  929. };
  930.  
  931. resource 'MENU' (perlID, preload) {
  932.     perlID,
  933.     1,
  934.     allEnabled,
  935.     enabled,
  936.     "Script",
  937.     {    "Run Script…",         noIcon, "R", noMark, plain,
  938.         "Run Front Window",     noIcon, "R", noMark, extend
  939.     }
  940. };
  941.  
  942. #ifndef RUNTIME
  943.  
  944. resource 'STR#' (fileID) {
  945.     {
  946. /*  1 */    "File Handling items.",
  947.  
  948. /*  2 */    "Creates a new file.",
  949. /*  3 */    "Creates a new file.  To enable this item, choose Close from the File menu.",
  950. /*  4 */    "Opens an existing file.",
  951. /*  5 */    "Opens an existing file.  To enable this item, choose Close from the File menu.",
  952. /*  6 */    "Closes the current file.",
  953. /*  7 */    "Closes the current file.  A window must be open before this item is enabled.",
  954. /*  8 */    "Saves the current file.",
  955. /*  9 */    "Saves the current file.  The window must be titled before this is enabled.",
  956. /* 10 */    "Saves the current file under a different name.",
  957. /* 11 */    "Saves the current file under a different name.",
  958. /* 12 */    "Reverts to the last saved version of the current file.",
  959. /* 13 */    "Reverts to the last saved version of the current file.  Enabled when you make a change to the file",
  960. /* 14 */    "Sets up paper size, orientation, and other printing options.",
  961. /* 15 */    "Sets up paper size, orientation, and other printing options.",
  962. /* 16 */    "Prints the text to the printer.",
  963. /* 17 */    "Prints all or part of the current file.  To enable this item, choose New or Open from the File menu.",
  964. /* 18 */    "Quit from MacPerl."
  965.     }
  966. };
  967.  
  968. resource 'hmnu' (fileID, "File") {
  969.     HelpMgrVersion,            /* Help Version                        */
  970.     0,                                /* options                                */
  971.     0,                                /* theProc                                */
  972.     0,                                /* variant                                */
  973.     HMSkipItem {                /* skip missing msg                    */
  974.         },
  975.     {
  976.         /* File */
  977.         HMStringResItem {
  978.             fileID,1,                /* menu title message                    */
  979.             fileID,1,                /* disabled title message                */
  980.             fileID,0,                /* reserved message                        */
  981.             fileID,0                    /* reserved message                        */
  982.         },
  983.  
  984.         /* New */
  985.         HMStringResItem {
  986.             fileID,2,                /* menu item message                    */
  987.             fileID,3,                /* disabled item message                */
  988.             fileID,0,                /* reserved message                        */
  989.             fileID,0                    /* reserved message                        */
  990.         },
  991.  
  992.         /* Open */
  993.         HMStringResItem {
  994.             fileID,4,                /* menu item message                    */
  995.             fileID,5,                /* disabled item message                */
  996.             fileID,0,                /* reserved message                        */
  997.             fileID,0                    /* reserved message                        */
  998.         },
  999.  
  1000.         /* Disabled Line */
  1001.         HMSkipItem {                /* skip missing msg                        */
  1002.         },
  1003.  
  1004.         /* Close */
  1005.         HMStringResItem {
  1006.             fileID,6,                /* menu item message                    */
  1007.             fileID,7,                /* disabled item message                */
  1008.             fileID,0,                /* reserved message                        */
  1009.             fileID,0                    /* reserved message                        */
  1010.         },
  1011.  
  1012.         /* Save */
  1013.         HMStringResItem {
  1014.             fileID,8,                /* menu item message                    */
  1015.             fileID,9,                /* disabled item message                */
  1016.             fileID,0,                /* reserved message                        */
  1017.             fileID,0                    /* reserved message                        */
  1018.         },
  1019.  
  1020.         /* Save As… */
  1021.         HMStringResItem {
  1022.             fileID,10,                /* menu item message                    */
  1023.             fileID,11,                /* disabled item message                */
  1024.             fileID,0,                /* reserved message                        */
  1025.             fileID,0                    /* reserved message                        */
  1026.         },
  1027.  
  1028.         /* Revert */
  1029.         HMStringResItem {
  1030.             fileID,12,                /* menu item message                    */
  1031.             fileID,13,                /* disabled item message                */
  1032.             fileID,0,                /* reserved message                        */
  1033.             fileID,0                    /* reserved message                        */
  1034.         },
  1035.  
  1036.         /* Disabled Line */
  1037.         HMSkipItem {                /* skip missing msg                        */
  1038.         },
  1039.  
  1040.         /* Page Setup… */
  1041.         HMStringResItem {
  1042.             fileID,14,                /* menu item message                    */
  1043.             fileID,15,                /* disabled item message                */
  1044.             fileID,0,                /* reserved message                        */
  1045.             fileID,0                    /* reserved message                        */
  1046.         },
  1047.  
  1048.         /* Print */
  1049.         HMStringResItem {
  1050.             fileID,16,                /* menu item message                    */
  1051.             fileID,17,                /* disabled item message                */
  1052.             fileID,0,                /* reserved message                        */
  1053.             fileID,0                    /* reserved message                        */
  1054.         },
  1055.  
  1056.         /* Disabled Line */
  1057.         HMSkipItem {                /* skip missing msg                        */
  1058.         },
  1059.  
  1060.         /* Quit */
  1061.         HMStringResItem {
  1062.             fileID,18,                /* menu item message                    */
  1063.             fileID,0,                /* disabled item message                */
  1064.             fileID,0,                /* reserved message                        */
  1065.             fileID,0                    /* reserved message                        */
  1066.         }
  1067.     }
  1068. };
  1069.  
  1070. resource 'STR#' (editID) {
  1071.     {
  1072. /*  1 */    "Editing Items.",
  1073.  
  1074. /*  2 */    "Restore the document to the state it was before the last action.",
  1075. /*  3 */    "Restore the document to the state it was before the last action. (Not currently implemented)",
  1076. /*  4 */    "Delete the current text selection and copy it to the clipboard.",
  1077. /*  5 */    "Delete the current text selection and copy it to the clipboard. Select some text to enable this item.",
  1078. /*  6 */    "Copy the current text selection to the clipboard.",
  1079. /*  7 */    "Copy the current text selection to the clipboard. Select some text to enable this item.",
  1080. /*  8 */    "Take the text from the clipboard and add it at the current insertion point.",
  1081. /*  9 */    "Take the text from the clipboard and add it at the current insertion point. This item is enabled when there is some text on the clipboard",
  1082. /* 10 */    "Delete the currently selected text.",
  1083. /* 11 */    "Delete the currently selected text.  Select some text to enable this item.",
  1084. /* 12 */    "Select all the text in the document.",
  1085. /* 13 */    "Select all the text in this document.  This item is enabled when a window is open.",
  1086. /* 14 */ "Set the font and size of the document.",
  1087. /* 15 */    "Display the Create Publisher dialog to publish the selected text.",
  1088. /* 16 */    "Publish selected text. Select some text in a document window to enable this item.",
  1089. /* 17 */    "Put up the Subscriber dialog Subscribe to a Published section of text.",
  1090. /* 18 */    "Put up the Subscriber dialog Subscribe to a Published section of text.  Enabled in a document window when no publisher is selected.",
  1091. /* 19 */    "Display the Section Options dialog for a Publisher or Subscriber.",
  1092. /* 20 */    "Display the Section Options dialog for a Publisher or Subscriber.  Select a Publisher or Subscriber to enable this item.",
  1093. /* 21 */    "Show/Hide the all the Publisher or Subscriber borders.",
  1094. /* 22 */    "Show/Hide the all the Publisher or Subscriber borders. Enabled in a document window.",
  1095. /* 23 */ "Edit Preferences."
  1096.     }
  1097. };
  1098.  
  1099.  
  1100.  
  1101. resource 'hmnu' (editID, "Edit") {
  1102.     HelpMgrVersion,                    /* Help Version                            */
  1103.     0,                                /* options                                */
  1104.     0,                                /* theProc                                */
  1105.     0,                                /* variant                                */
  1106.     HMSkipItem {                    /* skip missing msg                        */
  1107.         },
  1108.     {
  1109.         /* edit */
  1110.         HMStringResItem {
  1111.             editID,1,                /* menu title message                    */
  1112.             editID,1,                /* disabled title message                */
  1113.             editID,0,                /* reserved message                        */
  1114.             editID,0                    /* reserved message                        */
  1115.         },
  1116.  
  1117.         /* Undo */
  1118.         HMStringResItem {
  1119.             editID,2,                /* menu item message                    */
  1120.             editID,3,                /* disabled item message                */
  1121.             editID,0,                /* reserved message                        */
  1122.             editID,0                    /* reserved message                        */
  1123.         },
  1124.  
  1125.         /* Disabled Item */
  1126.         HMSkipItem {                /* skip missing msg                        */
  1127.         },
  1128.  
  1129.         /* Cut */
  1130.         HMStringResItem {
  1131.             editID,4,                /* menu item message                    */
  1132.             editID,5,                /* disabled item message                */
  1133.             editID,0,                /* reserved message                        */
  1134.             editID,0                    /* reserved message                        */
  1135.         },
  1136.  
  1137.         /* Copy */
  1138.         HMStringResItem {
  1139.             editID,6,                /* menu item message                    */
  1140.             editID,7,                /* disabled item message                */
  1141.             editID,0,                /* reserved message                        */
  1142.             editID,0                    /* reserved message                        */
  1143.         },
  1144.  
  1145.         /* Paste */
  1146.         HMStringResItem {
  1147.             editID,8,                /* menu item message                    */
  1148.             editID,9,                /* disabled item message                */
  1149.             editID,0,                /* reserved message                        */
  1150.             editID,0                    /* reserved message                        */
  1151.         },
  1152.  
  1153.         /* Clear */
  1154.         HMStringResItem {
  1155.             editID,10,                /* menu item message                    */
  1156.             editID,11,                /* disabled item message                */
  1157.             editID,0,                /* reserved message                        */
  1158.             editID,0                    /* reserved message                        */
  1159.         },
  1160.  
  1161.         /* Select All */
  1162.         HMStringResItem {
  1163.             editID,12,                /* menu item message                    */
  1164.             editID,13,                /* disabled item message                */
  1165.             editID,0,                /* reserved message                        */
  1166.             editID,0                    /* reserved message                        */
  1167.         },
  1168.  
  1169.         /* Disabled Line */
  1170.         HMSkipItem {                /* skip missing msg                        */
  1171.         },
  1172.  
  1173.         /* Format */
  1174.         HMStringResItem {
  1175.             editID,14,                /* menu item message                    */
  1176.             editID,0,                /* disabled item message                */
  1177.             editID,0,                /* reserved message                        */
  1178.             editID,0                    /* reserved message                        */
  1179.         },
  1180.         
  1181.         /* Disabled Line */
  1182.         HMSkipItem {                /* skip missing msg                        */
  1183.         },
  1184.  
  1185.         /* Create Publisher*/
  1186.         HMStringResItem {
  1187.             editID,15,                /* menu item message                    */
  1188.             editID,16,                /* disabled item message                */
  1189.             editID,0,                /* reserved message                        */
  1190.             editID,0                    /* reserved message                        */
  1191.         },
  1192.  
  1193.         /* Subscribe To..*/
  1194.         HMStringResItem {
  1195.             editID,17,                /* menu item message                    */
  1196.             editID,18,                /* disabled item message                */
  1197.             editID,0,                /* reserved message                        */
  1198.             editID,0                    /* reserved message                        */
  1199.         },
  1200.  
  1201.         /* Section Options*/
  1202.         HMStringResItem {
  1203.             editID,19,                /* menu item message                    */
  1204.             editID,20,                /* disabled item message                */
  1205.             editID,0,                /* reserved message                        */
  1206.             editID,0                    /* reserved message                        */
  1207.         },
  1208.  
  1209.         /* Show/Hide borders*/
  1210.         HMStringResItem {
  1211.             editID,21,                /* menu item message                        */
  1212.             editID,22,                /* disabled item message                */
  1213.             editID,0,                /* reserved message                        */
  1214.             editID,0                    /* reserved message                        */
  1215.         },
  1216.         
  1217.         /* Disabled Item */
  1218.         HMSkipItem {                /* skip missing msg                        */
  1219.         },
  1220.  
  1221.         /* Preferences */
  1222.         HMStringResItem {
  1223.             editID,23,                /* menu item message                    */
  1224.             editID,0,                /* disabled item message                */
  1225.             editID,0,                /* reserved message                        */
  1226.             editID,0                    /* reserved message                        */
  1227.         },
  1228.    }
  1229. };
  1230.  
  1231. resource 'STR#' (perlID) {
  1232.     {
  1233. /*  1 */    "Running Scripts",
  1234.  
  1235. /*  2 */    "Runs a Script.",
  1236.  
  1237. /*  3 */ "Runs the script in the front window.",
  1238.  
  1239. /*  4 */ "Runs the script in the front window. Enabled if a document window is in front.",
  1240.  
  1241.     }
  1242. };
  1243.  
  1244. resource 'hmnu' (perlID, "Script") {
  1245.     HelpMgrVersion,                /* Help Version                            */
  1246.     0,                                    /* options                                */
  1247.     0,                                    /* theProc                                */
  1248.     0,                                    /* variant                                */
  1249.     HMSkipItem {                    /* skip missing msg                        */
  1250.         },
  1251.     {
  1252.         /* Script */
  1253.         HMStringResItem {
  1254.             perlID,1,                /* menu title message                    */
  1255.             perlID,1,                /* disabled title message                */
  1256.             perlID,0,                /* reserved message                        */
  1257.             perlID,0                    /* reserved message                        */
  1258.         },
  1259.  
  1260.         /* Run */
  1261.         HMStringResItem {
  1262.             perlID,2,                /* menu item message                    */
  1263.             perlID,0,                /* disabled item message                */
  1264.             perlID,0,                /* reserved message                        */
  1265.             perlID,0                    /* reserved message                        */
  1266.         },
  1267.  
  1268.         /* Run Front*/
  1269.         HMStringResItem {
  1270.             perlID,3,                /* menu item message                        */
  1271.             perlID,4,                /* disabled item message                */
  1272.             perlID,0,                /* reserved message                        */
  1273.             perlID,0                    /* reserved message                        */
  1274.         },
  1275.    }
  1276. };
  1277.  
  1278. resource 'STR ' (helpID) {
  1279.     "Perl Help/H"
  1280. };
  1281.  
  1282.  
  1283. resource 'STR#' (256) {
  1284.     {
  1285.         "Indicates that this window is a modifiable text document.",
  1286.         "Indicates that this window is a read-only text document.",
  1287.         "Indicates that this window is a console window that is currently expecting input.",
  1288.         "Indicates that this window is a read-only console window.",
  1289.         "Indicates that this window is a console window that is not currently expecting input.",
  1290.     }
  1291. };
  1292.  
  1293. #include "MPTerminology.r"
  1294.  
  1295. #endif
  1296.