home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / buff_pd.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  764 b   |  35 lines
  1. // BUFF_PD.INC
  2. // January 10, 1991
  3. // LS
  4. //
  5. // include file for creating generic buffer_pull_down object for edit object
  6. // actions
  7.  
  8. #IFDEF BUFFER_PULL_DOWN.N
  9. #ELSE
  10. /Buffer_Pull_Down
  11. ┌───────────┐
  12. │ _________ │
  13. │ _________ │
  14. │ _________ │
  15. │ _________ │
  16. └───────────┘
  17. /*
  18. #ENDIF
  19.  
  20. #CHKSUB 1 1 // Verify the UI subsystem.
  21.  
  22. register_object Buffer_Pull_Down
  23. on_item 'Buffer' send Activate_Pull_Down to (Buffer_Pull_Down( Current_Object ))
  24.  
  25. object Buffer_Pull_Down is a Pull_Down_Menu
  26.     register_procedure Read_File
  27.  
  28.     item_list
  29.         on_item "Clear  F5" send Request_Clear
  30.         on_item "Read"      send Read_File
  31.         on_item "Save   F2" send Request_Save
  32.         on_item "Print"     send Print
  33.     end_item_list
  34. end_object
  35.