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