home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / kp_help.pkg < prev    next >
Encoding:
Text File  |  1993-05-19  |  2.3 KB  |  83 lines
  1. // KP_HELP.PKG
  2. // May 23, 1991
  3. // LS
  4. //
  5. // Keyproc_Help package for use in non-ui and "mixed" ui programs
  6.  
  7. #CHKSUB 1 1 // Verify the UI subsystem.
  8.  
  9. use Help
  10.  
  11. class Keyproc_Help_Name is an Array
  12.     procedure Construct_Object
  13.         forward send Construct_Object
  14.  
  15.         property integer Keyproc_Help_State Public 0
  16.         property integer Help_Name_ID       Public 0
  17.     end_procedure
  18.  
  19.     function Help_Name returns String
  20.         local string Hlp_Nam
  21.  
  22.         if (Keyproc_Help_State( Current_Object )) function_return ;
  23.           ("IMAGE_" + string( Help_Name_ID( Current_Object ) ))
  24.         else begin
  25.             forward get Help_Name to Hlp_Nam
  26.             function_return Hlp_Nam
  27.         end
  28.     end_function
  29. end_class
  30.  
  31. object Keyproc_Help is a Keyproc_Help_Name
  32.     object Window_Help is a Keyproc_Help_Name
  33.         function Help_Name returns String
  34.             local string Hlp_Nam
  35.  
  36.             if (Keyproc_Help_State( Parent( Current_Object ) )) ;
  37.               function_return ;
  38.               ("WINDOW_" + string( Help_Name_ID( Current_Object ) ))
  39.             else begin
  40.                 forward get Help_Name to Hlp_Nam
  41.                 function_return Hlp_Nam
  42.             end
  43.         end_function
  44.     end_object
  45.  
  46.     procedure UI_Help integer Img integer Win
  47.         set Keyproc_Help_State to True
  48.         set Help_Name_ID to Img
  49.         set Help_Name_ID of (Window_Help( Current_Object )) to Win
  50.  
  51. //        send View_Context_Help to Help_Object (Window_Help( Current_Object ))
  52. //        start_ui
  53.  
  54.         send Help to (Window_Help( Current_Object ))
  55.         set Keyproc_Help_State to False
  56.  
  57.     end_procedure
  58. end_object
  59.  
  60. procedure Keyproc_Help FOR DESKTOP
  61.     send UI_Help to Keyproc_Help Current_Image Current_Window
  62. end_procedure
  63.  
  64. //procedure Request_Cancel FOR HELP_SYSTEM
  65. //    local integer Pri_Sco
  66. //
  67. //    if not (Keyproc_Help_State( Keyproc_Help( Desktop ) )) begin
  68. //        get Prior_Scope to Pri_Sco
  69. //        if Pri_Sco EQ 0 move Desktop to Pri_Sco
  70. //        set Current_Scope to Pri_Sco
  71. //    end
  72. //
  73. //    send Deactivate
  74. //    send Close_Help True
  75. //    if (Remain_Open_State( Current_Object )) send Restore_Records
  76. //
  77. //    if (Keyproc_Help_State( Keyproc_Help( Desktop ) )) begin
  78. //        set Keyproc_Help_State of Keyproc_Help to False
  79. //        procedure_return 1
  80. //    end
  81. //end_procedure
  82.  
  83.