home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / EASL2PRF.ZIP / CHPROFS.INC next >
Text File  |  1990-02-06  |  4KB  |  138 lines
  1. #
  2. # Dialog Box Object Definition(s)
  3. #
  4.  
  5. enabled invisible modal dialog box ChooseFileLocationDB
  6.     size 200 110
  7.     at position 84 34
  8.     dialog border
  9.     title bar "Choose Location of Files"
  10.     system menu
  11.  
  12. enabled visible checked radio button GetDocFromPROFSRB
  13.     size 134 11
  14.     at position 16 85
  15.     in ChooseFileLocationDB
  16.     group is GetFileSelection
  17.     text "~Get Document From PROFS"
  18.  
  19. enabled visible radio button GetFileFromStorageRB
  20.     size 148 11
  21.     at position 16 70
  22.     in ChooseFileLocationDB
  23.     group is GetFileSelection
  24.     text "Get File from ~Personal Storage"
  25.  
  26. disabled visible static text GetFileFileNameST
  27.     size 48 8
  28.     at position 58 58
  29.     in ChooseFileLocationDB
  30.     left align
  31.     top align
  32.     text "File Name:"
  33.  
  34. disabled visible entry field GetFileFileNameEF
  35.     size 50 12
  36.     at position 110 56
  37.     in ChooseFileLocationDB
  38.     text size 8 columns
  39.     left align
  40.     text "*"
  41.  
  42. disabled visible static text GetFileFileTypeST
  43.     size 44 8
  44.     at position 62 44
  45.     in ChooseFileLocationDB
  46.     left align
  47.     top align
  48.     text "File Type:"
  49.  
  50. disabled visible entry field GetFileFileTypeEF
  51.     size 50 12
  52.     at position 110 42
  53.     in ChooseFileLocationDB
  54.     text size 8 columns
  55.     left align
  56.     text "*"
  57.  
  58. disabled visible static text GetFileFileModeST
  59.     size 48 8
  60.     at position 60 29
  61.     in ChooseFileLocationDB
  62.     left align
  63.     top align
  64.     text "File Mode:"
  65.  
  66. disabled visible entry field GetFileFileModeEF
  67.     size 14 12
  68.     at position 110 27
  69.     in ChooseFileLocationDB
  70.     text size 1 columns
  71.     left align
  72.     text "A"
  73.  
  74. enabled visible default push button OK
  75.     size 38 12
  76.     at position 6 4
  77.     in ChooseFileLocationDB
  78.     group is Actions
  79.     text "~OK"
  80.  
  81. enabled visible cancel push button Cancel
  82.     size 38 12
  83.     at position 56 4
  84.     in ChooseFileLocationDB
  85.     group is Actions
  86.     text "Cancel"
  87.  
  88. #
  89. # Subroutine Definition(s)
  90. #
  91.  
  92. subroutine ProcessChooseFileLocationDB( boolean : DidOKCUA ) is
  93.     begin guarded
  94.         response to start
  95.             make ChooseFileLocationDB visible
  96.         response to GetFileFromStorageRB in ChooseFileLocationDB
  97.             if (GetFileFromStorageRB is checked) then 
  98.                 enable GetFileFileNameST
  99.                 enable GetFileFileNameEF
  100.                 enable GetFileFileTypeST
  101.                 enable GetFileFileTypeEF
  102.                 enable GetFileFileModeST
  103.                 enable GetFileFileModeEF
  104.             else
  105.                 disable GetFileFileNameST
  106.                 disable GetFileFileNameEF
  107.                 disable GetFileFileTypeST
  108.                 disable GetFileFileTypeEF
  109.                 disable GetFileFileModeST
  110.                 disable GetFileFileModeEF
  111.             end if
  112.         response to GetDocFromPROFSRB in ChooseFileLocationDB
  113.             if (GetFileFromStorageRB is checked) then 
  114.                 enable GetFileFileNameST
  115.                 enable GetFileFileNameEF
  116.                 enable GetFileFileTypeST
  117.                 enable GetFileFileTypeEF
  118.                 enable GetFileFileModeST
  119.                 enable GetFileFileModeEF
  120.             else
  121.                 disable GetFileFileNameST
  122.                 disable GetFileFileNameEF
  123.                 disable GetFileFileTypeST
  124.                 disable GetFileFileTypeEF
  125.                 disable GetFileFileModeST
  126.                 disable GetFileFileModeEF
  127.             end if
  128.         response to OK in ChooseFileLocationDB
  129.             copy true to DidOKCUA
  130.             make ChooseFileLocationDB invisible
  131.             leave block
  132.         response to Cancel in ChooseFileLocationDB
  133.             copy false to DidOKCUA
  134.             make ChooseFileLocationDB invisible
  135.             leave block
  136.     end
  137.  
  138.