home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / EASL2PRF.ZIP / MAILSCR.INC < prev    next >
Text File  |  1990-04-27  |  4KB  |  194 lines
  1. #
  2. # Dialog Box Object Definition(s)
  3. #
  4.  
  5. enabled invisible modal dialog box PROFSMailDocDB
  6.     size 247 110
  7.     at position 73 30
  8.     dialog border
  9.     title bar "Enter PROFS Names "
  10.     system menu
  11.  
  12. enabled visible static text UserName1ST
  13.     size 36 8
  14.     at position 11 92
  15.     in PROFSMailDocDB
  16.     left align
  17.     top align
  18.     text "User ID:"
  19.  
  20. enabled visible entry field UserName1EF
  21.     size 50 12
  22.     at position 52 91
  23.     in PROFSMailDocDB
  24.     text size 8 columns
  25.     left align
  26.  
  27. enabled visible static text UserName2ST
  28.     size 36 8
  29.     at position 142 91
  30.     in PROFSMailDocDB
  31.     left align
  32.     top align
  33.     text "User ID:"
  34.  
  35. enabled visible entry field UserName2EF
  36.     size 50 12
  37.     at position 183 91
  38.     in PROFSMailDocDB
  39.     text size 8 columns
  40.     left align
  41.  
  42. enabled visible static text UserName3ST
  43.     size 36 8
  44.     at position 10 75
  45.     in PROFSMailDocDB
  46.     left align
  47.     top align
  48.     text "User ID:"
  49.  
  50. enabled visible entry field UserName3EF
  51.     size 50 12
  52.     at position 52 74
  53.     in PROFSMailDocDB
  54.     text size 8 columns
  55.     left align
  56.  
  57. enabled visible static text UserName4ST
  58.     size 36 8
  59.     at position 142 74
  60.     in PROFSMailDocDB
  61.     left align
  62.     top align
  63.     text "User ID:"
  64.  
  65. enabled visible entry field UserName4EF
  66.     size 50 12
  67.     at position 183 73
  68.     in PROFSMailDocDB
  69.     text size 8 columns
  70.     left align
  71.  
  72. enabled visible static text UserName5ST
  73.     size 36 8
  74.     at position 10 59
  75.     in PROFSMailDocDB
  76.     left align
  77.     top align
  78.     text "User ID:"
  79.  
  80. enabled visible entry field UserName5EF
  81.     size 50 12
  82.     at position 52 58
  83.     in PROFSMailDocDB
  84.     text size 8 columns
  85.     left align
  86.  
  87. enabled visible static text UserName6ST
  88.     size 36 8
  89.     at position 143 59
  90.     in PROFSMailDocDB
  91.     left align
  92.     top align
  93.     text "User ID:"
  94.  
  95. enabled visible entry field UserName6EF
  96.     size 50 12
  97.     at position 183 58
  98.     in PROFSMailDocDB
  99.     text size 8 columns
  100.     left align
  101.  
  102. #enabled visible static text UserName7ST
  103. #    size 36 8
  104. #    at position 10 43
  105. #    in PROFSMailDocDB
  106. #    left align
  107. #    top align
  108. #    text "User ID:"
  109.  
  110. #enabled visible entry field UserName7EF
  111. #    size 50 12
  112. #    at position 51 42
  113. #    in PROFSMailDocDB
  114. #    text size 8 columns
  115. #    left align
  116.  
  117. #enabled visible entry field UserName8EF
  118. #    size 50 12
  119. #    at position 183 42
  120. #    in PROFSMailDocDB
  121. #    text size 8 columns
  122. #    left align
  123.  
  124. #enabled visible static text UserName8ST
  125. #    size 36 8
  126. #    at position 142 42
  127. #    in PROFSMailDocDB
  128. #    left align
  129. #    top align
  130. #    text "User ID:"
  131.  
  132. #enabled visible static text UserName9ST
  133. #    size 36 8
  134. #    at position 10 28
  135. #    in PROFSMailDocDB
  136. #    left align
  137. #    top align
  138. #    text "User ID:"
  139.  
  140. #enabled visible entry field UserName9EF
  141. #    size 50 12
  142. #    at position 51 25
  143. #    in PROFSMailDocDB
  144. #    text size 8 columns
  145. #    left align
  146.  
  147. #enabled visible entry field UserName10EF
  148. #    size 50 12
  149. #    at position 183 26
  150. #    in PROFSMailDocDB
  151. #    text size 8 columns
  152. #    left align
  153.  
  154. #enabled visible static text UserName10ST
  155. #    size 36 8
  156. #    at position 142 25
  157. #    in PROFSMailDocDB
  158. #    left align
  159. #    top align
  160. #    text "User ID:"
  161.  
  162. enabled visible default push button OK
  163.     size 38 12
  164.     at position 6 4
  165.     in PROFSMailDocDB
  166.     group is Actions
  167.     text "~OK"
  168.  
  169. enabled visible cancel push button Cancel
  170.     size 38 12
  171.     at position 56 4
  172.     in PROFSMailDocDB
  173.     group is Actions
  174.     text "Cancel"
  175.  
  176. #
  177. # Subroutine Definition(s)
  178. #
  179.  
  180. subroutine ProcessPROFSMailDocDB( boolean : DidOKCUA ) is
  181.     begin guarded
  182.         response to start
  183.             make PROFSMailDocDB visible
  184.         response to OK in PROFSMailDocDB
  185.             copy true to DidOKCUA
  186.             make PROFSMailDocDB invisible
  187.             leave block
  188.         response to Cancel in PROFSMailDocDB
  189.             copy false to DidOKCUA
  190.             make PROFSMailDocDB invisible
  191.             leave block
  192.     end
  193.  
  194.