home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / line_pd.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.0 KB  |  37 lines
  1. // LINE_PD.INC
  2. // June 4, 1991
  3. // LS
  4. //
  5. // include file for creating generic line_pull_down object for edit object
  6. // actions
  7.  
  8. #IFDEF LINE_PULL_DOWN.N
  9. #ELSE
  10. /Line_Pull_Down
  11. ┌───────────────────────────────┐
  12. │ _____________________________ │
  13. │ _____________________________ │
  14. │ _____________________________ │
  15. │ _____________________________ │
  16. │ _____________________________ │
  17. └───────────────────────────────┘
  18. /*
  19. #ENDIF
  20.  
  21. #CHKSUB 1 1 // Verify the UI subsystem.
  22.  
  23. register_object Line_Pull_Down
  24. on_item 'Line' send Activate_Pull_Down to (Line_Pull_Down( Current_Object ))
  25.  
  26. object Line_Pull_Down is a Pull_Down_Menu
  27.     register_procedure To_Line_Num
  28.  
  29.     item_list
  30.         on_item "Beginning of line        Home" send Beginning_Of_Line
  31.         on_item "End of line               End" send End_Of_line
  32.         on_item "Line#..."                      send To_Line_Num
  33.         on_item "Remove line             Alt+-" send Delete_Line
  34.         on_item "Delete to EOL  Ctrl+Backspace" send Delete_To_EOL
  35.     end_item_list
  36. end_object
  37.