home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / MacPerl5 / MacPerl.r < prev    next >
Encoding:
Text File  |  1995-11-28  |  32.5 KB  |  1,309 lines  |  [TEXT/MPS ]
  1. /*********************************************************************
  2. Project    :    MacPerl            -    Real Perl Application
  3. File        :    MacPerl.r        -    User interface 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. include ":MP:FontLDEF.rsrc";
  82.  
  83. include "MacPerl.rsrc" 'BNDL'(128);
  84. include "MacPerl.rsrc" 'McPL'(0);
  85. include "MacPerl.rsrc" 'ICN#'(128);
  86. include "MacPerl.rsrc" 'icl4'(128);
  87. include "MacPerl.rsrc" 'icl8'(128);
  88. include "MacPerl.rsrc" 'ics#'(128);
  89. include "MacPerl.rsrc" 'BNDL'(129)     as 'MrPB'(128);
  90. include "MacPerl.rsrc" 'MrPL'(0);
  91. include "MacPerl.rsrc" 'ICN#'(132)     as 'MrPI'(128);
  92. include "MacPerl.rsrc" 'icl4'(132)     as 'MrP4'(128);
  93. include "MacPerl.rsrc" 'icl8'(132)     as 'MrP8'(128);
  94. include "MacPerl.rsrc" 'ics#'(132)     as 'MrP#'(128);
  95. include "MacPerl.rsrc" 'ALRT'(4096)    as 'MrPA'(4096);
  96. include "MacPerl.rsrc" 'DITL'(4096)    as 'MrPD'(4096);
  97. include "MacPerl.rsrc" 'FREF'(135);
  98. include "MacPerl.rsrc" 'ICN#'(134);
  99. include "MacPerl.rsrc" 'icl4'(134);
  100. include "MacPerl.rsrc" 'icl8'(134);
  101. include "MacPerl.rsrc" 'ics#'(134);
  102. include "MacPerl.rsrc" 'DITL'(258);
  103. include "MacPerl.rsrc" 'DLOG'(258);
  104. include "MacPerl.rsrc" 'FREF'(128);
  105. include "MacPerl.rsrc" 'FREF'(129);
  106. include "MacPerl.rsrc" 'FREF'(130);
  107. include "MacPerl.rsrc" 'FREF'(131);
  108. include "MacPerl.rsrc" 'FREF'(132);
  109. include "MacPerl.rsrc" 'FREF'(133);
  110. include "MacPerl.rsrc" 'FREF'(134);
  111. include "MacPerl.rsrc" 'ICN#'(129);
  112. include "MacPerl.rsrc" 'ICN#'(130);
  113. include "MacPerl.rsrc" 'ICN#'(131);
  114. include "MacPerl.rsrc" 'ICN#'(385);
  115. include "MacPerl.rsrc" 'ICN#'(386);
  116. include "MacPerl.rsrc" 'ICN#'(387);
  117. include "MacPerl.rsrc" 'PICT'(128);
  118. include "MacPerl.rsrc" 'PICT'(129);
  119. include "MacPerl.rsrc" 'PICT'(130);
  120. include "MacPerl.rsrc" 'snd '(128);
  121. include "MacPerl.rsrc" 'snd '(129);
  122. include "MacPerl.rsrc" 'icl4'(129);
  123. include "MacPerl.rsrc" 'icl4'(130);
  124. include "MacPerl.rsrc" 'icl4'(131);
  125. include "MacPerl.rsrc" 'icl4'(385);
  126. include "MacPerl.rsrc" 'icl4'(386);
  127. include "MacPerl.rsrc" 'icl4'(387);
  128. include "MacPerl.rsrc" 'icl8'(129);
  129. include "MacPerl.rsrc" 'icl8'(130);
  130. include "MacPerl.rsrc" 'icl8'(131);
  131. include "MacPerl.rsrc" 'icl8'(385);
  132. include "MacPerl.rsrc" 'icl8'(386);
  133. include "MacPerl.rsrc" 'icl8'(387);
  134. include "MacPerl.rsrc" 'icm#'(256);
  135. include "MacPerl.rsrc" 'icm#'(257);
  136. include "MacPerl.rsrc" 'icm#'(264);
  137. include "MacPerl.rsrc" 'icm#'(265);
  138. include "MacPerl.rsrc" 'icm#'(266);
  139.  
  140. #define GUSI_PREF_VERSION '0150'
  141.  
  142. #include "GUSI.r"
  143.  
  144. include "Perl.rsrc";
  145.  
  146. resource 'GU∑I' (GUSIRsrcID) {
  147.     text, mpw, noAutoSpin, useChdir, approxStat, 
  148.     noTCPDaemon, noUDPDaemon, 
  149.     hasConsole,
  150.     {};
  151. };
  152.  
  153.  
  154. #ifdef APPNAME    // only include 'cfrg' in native PowerPC apps
  155.  
  156. #include "CodeFragmentTypes.r"
  157.  
  158. resource 'cfrg' (0) {
  159.     {
  160.         kPowerPC,
  161.         kFullLib,
  162.         kNoVersionNum,kNoVersionNum,
  163.         0,0,
  164.         kIsApp,kOnDiskFlat,kZeroOffset,kWholeFork,
  165.         APPNAME    // must be defined on Rez command line with -d option
  166.     }
  167. };
  168.  
  169. #endif
  170.  
  171. #ifdef OSL
  172. include OSL 'proc';
  173. #endif
  174.  
  175. resource 'vers' (1) {
  176.     0x05, 0x03, release, 0x01, verUS,
  177.     "5.0.3r1m",
  178.     "MacPerl - ported by Matthias Neeracher."
  179.     };
  180.  
  181. resource 'vers' (2) {
  182.     0x05, 0x03, release, 0x01, verUS,
  183.     "5.0.3r1m",
  184.     "Perl 5.0.3r1m (26Nov95)"
  185.     };
  186.  
  187. resource 'STR#' (CreditID) {
  188.     {
  189.         "Charles Albrecht",
  190.         "Larry Allen-Tonar",
  191.         "Kevin Altis",
  192.         "Phil Ames",
  193.         "Roberto Avanzi",
  194.         "Peter Van Avermaet",
  195.         "Stonewall Ballard",
  196.         "Joaquim Baptista",
  197.         "Berardino Baratta",
  198.         "Joe Bearly",
  199.         "Benjamin Beberness",
  200.         "Paddy Benson",
  201.         "David Blank-Edelman",
  202.         "Jason Buberel",
  203.         "James Burgess",
  204.         "Alun Carr",
  205.         "Henry Churchyard",
  206.         "Scott Collins",
  207.         "Steve Dorner",
  208.         "Torsten Ekedahl",
  209.         "Tim Endres",
  210.         "Gus Fernandez",
  211.         "Glenn Fleishman",
  212.         "David Friedlander",
  213.         "Greg Galanos", 
  214.         "Michael Greenspon",
  215.         "Sal Gurnani",
  216.         "David Hansen",
  217.         "Steve Hampson",
  218.         "Brad Hanson",
  219.         "Martin Heller",
  220.         "Todd Hivnor",
  221.         "C. Joe Holmes",
  222.         "John Kamp",
  223.         "Dick Karpinski",
  224.         "Jim Kateley",
  225.         "Pete Keleher",
  226.         "Thomas Kimpton",
  227.         "Gary LaVoy",
  228.         "Thomas Lenggenhager",
  229.         "Peter Lewis",
  230.         "John Liberty",
  231.         "Ron Liechty",
  232.         "Jann Linder",
  233.         "Roger Linder",
  234.         "Mike Meckler",
  235.         "Peter Möller",
  236.         "Richard Moe",
  237.         "Bill Moore",
  238.         "Chris Myers",
  239.         "Asa Packer",
  240.         "Mark Pease",
  241.         "Brad Pickering",
  242.         "Tom Pollard",
  243.         "Simon Poole",
  244.         "Malcolm Pradhan",
  245.         "Quinn",
  246.         "Alasdair Rawsthorne",
  247.         "Charlie Reiman",
  248.         "King Rhoton",
  249.         "Paul Schinder",
  250.         "Shimizu Shu",
  251.         "Sandra Silcot",
  252.         "Paul Snively",
  253.         "Omar Souka",
  254.         "Dan Strnad",
  255.         "Man Wei Tam",
  256.         "James Tisdall",
  257.         "Werner Uhrig",
  258.         "Maki Watanabe",
  259.         "Mike West",
  260.         "Peter Whaite",
  261.         "Forrest Whitcher",
  262.         "Hal Wine",
  263.         "Barry Wolman",
  264.         "Michael Wu",
  265.         "Yuemo Zeng",
  266.         "… and many others.",
  267.     }
  268. };
  269.  
  270. resource 'SIZE' (-1) {
  271.     dontSaveScreen,
  272.     acceptSuspendResumeEvents,
  273.     enableOptionSwitch,
  274.     canBackground,
  275.     multiFinderAware,
  276.     backgroundAndForeground,
  277.     dontGetFrontClicks,
  278.     ignoreChildDiedEvents,
  279.     is32BitCompatible,
  280.     isHighLevelEventAware,
  281.     localAndRemoteHLEvents,
  282.     reserved,
  283.     reserved,
  284.     reserved,
  285.     reserved,
  286.     reserved,
  287.     2048 * 1024,
  288.     1536 * 1024
  289. };
  290.  
  291. type 'MrPS' as 'SIZE';
  292.  
  293. resource 'MrPS' (-1) {
  294.     dontSaveScreen,
  295.     acceptSuspendResumeEvents,
  296.     enableOptionSwitch,
  297.     canBackground,
  298.     multiFinderAware,
  299.     backgroundAndForeground,
  300.     dontGetFrontClicks,
  301.     ignoreChildDiedEvents,
  302.     is32BitCompatible,
  303.     isHighLevelEventAware,
  304.     localAndRemoteHLEvents,
  305.     reserved,
  306.     reserved,
  307.     reserved,
  308.     reserved,
  309.     reserved,
  310.     65536,
  311.     65536
  312. };
  313.  
  314. /************************** Window templates **************************/
  315.  
  316. resource 'WIND' (WindowTemplates, "", purgeable) {
  317.     {18, 48, 312, 488},
  318.     zoomDocProc,
  319.     invisible,
  320.     goAway,
  321.     0x0,
  322.     Untitled, 
  323.     noAutoCenter
  324. };
  325.  
  326. resource 'WIND' (WindowTemplates+1, "", purgeable) {
  327.     {18, 48, 312, 488},
  328.     zoomDocProc,
  329.     invisible,
  330.     goAway,
  331.     0x0,
  332.     "MacPerl",
  333.     noAutoCenter
  334. };
  335.  
  336. resource 'WIND' (WindowTemplates+2, "", purgeable) {
  337.     {18, 48, 312, 488},
  338.     zoomDocProc,
  339.     invisible,
  340.     goAway,
  341.     0x0,
  342.     Untitled,
  343.     noAutoCenter
  344. };
  345.  
  346. /************************** MacPerl'Answer Dialog **************************/
  347.  
  348. resource 'DLOG' (2001)    {
  349.     {  0,   0, 150, 400},
  350.     dBoxProc,
  351.     invisible,
  352.     noGoAway,
  353.     0,
  354.     2001,
  355.     "",
  356.     alertPositionMainScreen
  357. };
  358.  
  359. resource 'DITL' (2001)    {
  360.     {
  361.         {119,  307, 137,  387}, Button         { enabled, "^1"},
  362.         {119, 8406, 137, 8486}, Button         { enabled, "^2"},
  363.         {119, 8313, 137, 8393}, Button         { enabled, "^3"},
  364.         { 13,   23,  45,   55}, Icon            {disabled, 0    },
  365.         { 13,   78, 103,  387}, StaticText    {disabled, "^0"}
  366.     }
  367. };
  368.  
  369.  
  370. resource 'DLOG' (2002)    {
  371.     {  0,   0, 150, 400},
  372.     dBoxProc,
  373.     invisible,
  374.     noGoAway,
  375.     0,
  376.     2002,
  377.     "",
  378.     alertPositionMainScreen
  379. };
  380.  
  381. resource 'DITL' (2002)    {
  382.     {
  383.         {119,  307, 137,  387}, Button         { enabled, "^1"},
  384.         {119,  214, 137,  294}, Button         { enabled, "^2"},
  385.         {119, 8313, 137, 8393}, Button         { enabled, "^3"},
  386.         { 13,   23,  45,   55}, Icon            {disabled, 2    },
  387.         { 13,   78, 103,  387}, StaticText    {disabled, "^0"}
  388.     }
  389. };
  390.  
  391. resource 'DLOG' (2003)    {
  392.     {  0,   0, 150, 400},
  393.     dBoxProc,
  394.     invisible,
  395.     noGoAway,
  396.     0,
  397.     2003,
  398.     "",
  399.     alertPositionMainScreen
  400. };
  401.  
  402. resource 'DITL' (2003)    {
  403.     {
  404.         {119, 307, 137, 387}, Button         { enabled, "B1"},
  405.         {119, 214, 137, 294}, Button         { enabled, "B2"},
  406.         {119, 121, 137, 201}, Button         { enabled, "B3"},
  407.         { 13,  23,  45,  55}, Icon            {disabled, 2    },
  408.         { 13,  78, 103, 387}, StaticText    {disabled, "Prompt"}
  409.     }
  410. };
  411.  
  412. /************************** MacPerl'Ask Dialogs **************************/
  413.  
  414. resource 'DLOG' (2010) {
  415.     {0, 0, 104, 400},
  416.     dBoxProc,
  417.     invisible,
  418.     noGoAway,
  419.     'tmDI',
  420.     2010,
  421.     "",
  422.     alertPositionMainScreen
  423. };
  424.  
  425. resource 'DITL' (2010, "Ask", purgeable) {
  426.     {
  427.         {73, 307, 91, 387}, Button             { enabled, "OK"},
  428.         {73, 214, 91, 294},    Button             { enabled, "Cancel"},
  429.         {13,  13, 31, 387},    StaticText         {disabled, "^0"},
  430.         {44,  15, 60, 385}, EditText             {disabled, ""}
  431.     }
  432. };
  433.  
  434. /************************** MacPerl'Pick Dialog **************************/
  435.  
  436. resource 'DLOG' (2020) {
  437.     {38, 80, 245, 427},
  438.     dBoxProc,
  439.     invisible,
  440.     noGoAway,
  441.     0x0,
  442.     2020,
  443.     "",
  444.     alertPositionMainScreen
  445. };
  446.  
  447. resource 'DITL' (2020) {
  448.     {
  449.         {178,  30, 198,  88},    Button         { enabled, "OK"},
  450.         {178, 258, 198, 316},    Button         { enabled, "Cancel"},
  451.         {  2,   2,  19, 373},    StaticText     {disabled, "Prompt"},
  452.         { 19,   2, 168, 345},    UserItem     {disabled}
  453.     }
  454. };
  455.  
  456. /************************** Error Dialog **************************/
  457.  
  458. resource 'ALRT' (ErrorAlert, "", purgeable) {
  459.     {82, 104, 212, 426},
  460.     ErrorAlert,
  461.     {    OK, visible, silent,
  462.         OK, visible, silent,
  463.         OK, visible, silent,
  464.         OK, visible, silent
  465.     },
  466.     alertPositionMainScreen
  467. };
  468.  
  469. resource 'DITL' (ErrorAlert, "", purgeable) {
  470.     {    { 98, 240, 118, 300}, Button {enabled, "OK"},
  471.         {  9,  57,  86, 300}, StaticText {enabled, "^0^1^2^3"},
  472.         {  9,   7,  41,  39}, Icon {enabled, 1}
  473.     }
  474. };
  475.  
  476. /************************** Save Changes Dialog **************************/
  477.  
  478. resource 'ALRT' (SaveAlert, "", purgeable) {
  479.     {86, 60, 190, 432},
  480.     SaveAlert,
  481.     {    OK, visible, silent,
  482.         OK, visible, silent,
  483.         OK, visible, silent,
  484.         OK, visible, silent
  485.     },
  486.     alertPositionParentWindow
  487. };
  488.  
  489. resource 'DITL' (SaveAlert) {
  490.     {    { 74, 303,  94, 362}, Button         { enabled, "Save"},
  491.         { 74,  65,  94, 150}, Button         { enabled, "Don’t Save"},
  492.         { 74, 231,  94, 290}, Button         { enabled, "Cancel"},
  493.         { 10,  65,  59, 363}, StaticText {disabled, "Save changes to “^0”?"},
  494.         { 10,  20,  42,  52}, Icon         {disabled, 2},
  495.         {  0,   0,   0,   0}, HelpItem     {disabled, HMScanhdlg { SaveAlert } },
  496.     }
  497. };
  498.  
  499. /************************** Revert Dialog **************************/
  500.  
  501. resource 'ALRT' (RevertAlert, "", purgeable) {
  502.     {86, 60, 190, 432},
  503.     RevertAlert,
  504.     {    OK, visible, silent,
  505.         OK, visible, silent,
  506.         OK, visible, silent,
  507.         OK, visible, silent
  508.     },
  509.     alertPositionParentWindow
  510. };
  511.  
  512. resource 'DITL' (RevertAlert) {
  513.     {    { 74, 303,  94, 362}, Button         { enabled, "Revert"},
  514.         { 74, 231,  94, 290}, Button         { enabled, "Cancel"},
  515.         { 10,  65,  59, 363}, StaticText {disabled, "Revert to the last saved version of “^0”?"},
  516.         { 10,  20,  42,  52}, Icon         {disabled, 2},
  517.         {  0,   0,   0,   0}, HelpItem     {disabled, HMScanhdlg { RevertAlert } },
  518.     }
  519. };
  520.  
  521. /************************** Abort Dialog **************************/
  522.  
  523. resource 'ALRT' (AbortAlert, "", purgeable) {
  524.     {86, 60, 190, 432},
  525.     AbortAlert,
  526.     {    OK, visible, silent,
  527.         OK, visible, silent,
  528.         OK, visible, silent,
  529.         OK, visible, silent
  530.     },
  531.     alertPositionParentWindow
  532. };
  533.  
  534. resource 'DITL' (AbortAlert) {
  535.     {    { 74, 303,  94, 362}, Button         { enabled, "Quit"},
  536.         { 74, 231,  94, 290}, Button         { enabled, "Cancel"},
  537.         { 10,  65,  59, 363}, StaticText {disabled, "Quit (and abort current Perl script)?"},
  538.         { 10,  20,  42,  52}, Icon         {disabled, 2},
  539.         {  0,   0,   0,   0}, HelpItem     {disabled, HMScanhdlg { AbortAlert } },
  540.     }
  541. };
  542.  
  543. /************************** Format Dialog **************************/
  544.  
  545. resource 'DLOG' (FormatDialog, "", purgeable) {
  546.     {68, 52, 245, 435},
  547.     movableDBoxProc,
  548.     invisible,
  549.     goAway,
  550.     0x0,
  551.     FormatDialog,
  552.     "Format",
  553.     alertPositionParentWindow
  554. };
  555.  
  556. resource 'DITL' (FormatDialog, purgeable) {
  557.     {    {104, 268, 124, 341},    Button         { enabled, "OK"                },
  558.         {135, 268, 156, 341},    Button         { enabled, "Cancel"            },
  559.         { 28,  11, 156, 170},    UserItem     { enabled                        },
  560.         { 60, 181, 156, 219},    UserItem     { enabled                        },
  561.         { 28, 233, 156, 234},    UserItem     {disabled                        },
  562.         {104, 268, 124, 341},    UserItem     {disabled                        },
  563.         { 30, 183,  46, 217},    EditText     {disabled, ""                    },
  564.         { 42, 245,  62, 372},    CheckBox     { enabled, "Make Default"    },
  565.         {  7,  15,  25,  53},    StaticText    {disabled, "Font"                },
  566.         {  7, 184,  25, 217},    StaticText     {disabled, "Size"                },
  567.         {  0,   0,   0,   0},     HelpItem     { disabled, HMScanhdlg { FormatDialog } },
  568.     }
  569. };
  570.  
  571. /************************** Preferences Dialog **************************/
  572.  
  573. resource 'DLOG' (PrefDialog, "", purgeable) {
  574.     {0, 0, 250, 400},
  575.     movableDBoxProc,
  576.     invisible,
  577.     goAway,
  578.     'tmDI',
  579.     PrefDialog,
  580.     "Preferences",
  581.     alertPositionMainScreen
  582. };
  583.  
  584. resource 'DITL' (PrefDialog, "", purgeable) {
  585.     {    {  0,  28,  32,  60}, UserItem { enabled },
  586.         {  0,  98,  32, 130}, UserItem { enabled },
  587.         {  0, 168,  32, 200}, UserItem { enabled },
  588.         { 53,   0,  54, 400}, UserItem { disabled },
  589.         {  0,   0,   0,   0}, HelpItem { disabled, HMScanhdlg { PrefDialog } },
  590.         { 20, 330,  40, 380}, Button   { enabled, "Done"},
  591.         { 20, 330,  40, 380}, UserItem { disabled }
  592.     }
  593. };
  594.  
  595. resource 'dctb' (PrefDialog, "", purgeable) {
  596.     {
  597.     }
  598. };
  599.  
  600. resource 'STR#' (PrefDialog) {
  601.     {    "Libraries",
  602.         "Scripts",
  603.         "Input",
  604.         "Change Path:",
  605.         "Add Path:"
  606.     }
  607. };
  608.  
  609. resource 'DITL' (PrefLibID, "", purgeable) {
  610.     {    { 60,  10, 220, 375}, UserItem { disabled },
  611.         {225,  25, 245, 145}, Button     { enabled, "Remove Path(s)"     },
  612.         {225, 255, 245, 375}, Button     { enabled, "Add Path…"            }
  613.     }
  614. };
  615.  
  616. resource 'ALRT' (PrefLibDelID, "", purgeable) {
  617.     {108, 158, 238, 476},
  618.     PrefLibDelID,
  619.     {    Cancel, visible, sound1,
  620.         Cancel, visible, sound1,
  621.         Cancel, visible, sound1,
  622.         Cancel, visible, sound1
  623.     },
  624.     alertPositionParentWindow
  625. };
  626.  
  627. resource 'DITL' (PrefLibDelID, "", purgeable) {
  628.     {    { 98, 227, 119, 292}, Button { enabled, "Delete"},
  629.         { 98,  27, 119,  92}, Button { enabled, "Cancel"},
  630.         {  9,  63,  89, 294}, StaticText {disabled, "Are you sure you want to delete the selected paths ?"},
  631.         { 10,  11,  42,  43}, Icon { disabled, 1 }
  632.     }
  633. };
  634.  
  635. resource 'DITL' (PrefScriptID, "", purgeable) {
  636.     {    { 80,  25, 100,  80}, RadioButton { enabled, "Edit"     },
  637.         {100,  25, 120,  80}, RadioButton { enabled, "Run"     },
  638.         {140,  25, 160, 375}, CheckBox     { enabled, "Check for #! line"},
  639.         { 93,  80, 113, 375}, StaticText  {disabled, "Scripts opened from Finder"}
  640.     }
  641. };
  642.  
  643. resource 'DITL' (PrefInputID, "", purgeable) {
  644.     {    { 80,  25, 100, 200}, CheckBox { enabled, "Enable inline input"     },
  645.     }
  646. };
  647.  
  648. /************************** General Error Dialog **************************/
  649.  
  650. resource 'ALRT' (300, "Error Alert", purgeable) {
  651.     {108, 158, 238, 476},
  652.     300,
  653.     {    /* array: 4 elements */
  654.         /* [1] */
  655.         OK, visible, sound1,
  656.         /* [2] */
  657.         OK, visible, sound1,
  658.         /* [3] */
  659.         OK, visible, sound1,
  660.         /* [4] */
  661.         OK, visible, sound1
  662.     },
  663.     alertPositionMainScreen
  664. };
  665.  
  666. resource 'DITL' (300, "", purgeable) {
  667.     {    /* array DITLarray: 3 elements */
  668.         /* [1] */
  669.         {98, 227, 119, 292},
  670.         Button {
  671.             enabled,
  672.             "Oh well"
  673.         },
  674.         /* [2] */
  675.         {9, 63, 89, 294},
  676.         StaticText {
  677.             enabled,
  678.             "Sorry an error has occured in the area o"
  679.             "f ^0. \nThe error code = ^1\n(^2)"
  680.         },
  681.         /* [3] */
  682.         {10, 11, 42, 43},
  683.         Icon {
  684.             enabled,
  685.             0
  686.         }
  687.     }
  688. };
  689.  
  690. /************************** Printing Progress Dialog **************************/
  691.  
  692. resource 'DLOG' (1005, "printing...", purgeable) {
  693.     {148, 157, 185, 354},
  694.     dBoxProc,
  695.     visible,
  696.     noGoAway,
  697.     0x0,
  698.     1005,
  699.     "printing…",
  700.     alertPositionParentWindow
  701. };
  702.  
  703. resource 'DITL' (1005, "printing...", purgeable) {
  704.     {    /* array DITLarray: 1 elements */
  705.         /* [1] */
  706.         {10, 10, 27, 235},
  707.         StaticText {
  708.             disabled,
  709.             "Type \0x11. to cancel printing"
  710.         }
  711.     }
  712. };
  713.  
  714. /************************** 7.0 only alert **************************/
  715.  
  716. resource 'ALRT' (302, "7.0 Only Alert") {
  717.     {50, 60, 192, 350},
  718.     302,
  719.     {    /* array: 4 elements */
  720.         /* [1] */
  721.         OK, visible, sound1,
  722.         /* [2] */
  723.         OK, visible, sound1,
  724.         /* [3] */
  725.         OK, visible, sound1,
  726.         /* [4] */
  727.         OK, visible, sound1
  728.     },
  729.     noAutoCenter
  730. };
  731.  
  732. resource 'DITL' (302) {
  733.     {    /* array DITLarray: 3 elements */
  734.         /* [1] */
  735.         {108, 213, 128, 273},
  736.         Button {
  737.             enabled,
  738.             "OK"
  739.         },
  740.         /* [2] */
  741.         {11, 63, 79, 278},
  742.         StaticText {
  743.             disabled,
  744.             "MacPerl requires System 7.0 or later to run."
  745.         },
  746.         /* [3] */
  747.         {11, 12, 43, 44},
  748.         Icon {
  749.             enabled,
  750.             0
  751.         }
  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.         "Runtime Version",         noIcon, noKey, noMark, plain
  804.     }
  805. };
  806.  
  807. /************************** No Perl Script Dialog **************************/
  808.  
  809. resource 'ALRT' (NoPerlAlert, "", purgeable) {
  810.     {86, 40, 230, 472},
  811.     NoPerlAlert,
  812.     {    OK, visible, silent,
  813.         OK, visible, silent,
  814.         OK, visible, silent,
  815.         OK, visible, silent
  816.     },
  817.     alertPositionParentWindow
  818. };
  819.  
  820. resource 'DITL' (NoPerlAlert) {
  821.     {    {114, 323, 134, 402}, Button         { enabled, "Proceed"},
  822.         {114, 231, 134, 310}, Button         { enabled, "Abort"},
  823.         { 10,  65,  99, 403}, StaticText {disabled, 
  824.             "I'm not sure “^0” is really a Perl script (the #! line is missing). "
  825.             "Still want to proceed with trying to execute this script?"
  826.                                                     },
  827.         { 10,  20,  42,  52}, Icon         {disabled, 2}
  828.     }
  829. };
  830.  
  831. /************************** File too bulky to open Dialog **************************/
  832.  
  833. resource 'ALRT' (ElvisAlert, "", purgeable) {
  834.     {86, 40, 210, 452},
  835.     ElvisAlert,
  836.     {    OK, visible, silent,
  837.         OK, visible, silent,
  838.         OK, visible, silent,
  839.         OK, visible, silent
  840.     },
  841.     alertPositionParentWindow
  842. };
  843.  
  844. resource 'DITL' (ElvisAlert) {
  845.     {    { 94, 323, 114, 402}, Button         { enabled, "Save"},
  846.         { 94, 231, 114, 310}, Button         { enabled, "Cancel"},
  847.         { 10,  65,  79, 403}, StaticText {disabled, 
  848.             "This file is too big to be edited in MacPerl. "
  849.             "You may, however, save it as a MacPerl script or runtime."
  850.                                                     },
  851.         { 10,  20,  42,  52}, Icon         {disabled, 2}
  852.     }
  853. };
  854.  
  855. /************************** Menus **************************/
  856.  
  857. resource 'MENU' (appleID) {
  858.     appleID,
  859.     1,
  860.     0x7FFFFFFD,
  861.     enabled,
  862.     apple,
  863.     {    /* array: 2 elements */
  864.         /* [1] */
  865.         "About MacPerl…", noIcon, noKey, noMark, plain,
  866.         /* [2] */
  867.         "-", noIcon, noKey, noMark, plain
  868.     }
  869. };
  870.  
  871. resource 'MENU' (fileID) {
  872.     fileID,
  873.     1,
  874.     0b101101111011,
  875.     enabled,
  876.     "File",
  877.     {    "New",             noIcon, "N",     noMark, plain,
  878.         "Open…",         noIcon, "O",     noMark, plain,
  879.         "-",                 noIcon, noKey, noMark, plain,
  880.         "Close",         noIcon, "W",     noMark, plain,
  881.         "Save",             noIcon, "S",     noMark, plain,
  882.         "Save As…",     noIcon, "S",     noMark, extend,
  883.         "Revert",         noIcon, noKey, noMark, plain,
  884.         "-",                 noIcon, noKey, noMark, plain,
  885.         "Page Setup…", noIcon, noKey, noMark, plain,
  886.         "Print…",         noIcon, "P",     noMark, plain,
  887.         "-",                 noIcon, noKey, noMark, plain,
  888.         "Quit",             noIcon, "Q",     noMark, plain
  889.     }
  890. };
  891.  
  892. resource 'MENU' (editID) {
  893.     editID,
  894.     1,
  895.     0b101111010101111101,
  896.     enabled,
  897.     "Edit",
  898.     {    "Undo", noIcon, "Z", noMark, plain,
  899.         "-", noIcon, noKey, noMark, plain,
  900.         "Cut", noIcon, "X", noMark, plain,
  901.         "Copy", noIcon, "C", noMark, plain,
  902.         "Paste", noIcon, "V", noMark, plain,
  903.         "Clear", noIcon, noKey, noMark, plain,
  904.         "Select All", noIcon, "A", noMark, plain,
  905.         "-", noIcon, noKey, noMark, plain,
  906.         "Jump to…", noIcon, "J", noMark, plain,        
  907.         "-", noIcon, noKey, noMark, plain,
  908.         "Format…", noIcon, "Y", noMark, plain,
  909.         "-", noIcon, noKey, noMark, plain,
  910.         "Create Publisher…", noIcon, noKey, noMark, plain,
  911.         "Subscribe To…", noIcon, noKey, noMark, plain,
  912.         "Section Options…", noIcon, noKey, noMark, plain,
  913.         "Show Borders", noIcon, noKey, noMark, plain,
  914.         "-", noIcon, noKey, noMark, plain,
  915.         "Preferences…", noIcon, noKey, noMark, plain,
  916.     }
  917. };
  918.  
  919. resource 'MENU' (windowID, preload) {
  920.     windowID,
  921.     1,
  922.     allEnabled,
  923.     enabled,
  924.     "Window",
  925.     {
  926.     }
  927. };
  928.  
  929. resource 'MENU' (perlID, preload) {
  930.     perlID,
  931.     1,
  932.     0b110111,
  933.     enabled,
  934.     "Script",
  935.     {    "Run Script…",             noIcon, "R",     noMark, plain,
  936.         "Run Front Window",     noIcon, "R",     noMark, extend,
  937.         "Syntax Check",            noIcon, "K",     noMark, plain,
  938.         "-",                     noIcon, noKey,    noMark, plain,
  939.         "Compiler Warnings",    noIcon, noKey,    noMark, plain,
  940.         "Perl Debugger",        noIcon, noKey,    noMark, plain
  941.     }
  942. };
  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. /* 24 */ "Jump to File (and Line) given by current selection.",
  1097. /* 25 */ "Jump to File (and Line) given by current selection. Select a file name and/or line number to enable this item."
  1098.     }
  1099. };
  1100.  
  1101.  
  1102.  
  1103. resource 'hmnu' (editID, "Edit") {
  1104.     HelpMgrVersion,                    /* Help Version                            */
  1105.     0,                                        /* options                                    */
  1106.     0,                                        /* theProc                                    */
  1107.     0,                                        /* variant                                    */
  1108.     HMSkipItem {                        /* skip missing msg                        */
  1109.         },
  1110.     {
  1111.         /* edit */
  1112.         HMStringResItem {
  1113.             editID,1,                /* menu title message                    */
  1114.             editID,1,                /* disabled title message                */
  1115.             editID,0,                /* reserved message                        */
  1116.             editID,0                    /* reserved message                        */
  1117.         },
  1118.  
  1119.         /* Undo */
  1120.         HMStringResItem {
  1121.             editID,2,                /* menu item message                    */
  1122.             editID,3,                /* disabled item message                */
  1123.             editID,0,                /* reserved message                        */
  1124.             editID,0                    /* reserved message                        */
  1125.         },
  1126.  
  1127.         /* Disabled Item */
  1128.         HMSkipItem {                /* skip missing msg                        */
  1129.         },
  1130.  
  1131.         /* Cut */
  1132.         HMStringResItem {
  1133.             editID,4,                /* menu item message                    */
  1134.             editID,5,                /* disabled item message                */
  1135.             editID,0,                /* reserved message                        */
  1136.             editID,0                    /* reserved message                        */
  1137.         },
  1138.  
  1139.         /* Copy */
  1140.         HMStringResItem {
  1141.             editID,6,                /* menu item message                    */
  1142.             editID,7,                /* disabled item message                */
  1143.             editID,0,                /* reserved message                        */
  1144.             editID,0                    /* reserved message                        */
  1145.         },
  1146.  
  1147.         /* Paste */
  1148.         HMStringResItem {
  1149.             editID,8,                /* menu item message                    */
  1150.             editID,9,                /* disabled item message                */
  1151.             editID,0,                /* reserved message                        */
  1152.             editID,0                    /* reserved message                        */
  1153.         },
  1154.  
  1155.         /* Clear */
  1156.         HMStringResItem {
  1157.             editID,10,                /* menu item message                    */
  1158.             editID,11,                /* disabled item message                */
  1159.             editID,0,                /* reserved message                        */
  1160.             editID,0                    /* reserved message                        */
  1161.         },
  1162.  
  1163.         /* Select All */
  1164.         HMStringResItem {
  1165.             editID,12,                /* menu item message                    */
  1166.             editID,13,                /* disabled item message                */
  1167.             editID,0,                /* reserved message                        */
  1168.             editID,0                    /* reserved message                        */
  1169.         },
  1170.  
  1171.         /* Disabled Line */
  1172.         HMSkipItem {                /* skip missing msg                        */
  1173.         },
  1174.  
  1175.         /* Jump To*/
  1176.         HMStringResItem {
  1177.             editID,24,                /* menu item message                        */
  1178.             editID,25,                /* disabled item message                */
  1179.             editID,0,                /* reserved message                        */
  1180.             editID,0                    /* reserved message                        */
  1181.         },
  1182.  
  1183.         /* Disabled Line */
  1184.         HMSkipItem {                /* skip missing msg                        */
  1185.         },
  1186.  
  1187.         /* Format */
  1188.         HMStringResItem {
  1189.             editID,14,                /* menu item message                    */
  1190.             editID,0,                /* disabled item message                */
  1191.             editID,0,                /* reserved message                        */
  1192.             editID,0                    /* reserved message                        */
  1193.         },
  1194.         
  1195.         /* Disabled Line */
  1196.         HMSkipItem {                /* skip missing msg                        */
  1197.         },
  1198.  
  1199.         /* Create Publisher*/
  1200.         HMStringResItem {
  1201.             editID,15,                /* menu item message                    */
  1202.             editID,16,                /* disabled item message                */
  1203.             editID,0,                /* reserved message                        */
  1204.             editID,0                    /* reserved message                        */
  1205.         },
  1206.  
  1207.         /* Subscribe To..*/
  1208.         HMStringResItem {
  1209.             editID,17,                /* menu item message                    */
  1210.             editID,18,                /* disabled item message                */
  1211.             editID,0,                /* reserved message                        */
  1212.             editID,0                    /* reserved message                        */
  1213.         },
  1214.  
  1215.         /* Section Options*/
  1216.         HMStringResItem {
  1217.             editID,19,                /* menu item message                    */
  1218.             editID,20,                /* disabled item message                */
  1219.             editID,0,                /* reserved message                        */
  1220.             editID,0                    /* reserved message                        */
  1221.         },
  1222.  
  1223.         /* Show/Hide borders*/
  1224.         HMStringResItem {
  1225.             editID,21,                /* menu item message                        */
  1226.             editID,22,                /* disabled item message                */
  1227.             editID,0,                /* reserved message                        */
  1228.             editID,0                    /* reserved message                        */
  1229.         },
  1230.         
  1231.         /* Disabled Item */
  1232.         HMSkipItem {                /* skip missing msg                        */
  1233.         },
  1234.  
  1235.         /* Preferences */
  1236.         HMStringResItem {
  1237.             editID,23,                /* menu item message                    */
  1238.             editID,0,                /* disabled item message                */
  1239.             editID,0,                /* reserved message                        */
  1240.             editID,0                    /* reserved message                        */
  1241.         },
  1242.    }
  1243. };
  1244.  
  1245. resource 'STR#' (perlID) {
  1246.     {
  1247. /*  1 */    "Running Scripts",
  1248.  
  1249. /*  2 */    "Runs a Script.",
  1250.  
  1251. /*  3 */ "Runs the script in the front window.",
  1252.  
  1253. /*  4 */ "Runs the script in the front window. Enabled if a document window is in front.",
  1254.  
  1255.     }
  1256. };
  1257.  
  1258. resource 'hmnu' (perlID, "Script") {
  1259.     HelpMgrVersion,                /* Help Version                            */
  1260.     0,                                    /* options                                */
  1261.     0,                                    /* theProc                                */
  1262.     0,                                    /* variant                                */
  1263.     HMSkipItem {                    /* skip missing msg                        */
  1264.         },
  1265.     {
  1266.         /* Script */
  1267.         HMStringResItem {
  1268.             perlID,1,                /* menu title message                    */
  1269.             perlID,1,                /* disabled title message                */
  1270.             perlID,0,                /* reserved message                        */
  1271.             perlID,0                    /* reserved message                        */
  1272.         },
  1273.  
  1274.         /* Run */
  1275.         HMStringResItem {
  1276.             perlID,2,                /* menu item message                    */
  1277.             perlID,0,                /* disabled item message                */
  1278.             perlID,0,                /* reserved message                        */
  1279.             perlID,0                    /* reserved message                        */
  1280.         },
  1281.  
  1282.         /* Run Front*/
  1283.         HMStringResItem {
  1284.             perlID,3,                /* menu item message                        */
  1285.             perlID,4,                /* disabled item message                */
  1286.             perlID,0,                /* reserved message                        */
  1287.             perlID,0                    /* reserved message                        */
  1288.         },
  1289.    }
  1290. };
  1291.  
  1292. resource 'STR ' (helpID) {
  1293.     "Perl Help/H"
  1294. };
  1295.  
  1296.  
  1297. resource 'STR#' (256) {
  1298.     {
  1299.         "Indicates that this window is a modifiable text document.",
  1300.         "Indicates that this window is a read-only text document.",
  1301.         "Indicates that this window is a console window that is currently expecting input.",
  1302.         "Indicates that this window is a read-only console window.",
  1303.         "Indicates that this window is a console window that is not currently expecting input.",
  1304.     }
  1305. };
  1306.  
  1307. #include "MPTerminology.r"
  1308. #include "MPBalloons.r"
  1309.