home *** CD-ROM | disk | FTP | other *** search
/ HomeWare 14 / HOMEWARE14.bin / netutils / pmail311.arj / RESOURCE.ZIP / ENHANCED.R < prev    next >
Text File  |  1993-08-22  |  3KB  |  123 lines
  1. #
  2. #   ENHANCED.R
  3. #   Sample programmable mail form for Pegasus Mail v3.0
  4. #   Copright (c) 1993, David Harris, All Rights Reserved.
  5. #
  6. #   You are granted the right to modify and distribute this
  7. #   form in any way you wish provided you do not sell it or
  8. #   any derivative either on its own or as part of any other
  9. #   package.
  10. #
  11. #   By using this form you agree to hold the author blameless
  12. #   for all or any damages or losses resulting from its use.
  13. #
  14. #   This form implements a standard message editing screen
  15. #   with more options than usual.  
  16. #
  17.  
  18. include defines.rh
  19. include forms.rh
  20.  
  21. string form_title     "Expanded Message Editor";
  22.  
  23. window fwindow    # The window in which the form appears
  24.    {
  25.    1, 1, 80, 25, BBLUE | LIGHTGREY | wplain,
  26.    BBLUE | LIGHTGREY, ' ', BSINGLE,
  27.    " Send Message: Editing Screen "
  28.    };
  29.  
  30. block field_text
  31.    {
  32.    2, 1, BBLUE | LIGHTGREY,
  33.    "To   :",
  34.    "Subj :",
  35.    "Cc   :",
  36.    "Copy self? :     Confirm reading? :      Urgent? :"
  37.    };
  38.  
  39. data to         # The "to" field when sending files or messages
  40.    {
  41.    10, 1, 65, 179, 0, 0, 0, GT_STRING, GNOCLEAR
  42.    };
  43.  
  44. data subject    # The "subject" field when sending files or messages
  45.    {
  46.    10, 2, 63, 64, 0, 0, 0, GT_STRING, 0
  47.    };
  48.  
  49. data cc         # The "to" field when sending files or messages
  50.    {
  51.    10, 3, 65, 179, 0, 0, 0, GT_STRING, GNOCLEAR
  52.    };
  53.  
  54. data cs
  55.    {
  56.    15, 4, 1, 1, 0, 0, 0, GT_BOOLEAN, 0
  57.    }
  58.  
  59. data rqc
  60.    {
  61.    38, 4, 1, 1, 0, 0, 0, GT_BOOLEAN, 0
  62.    }
  63.  
  64. data urgent
  65.    {
  66.    53, 4, 1, 1, 0, 0, 0, GT_BOOLEAN, 0
  67.    }
  68.  
  69. text subject_help
  70.    {
  71.    " The Subject Field \n",
  72.    "The subject is a one-line précis of the contents of the\n",
  73.    "message which will be displayed in the recipient's browse\n",
  74.    "list. You may leave this field blank, but it is considered\n",
  75.    "good e-mail etiquette to provide a meaningful subject."
  76.    };
  77.  
  78. line xline_1
  79.    {
  80.    0, 5, 80, 0, LIGHTGREY, '─'
  81.    };
  82.  
  83. line xline_2
  84.    {
  85.    0, 21, 80, 0, LIGHTGREY, '─'
  86.    };
  87.  
  88. line xline_3
  89.    {
  90.    1, 20, 80, 0, BLIGHTGREY, ' '
  91.    };
  92.  
  93. editor message
  94.    {
  95.    1, 6, 77, 14, 70, 0, 0, BBLUE | LIGHTGREY
  96.    };
  97.  
  98. block help_text
  99.    {
  100.    1, 22, dim | wcentre,
  101.    "F1-Help  F2-Local user lists  F3-Address books  F6-Distribution lists",
  102.    "F7-File attachments  F9-More options  Ctrl-Enter-Send the message"
  103.    };
  104.  
  105. formtable formdata
  106.    {
  107. #  Name........ Correlation. Help text.... Validation... Status...... Default
  108.    fwindow,     F_WINDOW,    0,            0,            0,           0,
  109.    field_text,  0,           0,            0,            0,           0,
  110.    help_text,   0,           0,            0,            0,           0,
  111.    xline_1,     0,           0,            0,            0,           0,
  112.    xline_2,     0,           0,            0,            0,           0,
  113.    xline_3,     0,           0,            0,            0,           0,
  114.    to,          F_TO,        0,            0,            0,           0,
  115.    subject,     F_SUBJECT,   subject_help, 0,            0,           0,
  116.    cc,          F_CC,        0,            0,            0,           0,
  117.    cs,          F_COPYSELF,  0,            0,            0,           0,
  118.    rqc,         F_READING,   0,            0,            0,           0,
  119.    urgent,      F_URGENT,    0,            0,            0,           0,
  120.    message,     F_MESSAGE,   0,            0,            0,           0
  121.    };
  122.  
  123.