home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / navi_pd.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.1 KB  |  41 lines
  1. // NAVI_PD.INC
  2. // June 27, 1991
  3. // LS
  4. //
  5. // include file for creating generic navigate_pull_down object for object
  6. // navigation actions
  7.  
  8. #IFDEF NAVIGATE_PULL_DOWN.N
  9. #ELSE
  10. /Navigate_Pull_Down
  11. ┌──────────────────────────┐
  12. │ ________________________ │
  13. │ ________________________ │
  14. │ ________________________ │
  15. │ ________________________ │
  16. ├──────────────────────────┤
  17. │ ________________________ │
  18. │ ________________________ │
  19. └──────────────────────────┘
  20. /*
  21. #ENDIF
  22.  
  23. #CHKSUB 1 1 // Verify the UI subsystem.
  24.  
  25. register_object Navigate_Pull_Down
  26. on_item 'Navigate' send Activate_Pull_Down to (Navigate_Pull_Down( Current_Object ))
  27.  
  28. object Navigate_Pull_Down is a Pull_Down_Menu
  29.     multi$ register_procedure Prompt Zoom
  30.  
  31.     item_list
  32.         on_item "Next area             F6" send Switch
  33.         on_item "Previous area   Shift+F6" send Switch_Back
  34.         on_item "Next panel        Alt+F6" send Switch_Next_Group
  35.         on_item "Previous panel   Ctrl+F6" send Switch_Prior_Group
  36.         on_item "Prompt                F4" send Prompt
  37.         on_item "Zoom              Alt+F9" send Zoom
  38.     end_item_list
  39. end_object
  40.  
  41.