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