// A test of ReplDocument and friends.
// Jamison Hope 2009-11-15 16:21:11EST jrh SchemeReplTest.java
// Time-stamp: <2009-11-15 16:37:00EST jrh SchemeReplTest.java>
// $Id: $
import java.awt.*;
import javax.swing.*;
import gnu.mapping.Environment;
import kawa.ReplDocument;
import kawa.ReplPane;
import kawa.standard.Scheme;

/**
 * A test of ReplDocument's "shared" attribute.
 * javac SchemeReplTest.java
 * java SchemeReplTest
 *
 * @author Jamison Hope
 */
public class SchemeReplTest implements Runnable {

  public static void main( String[] args ) {
    new SchemeReplTest();
  }

  private Scheme scheme;
  private Environment environment;

  public SchemeReplTest() {
    Scheme.registerEnvironment();
    scheme = Scheme.getInstance();
    environment = Environment.getCurrent();
    EventQueue.invokeLater( this );
  }

  public void run() {
    JFrame f = new JFrame( "Scheme REPL" );
    // If you change true to false, then everything works fine.
    ReplDocument doc = new ReplDocument( scheme, environment, true );
    // But then it doesn't use a shared environment.
    ReplPane pane = new ReplPane( doc );
    f.getContentPane().add( new JScrollPane(pane),
                            BorderLayout.CENTER );
    f.setSize( 800, 600 );
    f.setVisible( true );
  }
}