home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / EASL2PRF.ZIP / MSGDB.INC < prev    next >
Text File  |  1990-04-27  |  1KB  |  59 lines
  1. #
  2. #                           Generated by Layout/CUA
  3. # (Layout/CUA COPYRIGHT (C) INTERACTIVE IMAGES, INC. 1989. ALL RIGHTS RESERVED)
  4. #            Code generated on FRIDAY APRIL 27, 1990 at TIME 13:08:35
  5. #
  6.  
  7.  
  8. #
  9. # Dialog Box Object Definition(s)
  10. #
  11.  
  12. enabled invisible modal dialog box MsgDB
  13.     size 216 110
  14.     at position 75 36
  15.     dialog border
  16.     title bar "Messages"
  17.     system menu
  18.  
  19. enabled visible static text MsgDBST
  20.     size 169 73
  21.     at position 20 24
  22.     in MsgDB
  23.     left align
  24.     top align
  25.     word wrap
  26.     text "Sample"
  27.  
  28. enabled visible default push button OK
  29.     size 38 12
  30.     at position 6 4
  31.     in MsgDB
  32.     group is Actions
  33.     text "~OK"
  34.  
  35. enabled visible cancel push button Cancel
  36.     size 38 12
  37.     at position 56 4
  38.     in MsgDB
  39.     group is Actions
  40.     text "Cancel"
  41.  
  42. #
  43. # Subroutine Definition(s)
  44. #
  45.  
  46. subroutine ProcessMsgDB( string : MsgText) is
  47.     begin guarded
  48.         response to start
  49.             change MsgDBST text to MsgText
  50.             make MsgDB visible
  51.         response to OK in MsgDB
  52.             make MsgDB invisible
  53.             leave block
  54.         response to Cancel in MsgDB
  55.             make MsgDB invisible
  56.             leave block
  57.     end
  58.  
  59.