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