home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / text_pd.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.9 KB  |  53 lines
  1. // TEXT_PD.INC
  2. // June 7, 1991
  3. // LS
  4. //
  5. // include file for creating generic text_pull_down object for text_editor
  6. // object actions - ShdTxtPd MUST be used before this file can be included.
  7.  
  8. #IFDEF TEXT_PULL_DOWN.N
  9. #ELSE
  10. /Text_Pull_Down
  11. ┌──────────────────────────────┐
  12. │ ____________________________ │
  13. │ ____________________________ │
  14. │ ____________________________ │
  15. │ ____________________________ │
  16. │ ____________________________ │
  17. │ ____________________________ │
  18. ├──────────────────────────────┤
  19. │ ____________________________ │
  20. │ ____________________________ │
  21. │ ____________________________ │
  22. │ ____________________________ │
  23. │ ____________________________ │
  24. └──────────────────────────────┘
  25. /*
  26. #ENDIF
  27.  
  28. #CHKSUB 1 1 // Verify the UI subsystem.
  29.  
  30. register_object Text_Pull_Down
  31. on_item 'Text' send Activate_Pull_Down to (Text_Pull_Down( Current_Object ))
  32.  
  33. object Text_Pull_Down is a Shadow_Text_Pull_Down_Menu
  34.     multi$ register_procedure Mode_Insert Mode_Overwrite Search Translate
  35.     multi$ register_procedure Mark_Block Mark_Column Cut_Marked_Area
  36.     multi$ register_procedure Copy_Marked_Area Paste_Block
  37.  
  38.     item_list
  39.         on_item "Start of text      Ctrl+Home" send Beginning_Of_Data
  40.         on_item "End of text         Ctrl+End" send End_Of_Data
  41.         on_item "Insert mode"                  send Mode_Insert
  42.         on_item "Overwrite mode"               send Mode_Overwrite
  43.         on_item "Search text..."               send Search
  44.         on_item "Translate text..."            send Translate
  45.         on_item "Block mark            Ctrl+\" send Mark_Block
  46.         on_item "Column mark"                  send Mark_Column
  47.         on_item "Cut marked text        Alt+-" send Cut_Marked_Area
  48.         on_item "Copy marked text      Ctrl+-" send Copy_Marked_Area
  49.         on_item "Paste text             Alt++" send Paste_Block
  50.     end_item_list
  51. end_object
  52.  
  53.