Project

General

Profile

multiple-issues-test.p

test - Igor Skornyakov, 03/21/2016 03:48 PM

Download (454 Bytes)

 
1 
DEF VAR ed AS CHARACTER VIEW-AS EDITOR
2 
	SCROLLBAR-HORIZONTAL
3 
	SCROLLBAR-VERTICAL
4 
	INNER-CHARS 20
5 
	INNER-LINES 4
6 
	LABEL "Editor".
7 
DEF BUTTON btnOK LABEL "OK".
8 
DEF BUTTON btnDebug LABEL "Debug".
9 

    		
  

  

    
      10
    
    
      
DEF FRAME fr ed SKIP btnOK btnDebug.


    		
  

  

    
      11
    
    
      

    		
  

  

    
      12
    
    
      
DEF VAR h AS HANDLE.


    		
  

  

    
      13
    
    
      
h = ed:HANDLE IN FRAME fr.


    		
  

  

    
      14
    
    
      
h:READ-ONLY = true.


    		
  

  

    
      15
    
    
      
h:INSERT-STRING("01234567890012345678900123456789001234567890").


    		
  

  

    
      16
    
    
      
ENABLE ALL WITH FRAME fr NO-LABEL THREE-D.


    		
  

  

    
      17
    
    
      

    		
  

  

    
      18
    
    
      
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW.