home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / flexerr2.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  1.9 KB  |  67 lines
  1. // DataFlex Source Code
  2. // Copyright 1987-1992 Data Access Corporation, Miami FL, USA
  3. // All Rights reserved
  4. // 
  5. // LS 5/12/92
  6. // JR 2/7/92
  7.  
  8. // Since a large part of FLEXERRS.SRC was produced by DFAUTO, it seemed
  9. // reasonable to simply include the code additions where possible so
  10. // that the source could continue to be updated with DFAUTO with a minumum
  11. // of overhead. This is one of the included modules.
  12.  
  13. /cancelZoomButtonImg
  14. ____________        _________
  15. /*
  16.  
  17. object cancelZoomButton is a button cancelZoomButtonImg
  18.     
  19.     set location to 9 14 relative
  20.  
  21.     item_List
  22.         on_item "<Esc=Cancel>" send deactivate to ( parent( current_Object ) )
  23.         on_item "<F1=Help>" send help
  24.     end_Item_List
  25.  
  26.     procedure add_Focus integer focusParent
  27.         forward send add_Focus focusParent
  28.         set focus_Mode to POINTER_ONLY
  29.     end_Procedure
  30.  
  31.     procedure release_Focus
  32.         set focus_mode to FOCUSABLE
  33.         forward send release_Focus
  34.     end_Procedure
  35.  
  36. end_Object
  37.  
  38. procedure popUp
  39.     forward send popUp
  40.     send add_Focus to ( cancelZoomButton( current_Object ) ) current_Object
  41. end_Procedure
  42.  
  43. procedure request_Cancel
  44.     send release_Focus to ( cancelZoomButton( current_Object ) )
  45.     forward send request_Cancel
  46. end_Procedure
  47.  
  48. procedure request_Clear
  49.     [ not editOnlyState ] forward send request_Clear
  50. end_Procedure
  51.  
  52. procedure request_Clear_All // disable this operation altogether
  53. end_procedure
  54.  
  55. procedure request_Delete
  56.     if (overrideEditState or ;
  57.         (not(editOnlyState) and current_Record(server(current_Object)) GT 100)) ;
  58.         forward send request_Delete
  59.     else error DFERR_DELETE_A_PROT_REC
  60. end_Procedure
  61.  
  62. //--------------------------------------------------------------------------
  63. //--------------------------------------------------------------------------
  64.  
  65. set verify_Delete_Msg to get_Verify_A_Delete
  66. set verify_Save_Msg   to get_Verify_A_Save
  67.