home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / wind_pd.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.4 KB  |  43 lines
  1. // WIND_PD.INC
  2. // November 30, 1990
  3. // LS
  4. //
  5. // package for creating generic window_pull_down object for edit object actions
  6.  
  7. #IFDEF WINDOW_PULL_DOWN.N
  8. #ELSE
  9. /Window_Pull_Down
  10. ┌─────────────────────────────┐
  11. │ ___________________________ │
  12. │ ___________________________ │
  13. │ ___________________________ │
  14. │ ___________________________ │
  15. │ ___________________________ │
  16. │ ___________________________ │
  17. │ ___________________________ │
  18. │ ___________________________ │
  19. └─────────────────────────────┘
  20. /*
  21. #ENDIF
  22.  
  23. #CHKSUB 1 1 // Verify the UI subsystem.
  24.  
  25. register_object Window_Pull_Down
  26. on_item "Window" send Activate_Pull_Down to (Window_Pull_Down( Current_Object ))
  27.  
  28. object Window_Pull_Down is a Pull_Down_Menu
  29.     multi$ register_procedure Change_Margin Status_Line_Off Status_Line_On
  30.     register_procedure Resize
  31.  
  32.     item_list
  33.         on_item "Change margin..."            send Change_Margin
  34.         on_item "Status line off"             send Status_Line_Off
  35.         on_item "Status line on"              send Status_Line_On
  36.         on_item "Next page              PgDn" send Page_Down
  37.         on_item "Previous page          PgUp" send Page_Up
  38.         on_item "Resize..."                   send ReSize
  39.         on_item "End of window       Ctrl+Dn" send End_Of_Panel
  40.         on_item "Top of window       Ctrl+Up" send Beginning_Of_Panel
  41.     end_item_list
  42. end_object
  43.