home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / PM301.ZIP / RESOURCE.ZIP / BASIC.R next >
Encoding:
Text File  |  1993-08-22  |  2.7 KB  |  97 lines
  1. #
  2. #   BASIC.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 duplicates the standard PMail message editing
  15. #   screen in every way.
  16. #
  17.  
  18. include defines.rh
  19. include forms.rh
  20.  
  21. string form_title     "Basic 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.    };
  36.  
  37. data to         # The "to" field when sending files or messages
  38.    {
  39.    10, 1, 65, 179, 0, 0, 0, GT_STRING, GNOCLEAR
  40.    };
  41.  
  42. data subject    # The "subject" field when sending files or messages
  43.    {
  44.    10, 2, 63, 64, 0, 0, 0, GT_STRING, 0
  45.    };
  46.  
  47. text subject_help
  48.    {
  49.    " The Subject Field \n",
  50.    "The subject is a one-line précis of the contents of the\n",
  51.    "message which will be displayed in the recipient's browse\n",
  52.    "list. You may leave this field blank, but it is considered\n",
  53.    "good e-mail etiquette to provide a meaningful subject."
  54.    };
  55.  
  56. line xline_1
  57.    {
  58.    0, 3, 80, 0, LIGHTGREY, '─'
  59.    };
  60.  
  61. line xline_2
  62.    {
  63.    0, 21, 80, 0, LIGHTGREY, '─'
  64.    };
  65.  
  66. line xline_3
  67.    {
  68.    1, 20, 80, 0, BLIGHTGREY, ' '
  69.    };
  70.  
  71. editor message
  72.    {
  73.    1, 4, 77, 16, 70, 0, 0, BBLUE | LIGHTGREY
  74.    };
  75.  
  76. block help_text
  77.    {
  78.    1, 22, dim | wcentre,
  79.    "F1-Help  F2-Local user lists  F3-Address books  F6-Distribution lists",
  80.    "F7-File attachments  F9-More options  Ctrl-Enter-Send the message"
  81.    };
  82.  
  83. formtable formdata
  84.    {
  85. #  Name........ Correlation. Help text.... Validation... Status...... Default
  86.    fwindow,     F_WINDOW,    0,            0,            0,           0,
  87.    field_text,  0,           0,            0,            0,           0,
  88.    help_text,   0,           0,            0,            0,           0,
  89.    xline_1,     0,           0,            0,            0,           0,
  90.    xline_2,     0,           0,            0,            0,           0,
  91.    xline_3,     0,           0,            0,            0,           0,
  92.    to,          F_TO,        0,            0,            0,           0,
  93.    subject,     F_SUBJECT,   subject_help, 0,            0,           0,
  94.    message,     F_MESSAGE,   0,            0,            0,           0
  95.    };
  96.  
  97.