home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / flexerr3.inc < prev    next >
Encoding:
Text File  |  1993-05-19  |  2.2 KB  |  75 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/13/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. //--------------------------------------------------------------------------
  14. //--------------------------------------------------------------------------
  15.  
  16. number errorOffset
  17. move 0 to errorOffset
  18.  
  19. indicator editOnlyState
  20. indicate editOnlyState FALSE
  21.  
  22. string special 7
  23. indicator overrideEditState
  24. cmdline special
  25. indicate overrideEditState as (upperCase( special )) eq "-SYSTEM"
  26.  
  27. //--------------------------------------------------------------------------
  28. //--------------------------------------------------------------------------
  29.  
  30. /Verify_Image
  31. ╔══════════════════════════════╗
  32. ║ ____________________________ ║
  33. ║ ┌──────────────────────────┐ ║
  34. ║ │     <__>   <______>      │ ║
  35. ║ └──────────────────────────┘ ║
  36. ╚══════════════════════════════╝
  37. /*
  38.  
  39. Sub_Page Ok_Cancel_Prompt FROM Verify_Image     2 3
  40.  
  41. object Verify_It is a CLIENT Verify_Image
  42.  
  43.    set LOCATION to 7 25 ABSOLUTE
  44.    set CENTER_STATE of current_Object item 0 to TRUE
  45.    
  46.    set SCOPE_STATE to TRUE
  47.    set POPUP_STATE to TRUE
  48.    
  49.    object Ask_Ok is a button Ok_Cancel_Prompt
  50.  
  51.       item_List
  52.           On_Item "OK"     SEND Ok
  53.           On_Item "CANCEL" SEND Cancel
  54.       end_Item_List
  55.    
  56.    End_Object // Ask_Ok
  57.       
  58.    function Validate_Ok string Description returns integer
  59.       local integer Return_Val
  60.       set VALUE of Verify_It item 0 to Description
  61.       ui_accept Verify_It OBJECT to Return_Val
  62.       function_return Return_Val
  63.    end_Function
  64.  
  65. End_Object // Verify_It
  66.  
  67. function verify_A_Delete returns integer
  68.    if (Validate_Ok(Verify_It.obj,"Delete Confirmation")) ne MSG_OK function_Return 1
  69. end_Function
  70.  
  71. function verify_A_Save returns integer
  72.    if (Validate_Ok(Verify_It.obj,"Save Confirmation")) ne MSG_OK function_Return 1
  73. end_Function
  74.  
  75.