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