home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / buffe_pd.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  959 b   |  38 lines

  1. // BUFFE_PD.INC
  2. // 07/17, 1991
  3. // LS
  4. //
  5. // include file for creating generic buffer_pull_down object for edit object
  6. // actions - includes Exit item
  7.  
  8. #IFDEF BUFFER_EXIT_PULL_DOWN.N
  9. #ELSE
  10. /Buffer_Exit_Pull_Down
  11. ┌───────────────┐
  12. │ _____________ │
  13. │ _____________ │
  14. │ _____________ │
  15. │ _____________ │
  16. ├───────────────┤
  17. │ _____________ │
  18. └───────────────┘
  19. /*
  20. #ENDIF
  21.  
  22. #CHKSUB 1 1 // Verify the UI subsystem.
  23.  
  24. register_object Buffer_Pull_Down
  25. on_item 'Buffer' send Activate_Pull_Down to (Buffer_Pull_Down( Current_Object ))
  26.  
  27. object Buffer_Pull_Down is a Pull_Down_Menu Buffer_Exit_Pull_Down
  28.     register_procedure Read_File
  29.  
  30.     item_list
  31.         on_item "Clear      F5"     send Request_Clear
  32.         on_item "Read"              send Read_File
  33.         on_item "Save       F2"     send Request_Save
  34.         on_item "Print"             send Print
  35.         on_item "Exit   Alt+F4"     send Exit_Area
  36.     end_item_list
  37. end_object
  38.