Project

General

Profile

buffer-release-method-1.p

Vadim Nebogatov, 05/07/2013 03:53 PM

Download (333 Bytes)

 
1 
ON WRITE OF btest NEW new-btest OLD old-btest DO:
2 
IF new-btest.bnn1 <> false THEN DO:
3 
MESSAGE "Incorrect value".
4 
RETURN ERROR.
5 
END.
6 
END.
7 

    		
  

  

    
      8
    
    
      
def buffer b1 for btest.


    		
  

  

    
      9
    
    
      
def var hBuffer1 as handle.


    		
  

  

    
      10
    
    
      
hBuffer1 = buffer b1:handle.


    		
  

  

    
      11
    
    
      

    		
  

  

    
      12
    
    
      
create btest.


    		
  

  

    
      13
    
    
      
btest.bnn1 = true.


    		
  

  

    
      14
    
    
      
message "before release".


    		
  

  

    
      15
    
    
      
hBuffer1:buffer-release().


    		
  

  

    
      16
    
    
      
message "after release".


    		
  

  

    
      17