From f166a8d7e08a42c0a4e57b33e03a1fab8c2d741e Mon Sep 17 00:00:00 2001
From: Robert Greene <robgreene@users.sourceforge.net>
Date: Thu, 17 Jun 2004 03:01:00 +0000
Subject: [PATCH] Recognizes Pascal ".text" files and uses the
 PascalTextFileFilter.

---
 .../applecommander/storage/os/pascal/PascalFileEntry.java  | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/com/webcodepro/applecommander/storage/os/pascal/PascalFileEntry.java b/src/com/webcodepro/applecommander/storage/os/pascal/PascalFileEntry.java
index f038cc9..7bbed88 100644
--- a/src/com/webcodepro/applecommander/storage/os/pascal/PascalFileEntry.java
+++ b/src/com/webcodepro/applecommander/storage/os/pascal/PascalFileEntry.java
@@ -32,6 +32,7 @@ import com.webcodepro.applecommander.storage.FileFilter;
 import com.webcodepro.applecommander.storage.FormattedDisk;
 import com.webcodepro.applecommander.storage.filters.BinaryFileFilter;
 import com.webcodepro.applecommander.storage.filters.GraphicsFileFilter;
+import com.webcodepro.applecommander.storage.filters.PascalTextFileFilter;
 import com.webcodepro.applecommander.storage.filters.TextFileFilter;
 import com.webcodepro.applecommander.util.AppleUtil;
 
@@ -246,7 +247,11 @@ public class PascalFileEntry implements FileEntry {
 	 */
 	public FileFilter getSuggestedFilter() {
 		if ("textfile".equals(getFiletype())) {
-			return new TextFileFilter();
+			if (getFilename().toLowerCase().endsWith(".text")) {
+				return new PascalTextFileFilter();
+			} else {
+				return new TextFileFilter();
+			}
 		} else if ("datafile".equals(getFiletype()) && getSize() >= 8184 && getSize() <= 8192) {
 			GraphicsFileFilter filter = new GraphicsFileFilter();
 			filter.setMode(GraphicsFileFilter.MODE_HGR_COLOR);