home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / entactbr.pkg < prev    next >
Encoding:
Text File  |  1993-05-19  |  856 b   |  32 lines
  1. // ENTACTBR.PKG
  2. // November 30, 1990
  3. // LS
  4. //
  5. // Entry_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 Entry_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 Entry_Action_Bar_Keys
  18.  
  19.         item_list
  20.             #INCLUDE RECDE_PD.INC
  21.             #INCLUDE NAVI_PD.INC
  22.             #INCLUDE HELP_PD.INC
  23.         end_item_list
  24.     end_procedure
  25. end_class
  26.  
  27. procedure Entry_Action_Bar_Keys for Desktop integer Obj
  28.     on_key key_Alt+key_R send Activate to (Record_Pull_Down( Obj ))   Private
  29.     on_key key_Alt+key_N send Activate to (Navigate_Pull_Down( Obj )) Private
  30.     on_key key_Alt+key_H send Activate to (Help_Pull_Down( Obj ))     Private
  31. end_procedure
  32.