home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / recd_pd.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.9 KB  |  53 lines
  1. // RECD_PD.INC
  2. // January 10, 1991
  3. // LS
  4. //
  5. // include file for creating generic file_pull_down object for entry object
  6. // actions
  7.  
  8. #IFDEF RECORD_PULL_DOWN.N
  9. #ELSE
  10. /Record_Pull_Down
  11. ┌───────────────────────────────┐
  12. │ _____________________________ │
  13. │ _____________________________ │
  14. │ _____________________________ │
  15. │ _____________________________ │
  16. │ _____________________________ │
  17. │ _____________________________ │
  18. │ _____________________________ │
  19. │ _____________________________ │
  20. │ _____________________________ │
  21. │ _____________________________ │
  22. │ _____________________________ │
  23. │ _____________________________ │
  24. └───────────────────────────────┘
  25. /*
  26. #ENDIF
  27.  
  28. #CHKSUB 1 1 // Verify the UI subsystem.
  29.  
  30. register_object Record_Pull_Down
  31. on_item 'Record' send Activate_Pull_Down to (Record_Pull_Down( Current_Object ))
  32.  
  33. object Record_Pull_Down is a Pull_Down_Menu
  34.     multi$ register_procedure Find_GE Find_Next Find_Previous
  35.     multi$ register_procedure SuperFind Superfind_Next Superfind_Previous
  36.  
  37.     item_list
  38.         on_item "Clear/Add                  F5" send Request_Clear
  39.         on_item "Clear all             Ctrl+F5" send Request_Clear_All
  40.         on_item "Delete               Shift+F2" send Request_Delete
  41.         on_item "Find                       F9" send Find_GE
  42.         on_item "Next                       F8" send Find_Next
  43.         on_item "Previous                   F7" send Find_Previous
  44.         on_item "Superfind            Shift+F9" send Superfind
  45.         on_item "Superfind next       Shift+F8" send Superfind_Next
  46.         on_item "Superfind previous   Shift+F7" send Superfind_Previous
  47.         on_item "Find first          Ctrl+Home" send Beginning_Of_Data
  48.         on_item "Find last            Ctrl+End" send End_Of_Data
  49.         on_item "Save                       F2" send Request_Save
  50.     end_item_list
  51. end_object
  52.  
  53.