home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / ffile_pd.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.2 KB  |  43 lines
  1. // DataFlex Source Code
  2. // Copyright 1987-1992 Data Access Corporation, Miami FL, USA
  3. // All Rights reserved
  4. // 
  5. // JR 2/7/92
  6.  
  7. // Since a large part of FLEXERRS.SRC was produced by DFAUTO, it seemed
  8. // reasonable to simply include the code additions where possible so
  9. // that the source could continue to be updated with DFAUTO with a minumum
  10. // of overhead. This is one of the included modules.
  11.  
  12. use UI
  13.  
  14. // For the action bar.
  15. //    on_key KCANCEL send exit_application PRIVATE
  16.  
  17. /File_Pull_Down_Img
  18. ┌───────────────────────┐
  19. │ _____________________ │
  20. │ _____________________ │
  21. │ _____________________ │
  22. ├───────────────────────┤
  23. │ _____________________ │
  24. └───────────────────────┘
  25. /*
  26.  
  27.  
  28. register_object File_Pull_Down
  29. on_item 'File' send Activate_Pull_Down to (File_Pull_Down( Current_Object ))
  30.  
  31. object File_Pull_Down is a Pull_Down_Menu File_Pull_Down_Img
  32.  
  33.     item_list
  34.         on_item "User Errors"           send openFlexerrs      to errorTable_Table
  35.         on_item "System Errors"         send openSystemErrors  to errorTable_Table
  36.         on_item "Utility Errors"        send openUtilityErrors to errorTable_Table
  37.         on_item "Exit           Alt+F4" send exit_Area
  38.     end_item_list
  39.  
  40. end_object
  41.  
  42.  
  43.