home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / helpa_pd.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.1 KB  |  39 lines
  1. // HELPA_PD.INC
  2. // November 30, 1990
  3. // LS
  4. //
  5. // include file for creating generic help_pull_down object - includes
  6. // About... item
  7.  
  8. #IFDEF HELP_ABOUT_PULL_DOWN.N
  9. #ELSE
  10. /Help_About_Pull_Down
  11. ┌──────────────────┐
  12. │ ________________ │
  13. │ ________________ │
  14. │ ________________ │
  15. │ ________________ │
  16. ├──────────────────┤
  17. │ ________________ │
  18. └──────────────────┘
  19. /*
  20. #ENDIF
  21.  
  22. #CHKSUB 1 1 // Verify the UI subsystem.
  23.  
  24. register_object Help_Pull_Down
  25. on_item 'Help' send Activate_Pull_Down to (Help_Pull_Down( Current_Object ))
  26.  
  27. object Help_Pull_Down is a Pull_Down_Menu Help_About_Pull_Down
  28.     multi$ register_procedure Help_For_Help Extended_Help Keys_Help Help_Index
  29.     register_procedure About
  30.  
  31.     item_list
  32.         on_item "Help for help..." send Help_For_Help to Desktop
  33.         on_item "Extended help..." send Extended_Help to Desktop
  34.         on_item "Keys help..."     send Keys_Help     to Desktop
  35.         on_item "Help index..."    send Help_Index    to Desktop
  36.         on_item "About..."         send About         to Desktop
  37.     end_item_list
  38. end_object
  39.