Project

General

Profile

rect-5.p

test case - Marius Gligor, 04/15/2014 05:19 AM

Download (489 Bytes)

 
1 
DEFINE RECTANGLE Rect1 SIZE-CHARS 12 BY 8 NO-FILL EDGE-CHARS 2.
2 
DEFINE RECTANGLE Rect2 SIZE 12 BY 8 DCOLOR 25 PFCOLOR 28 GRAPHIC-EDGE.
3 
DEFINE RECTANGLE Rect3 SIZE 12 BY 8 GRAPHIC-EDGE NO-FILL.
4 
DEFINE BUTTON btn-Exit LABEL "Exit".
5 
DEFINE BUTTON btn-Rect LABEL "Display Rectangle".
6 

    		
  

  

    
      7
    
    
      
ENABLE SKIP(1) btn-Rect SKIP(1) btn-Exit SKIP(1) WITH SIDE-LABELS NO-BOX.


    		
  

  

    
      8
    
    
      

    		
  

  

    
      9
    
    
      
ON CHOOSE OF btn-Rect


    		
  

  

    
      10
    
    
      
DO:


    		
  

  

    
      11
    
    
      
   DISPLAY Rect1 SPACE(1) Rect2 SPACE(1) Rect3 WITH NO-BOX.


    		
  

  

    
      12
    
    
      
END.


    		
  

  

    
      13
    
    
      

    		
  

  

    
      14
    
    
      
WAIT-FOR CHOOSE OF btn-Exit.