lib/browser/GraphBrowser/GraphBrowserFrame.java
author berghofe
Thu, 29 Apr 1999 22:42:38 +0200
changeset 6541 d3ac35b2bfbf
parent 3599 89cbba12863d
child 11875 5fcf6b6436af
permissions -rw-r--r--
Updated to JDK 1.1.x
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
     1
/***************************************************************************
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
     2
  Title:      GraphBrowser/GraphBrowserFrame.java
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
     3
  ID:         $Id$
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
     4
  Author:     Stefan Berghofer, TU Muenchen
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
     5
  Copyright   1997  TU Muenchen
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
     6
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
     7
  This class is the frame for the stand-alone application. It contains
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
     8
  methods for handling menubar events.
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
     9
***************************************************************************/
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    10
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    11
package GraphBrowser;
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    12
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    13
import java.awt.*;
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    14
import java.awt.event.*;
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    15
import java.io.*;
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    16
import awtUtilities.*;
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    17
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    18
public class GraphBrowserFrame extends Frame implements ActionListener {
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    19
	GraphBrowser gb;
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    20
	MenuItem i1, i2;
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    21
	String graphDir, psDir;
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    22
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    23
	public void checkMenuItems() {
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    24
		if (gb.isEmpty()) {
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    25
			i1.setEnabled(false);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    26
			i2.setEnabled(false);
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    27
		} else {
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    28
			i1.setEnabled(true);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    29
			i2.setEnabled(true);
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    30
		}
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    31
	}
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    32
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    33
	public void actionPerformed(ActionEvent evt) {
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    34
		String label = evt.getActionCommand();
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    35
		if (label.equals("Quit"))
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    36
			System.exit(0);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    37
		else if (label.equals("Export to PostScript")) {
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    38
			PS(true, label);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    39
			return;
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    40
		} else if (label.equals("Export to EPS")) {
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    41
			PS(false, label);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    42
			return;
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    43
		} else if (label.equals("Open ...")) {
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    44
			FileDialog fd = new FileDialog(this, "Open graph file", FileDialog.LOAD);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    45
			if (graphDir != null)
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    46
				fd.setDirectory(graphDir);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    47
			fd.setVisible(true);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    48
			if (fd.getFile() == null) return;
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    49
			graphDir = fd.getDirectory();
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    50
			String fname = graphDir + fd.getFile();
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    51
			GraphBrowser gb2 = new GraphBrowser(fname);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    52
			try {
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    53
				InputStream is = new FileInputStream(fname);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    54
				gb2.initBrowser(is);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    55
				is.close();
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    56
			} catch (IOException exn) {
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    57
				String button[] = {"OK"};
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    58
				MessageDialog md = new MessageDialog(this, "Error",
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    59
					"Can't open file " + fname + ".", button);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    60
				md.setSize(350, 200);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    61
				md.setVisible(true);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    62
				return;
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    63
			}
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    64
			remove(gb);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    65
			add("Center", gb2);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    66
			gb = gb2;
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    67
			checkMenuItems();
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    68
			validate();
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    69
		}
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    70
	}
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    71
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    72
	public void PS(boolean printable,String label) {
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    73
		FileDialog fd=new FileDialog(this,label,FileDialog.SAVE);
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    74
		if (psDir!=null)
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    75
			fd.setDirectory(psDir);
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    76
		fd.setVisible(true);
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    77
		if (fd.getFile()==null) return;
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    78
		psDir=fd.getDirectory();
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    79
		String fname=psDir+fd.getFile();
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    80
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    81
		if ((new File(fname)).exists()) {
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    82
			String buttons[]={"Overwrite","Cancel"};
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    83
			MessageDialog md=new MessageDialog(this,"Warning",
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    84
			      "Warning: File "+fname+" already exists. Overwrite?",
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    85
			      buttons);
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    86
			md.setSize(350,200);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    87
			md.setVisible(true);
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    88
			if (md.getText().equals("Cancel")) return;
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    89
		}
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    90
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    91
		try {
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    92
			gb.PS(fname,printable);
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    93
		} catch (IOException exn) {
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    94
			String button[]={"OK"};
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    95
			MessageDialog md=new MessageDialog(this,"Error",
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    96
			      "Unable to write file "+fname+".",button);
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    97
			md.setSize(350,200);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
    98
			md.setVisible(true);
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
    99
		}
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
   100
	}
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
   101
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
   102
	public GraphBrowserFrame(GraphBrowser br) {
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
   103
		super("GraphBrowser");
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   104
		MenuItem i3, i4;
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   105
		gb = br;
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   106
		MenuBar mb = new MenuBar();
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   107
		Menu m1 = new Menu("File");
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   108
		m1.add(i3 = new MenuItem("Open ..."));
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   109
		m1.add(i1 = new MenuItem("Export to PostScript"));
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   110
		m1.add(i2 = new MenuItem("Export to EPS"));
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   111
		m1.add(i4 = new MenuItem("Quit"));
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   112
		i1.addActionListener(this);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   113
		i2.addActionListener(this);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   114
		i3.addActionListener(this);
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   115
		i4.addActionListener(this);
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
   116
		checkMenuItems();
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
   117
		mb.add(m1);
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
   118
		setMenuBar(mb);
6541
d3ac35b2bfbf Updated to JDK 1.1.x
berghofe
parents: 3599
diff changeset
   119
		add("Center", br);
3599
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
   120
	}
89cbba12863d Source files for Isabelle theory graph browser.
berghofe
parents:
diff changeset
   121
}