home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / file_pd.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.9 KB  |  53 lines
  1. // FILE_PD.PKG
  2. // June 21, 1990
  3. // LS
  4. //
  5. // package for creating generic record_pull_down object for entry object actions
  6. // (assumed to be used as first pull down menu, hence EXIT option as last item)
  7.  
  8. #CHKSUB 1 1 // Verify the UI subsystem.
  9.  
  10. use UI
  11.  
  12. #IFDEF RECORD_PULL_DOWN.N
  13. #ELSE
  14. /Record_Pull_Down
  15. ┌────────────────────────────────┐
  16. │ ______________________________ │
  17. │ ______________________________ │
  18. │ ______________________________ │
  19. │ ______________________________ │
  20. │ ______________________________ │
  21. │ ______________________________ │
  22. │ ______________________________ │
  23. │ ______________________________ │
  24. │ ______________________________ │
  25. │ ______________________________ │
  26. │ ______________________________ │
  27. │ ______________________________ │
  28. │ ______________________________ │
  29. └────────────────────────────────┘
  30. /*
  31. #ENDIF
  32.  
  33. on_item 'Record' send Activate to Current_Object // Current_Object is changed to
  34.                               // the correct object id by pull_down_menu class
  35. object Record_Pull_Down is a Pull_Down_Menu
  36.     item_list
  37.         on_item "Clear              F5"        send Request_Clear
  38.         on_item "Clear all          Ctrl+F5"   send Request_Clear_All
  39.         on_item "Delete             Shift+F2"  send Request_Delete
  40.         on_item "Find               F9"        send Find_GE
  41.         on_item "Next               F8"        send Find_Next
  42.         on_item "Previous           F7"        send Find_Previous
  43.         on_item "Superfind          Shift+F9"  send Superfind
  44.         on_item "Superfind next     Shift+F8"  send Superfind_Next
  45.         on_item "Superfind previous Shift+F7"  send Superfind_Previous
  46.         on_item "Find last          Ctrl+End"  send Find_Last
  47.         on_item "Find first         Ctrl+Home" send Find_First
  48.         on_item "Save               F2"        send Request_Save
  49.         on_item "Exit"                         send Cancel
  50.     end_item_list
  51. end_object
  52.  
  53.