From c38f2a9c3c95e1ae4e7522f9949234288f20b2a1 Mon Sep 17 00:00:00 2001
From: Robert Greene <robgreene@users.sourceforge.net>
Date: Thu, 17 Jun 2004 03:04:19 +0000
Subject: [PATCH] Added "Pascal Text..." to the export context menu.

---
 .../applecommander/ui/swt/DiskExplorerTab.java         | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/com/webcodepro/applecommander/ui/swt/DiskExplorerTab.java b/src/com/webcodepro/applecommander/ui/swt/DiskExplorerTab.java
index 19bf5ac..dcb8285 100644
--- a/src/com/webcodepro/applecommander/ui/swt/DiskExplorerTab.java
+++ b/src/com/webcodepro/applecommander/ui/swt/DiskExplorerTab.java
@@ -83,6 +83,7 @@ import com.webcodepro.applecommander.storage.filters.ApplesoftFileFilter;
 import com.webcodepro.applecommander.storage.filters.BinaryFileFilter;
 import com.webcodepro.applecommander.storage.filters.GraphicsFileFilter;
 import com.webcodepro.applecommander.storage.filters.IntegerBasicFileFilter;
+import com.webcodepro.applecommander.storage.filters.PascalTextFileFilter;
 import com.webcodepro.applecommander.storage.filters.TextFileFilter;
 import com.webcodepro.applecommander.storage.os.prodos.ProdosDiskSizeDoesNotMatchException;
 import com.webcodepro.applecommander.storage.os.prodos.ProdosFormatDisk;
@@ -488,6 +489,15 @@ public class DiskExplorerTab {
 			}
 		});
 
+		item = new MenuItem(menu, SWT.NONE);
+		item.setText("Pascal Text...");
+		item.addSelectionListener(new SelectionAdapter() {
+			public void widgetSelected(SelectionEvent event) {
+				fileFilter = new PascalTextFileFilter();
+				exportFile(null);
+			}
+		});
+
 		item = new MenuItem(menu, SWT.NONE);
 		item.setText("AppleWorks Spreadsheet File...");
 		item.addSelectionListener(new SelectionAdapter() {