home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / helpmsgs.pkg < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.5 KB  |  53 lines
  1. // HELPMSGS.PKG
  2. // April 25, 1991
  3. // LS
  4. //
  5. // Global Messages for Global Help Object
  6.  
  7. #CHKSUB 1 1 // Verify the UI subsystem.
  8.  
  9. use UI
  10.  
  11. Register_Object Help_Editor
  12. Register_Object Help_Object
  13.  
  14. Register_Procedure Request_Help
  15. Register_Procedure Request_Edit_Help
  16. Register_Procedure View_Context_Help
  17. Register_Procedure View_Help_For_Help
  18. Register_Procedure View_Help_Index
  19. Register_Procedure View_Keys_Help
  20.  
  21. procedure Edit_Help for Desktop
  22.     if (Help_Editor( Desktop )) NE Null_Object ;
  23.         if not (Active_State( Help_Editor( Desktop ) )) ;
  24.       send Request_Edit_Help to (Help_Editor( Desktop )) Current_Object
  25. end_procedure
  26.  
  27. procedure Extended_Help for Desktop
  28.     if (Help_Object( Desktop )) NE Null_Object ;
  29.       send Request_Help to (Help_Object( Desktop )) ;
  30.       Msg_View_Context_Help Current_Object
  31. end_procedure
  32.  
  33. procedure Help for Desktop
  34.     if (Help_Object( Desktop )) NE Null_Object ;
  35.       send Request_Help to (Help_Object( Desktop )) ;
  36.       Msg_View_Context_Help Current_Object
  37. end_procedure
  38.  
  39. procedure Help_For_Help for Desktop
  40.     if (Help_Object( Desktop )) NE Null_Object ;
  41.       send Request_Help to (Help_Object( Desktop )) Msg_View_Help_For_Help
  42. end_procedure
  43.  
  44. procedure Help_Index for Desktop
  45.     if (Help_Object( Desktop )) NE Null_Object ;
  46.       send Request_Help to (Help_Object( Desktop )) Msg_View_Help_Index
  47. end_procedure
  48.  
  49. procedure Keys_Help for Desktop
  50.     if (Help_Object( Desktop )) NE Null_Object ;
  51.       send Request_Help to (Help_Object( Desktop )) Msg_View_Keys_Help
  52. end_procedure
  53.