corbaframe.java

来自「《Delphi开发人员指南》配书原码」· Java 代码 · 共 43 行

package CorbaServer;

import java.awt.*;
import java.awt.event.*;
import com.sun.java.swing.*;
import CorbaServer.SimpleText;
import borland.jbcl.control.*;
import borland.jbcl.layout.*;

public class CorbaFrame extends JFrame {

  //Construct the frame
  TextFieldControl remoteText = new TextFieldControl();
  XYLayout xYLayout1 = new XYLayout();

  public CorbaFrame() {
    enableEvents(AWTEvent.WINDOW_EVENT_MASK);
    try  {
      jbInit();
    }
    catch (Exception e) {
      e.printStackTrace();
    }
  }
//Component initialization
  
  private void jbInit() throws Exception  {
    this.getContentPane().setLayout(xYLayout1);
    this.setSize(new Dimension(400, 300));
    this.setTitle("Corba Java Server Demo");
    this.getContentPane().add(remoteText, new XYConstraints(49, 113, 289, 33));
  }
//Overriden so we can exit on System Close
  
  protected void processWindowEvent(WindowEvent e) {
    super.processWindowEvent(e);
    if (e.getID() == WindowEvent.WINDOW_CLOSING) {
      System.exit(0);
    }
  }
}