From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,3ff9f8c6be91ab0c,start
X-Google-Attributes: gid103376,public
From: frebourg@cui.unige.ch (FREBOURG Fabrice)
Subject: Transposition between Java and Ada 95 (intermetrics)
Date: 1996/12/16
Message-ID: <593uk3$9rr@uni2f.unige.ch>#1/1
X-Deja-AN: 204410221
organization: University of Geneva, Switzerland
reply-to: frebourg@cui.unige.ch
newsgroups: comp.lang.ada
Date: 1996-12-16T00:00:00+00:00
List-Id: <comp.lang.ada>


Hello,

I'm a beginner in Ada. So I have got some problems with the formalism
in Ada. I would like to create an applet. Espacially create a frame
window with the following constructor (FrameWindow). How I could write
such a code in Ada 95.

class FrameWindow extends Frame {

public	TextArea 	Text;
public  TextField	entry;
public	Button	 	b1,b2;
public	Panel		p1,p2;



	public  FrameWindow() {
        
        
		setLayout(new BorderLayout());
	
		p1 = new Panel();
		p2 = new Panel();            
		p1.setLayout(new BorderLayout());
        	p2.setLayout(new BorderLayout());

                entry = new TextField();
                p1.add("North",entry);
        	Text = new TextArea();               
		p1.add("Center",Text);
       		b1 = new Button("b1");
        	b2 = new Button("b2");        
        	p2.add("West",b1);
       		p2.add("East",b2);

       		add("Center",p1);
        	add("South",p2);

	} // Constructor FrameWindow

.
.
.
.

I would like to thank you in advance for your answer.

Good Bye.

Fabrice (frebourg@cui.unige.ch)