01: /*
02: * Jatha - a Common LISP-compatible LISP library in Java.
03: * Copyright (C) 1997-2005 Micheal Scott Hewett
04: *
05: * This library is free software; you can redistribute it and/or
06: * modify it under the terms of the GNU Lesser General Public
07: * License as published by the Free Software Foundation; either
08: * version 2.1 of the License, or (at your option) any later version.
09: *
10: * This library is distributed in the hope that it will be useful,
11: * but WITHOUT ANY WARRANTY; without even the implied warranty of
12: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13: * Lesser General Public License for more details.
14: *
15: * You should have received a copy of the GNU Lesser General Public
16: * License along with this library; if not, write to the Free Software
17: * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18: *
19: *
20: * For further information, please contact Micheal Hewett at
21: * hewett@cs.stanford.edu
22: *
23: */
24: package org.jatha.display;
25:
26: import org.jatha.Jatha;
27: import org.jatha.display.menu.*;
28:
29: import javax.swing.*;
30: import java.awt.*;
31:
32: /**
33: * Main frame for Jatha when it is using its own window.
34: * Contains a LispListener.
35: */
36: public class AppletFrame extends JFrame {
37: Jatha myApplet;
38: JPanel panel;
39:
40: public AppletFrame(String title, Jatha jatha, int width, int height) {
41: // Create the frame with the specified title.
42: super (title);
43: myApplet = jatha;
44:
45: MenuBar menubar = new MenuBar();
46: Menu file = new Menu("File", true);
47: menubar.add(file);
48: file.add(new QuitMenuItem("Quit"));
49: this .setMenuBar(menubar);
50: file.addActionListener(myApplet);
51:
52: panel = new JPanel();
53: this .getContentPane().add("Center", panel);
54: // this.setSize(width, height);
55: this .pack();
56: this .setVisible(true);
57:
58: myApplet.init();
59: myApplet.start();
60: }
61: }
|