home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / EASL2PRF.ZIP / PROFVIEW.EAL < prev    next >
Text File  |  1989-11-28  |  2KB  |  91 lines
  1. #
  2. #                           Generated by Layout/CUA
  3. # (Layout/CUA COPYRIGHT (C) INTERACTIVE IMAGES, INC. 1989. ALL RIGHTS RESERVED)
  4. #            Code generated on TUESDAY NOVEMBER 28, 1989 at TIME 12:47:45
  5. #
  6. module M3270
  7.  
  8. include accel.inc
  9.  
  10. boolean variable DidOKCUA
  11. string Sar_string
  12. #
  13. # Action Bar Template Definition(s)
  14. #
  15.  
  16. action bar PrimaryWindowABCUA is
  17.     pulldown AB_View text "~View"
  18.         choice View text "~View Host Screen"
  19.         choice ExitCUA text "E~xit\tF3"
  20.             accelerator is KEY_F3
  21.     end pulldown
  22.     pulldown PFKeys text "~PF Keys"
  23.         choice PF1 text "PF1"
  24.         choice PF12 text "PF12"
  25.         choice Cut text "Cu~t\tShift+Del"
  26.             accelerator is shift KEY_DELETE
  27.         choice Copy text "~Copy\tCtrl+Ins"
  28.             accelerator is control KEY_INSERT
  29.         choice Paste text "~Paste\tShift+Ins"
  30.             accelerator is shift KEY_INSERT
  31.         separator
  32.         choice Clear text "Cl~ear\tDel"
  33.             accelerator is KEY_DELETE
  34.     end pulldown
  35. end action bar
  36.  
  37. #
  38. # Primary Window Textual Region Definition
  39. #
  40.  
  41. enabled visible color 26 primary textual region PrimaryWindow
  42.     size 510 280
  43.     at position 26 40
  44.     color 27 foreground
  45.     size border
  46.     title bar "Primary Window"
  47.     system menu
  48.     horizontal scroll bar scroll by 6
  49.     vertical scroll bar scroll by 16
  50.     no scale
  51.     action bar PrimaryWindowABCUA
  52.     minimize button 
  53.     maximize button
  54.     font "asc510.fnt"
  55.  
  56. #
  57. # Response Definition(s)
  58. #
  59.  
  60. response to start
  61.     action Init3270
  62.  
  63. response to item ExitCUA from PrimaryWindowABCUA
  64.     action Stop3270
  65.     exit
  66.  
  67. response to item View from PrimaryWindowABCUA
  68.    clear PrimaryWindow
  69. #   action ScanScreen
  70.    copy 10 to Row
  71.    action ReadLine
  72.    copy LineText to Sar_string
  73.    add to PrimaryWindow
  74.         insert Sar_string
  75. #   copy "PrimaryWindow" to TextRegionName
  76. #  action ReadScreen
  77.  
  78. response to item PF1 from PrimaryWindowABCUA
  79.    clear PrimaryWindow
  80.    copy 1 to PFkeyNumber
  81.    action PressPFkey
  82.    copy "PrimaryWindow" to TextRegionName
  83.    action ReadScreen
  84.  
  85. response to item PF12 from PrimaryWindowABCUA
  86.    clear PrimaryWindow
  87.    copy 12 to PFkeyNumber
  88.    action PressPFkey
  89.    copy "PrimaryWindow" to TextRegionName
  90.    action ReadScreen
  91.