home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / txtactbr.pkg < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.0 KB  |  36 lines
  1. // TXTACTBR.PKG
  2. // December 3, 1990
  3. // LS
  4. //
  5. // Text_Action_Bar class definition
  6.  
  7. #CHKSUB 1 1 // Verify the UI subsystem.
  8.  
  9. use Action
  10. use PullDown
  11. use HelpMsgs
  12.  
  13. class Text_Action_Bar is an ACTION_BAR_MENU
  14.     procedure Construct_Object integer Img
  15.         forward send Construct_Object Img
  16.  
  17.         set Action_Bar_Keys_Msg to Text_Action_Bar_Keys
  18.  
  19.         item_list
  20.             #INCLUDE BUFFE_PD.INC
  21.             #INCLUDE LINE_PD.INC
  22.             #INCLUDE TEXT_PD.INC
  23.             #INCLUDE WIND_PD.INC
  24.             #INCLUDE HELP_PD.INC
  25.         end_item_list
  26.     end_procedure
  27. end_class
  28.  
  29. procedure Text_Action_Bar_Keys for Desktop integer Obj
  30.     on_key key_Alt+key_B send Activate to (Buffer_Pull_Down( Obj )) Private
  31.     on_key key_Alt+key_L send Activate to (Line_Pull_Down( Obj ))   Private
  32.     on_key key_Alt+key_T send Activate to (Text_Pull_Down( Obj ))   Private
  33.     on_key key_Alt+key_W send Activate to (Window_Pull_Down( Obj )) Private
  34.     on_key key_Alt+key_H send Activate to (Help_Pull_Down( Obj ))   Private
  35. end_procedure
  36.