Software and Programmer Efficiency Research Group

package ch.usi.inf.sape.gui.test.app;
 
import java.awt.BorderLayout;
import java.awt.Point;
 
import javax.swing.JFrame;
import javax.swing.JScrollPane;
import javax.swing.JTextArea;
 
 
/**
 * Test GUI capture and replay tools for their ability to handle scrolling in a text area.
 * 
 * See our AST'10 paper "Automating Performance Testing of Interactive Java Applications".
 * 
 * Copyright (c) 2010 - Sape Research Group, University of Lugano
 */
public final class ScrollingTestFrame extends JFrame {	
 
	public ScrollingTestFrame() {		
		super("ScrolingTestFrame");
		setDefaultCloseOperation(DISPOSE_ON_CLOSE);
 
		final JTextArea ta = new JTextArea(
				"Nel mezzo del cammin di nostra vita\n"+
				"mi ritrovai per una selva oscura\n"+
				"ché la diritta via era smarrita.\n\n"+
				"Ahi quanto a dir qual era è cosa dura\n"+
				"esta selva selvaggia e aspra e forte\n"+
				"che nel pensier rinova la paura!\n\n"+
				"Tant'è amara che poco è più morte;\n"+
				"ma per trattar del ben ch'i' vi trovai,\n"+
				"dirò de l'altre cose ch'i' v'ho scorte.\n\n"+
				"Io non so ben ridir com'i' v'intrai,\n"+
				"tant'era pien di sonno a quel punto\n"+
				"che la verace via abbandonai.\n\n"+
				"Ma poi ch'i' fui al piè d'un colle giunto,\n"+
				"là dove terminava quella valle\n"+
				"che m'avea di paura il cor compunto,\n\n"+
				"guardai in alto e vidi le sue spalle\n"+
				"vestite già de' raggi del pianeta\n"+
				"che mena dritto altrui per ogne calle.\n\n"+
				"Allor fu la paura un poco queta,\n"+
				"che nel lago del cor m'era durata\n"+
				"la notte ch'i' passai con tanta pieta.");
 
 
		final JScrollPane sp = new JScrollPane(ta);
		add(sp, BorderLayout.CENTER);
 
		setSize(200, 200);
		setLocation(new Point (200,100));
		setResizable(false);
		setVisible(true);
	}
 
 
	public static void main(final String[] args) {
		new ScrollingTestFrame();
	}
 
}