From a93338f44719fa26f2b0e68ec825219b2650cbec Mon Sep 17 00:00:00 2001
From: Sean DeNigris <code@clipperadams.com>
Date: Sat, 4 May 2024 22:57:12 -0400
Subject: [PATCH] [Enh]: Image File -> Image Resource

---
 src/VirtualStash-Core/RlJPEG.extension.st | 2 +-
 src/VirtualStash-Core/RlPDF.extension.st  | 4 ++--
 src/VirtualStash-Core/RlTiff.extension.st | 2 +-
 src/VirtualStash-Core/VsDocument.class.st | 8 ++++----
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/VirtualStash-Core/RlJPEG.extension.st b/src/VirtualStash-Core/RlJPEG.extension.st
index bbb3f43..61fcc60 100644
--- a/src/VirtualStash-Core/RlJPEG.extension.st
+++ b/src/VirtualStash-Core/RlJPEG.extension.st
@@ -1,6 +1,6 @@
 Extension { #name : #RlJPEG }
 
 { #category : #'*VirtualStash-Core' }
-RlJPEG >> vsImageFile [
+RlJPEG >> vsImageResource [
 	^ self file
 ]
diff --git a/src/VirtualStash-Core/RlPDF.extension.st b/src/VirtualStash-Core/RlPDF.extension.st
index a879242..c4a8431 100644
--- a/src/VirtualStash-Core/RlPDF.extension.st
+++ b/src/VirtualStash-Core/RlPDF.extension.st
@@ -1,6 +1,6 @@
 Extension { #name : #RlPDF }
 
 { #category : #'*VirtualStash-Core' }
-RlPDF >> vsImageFile [
-	^ self imageFile
+RlPDF >> vsImageResource [
+	^ self imageResource
 ]
diff --git a/src/VirtualStash-Core/RlTiff.extension.st b/src/VirtualStash-Core/RlTiff.extension.st
index 736f0b7..44909d2 100644
--- a/src/VirtualStash-Core/RlTiff.extension.st
+++ b/src/VirtualStash-Core/RlTiff.extension.st
@@ -1,6 +1,6 @@
 Extension { #name : #RlTiff }
 
 { #category : #'*VirtualStash-Core' }
-RlTiff >> vsImageFile [
+RlTiff >> vsImageResource [
 	^ self file
 ]
diff --git a/src/VirtualStash-Core/VsDocument.class.st b/src/VirtualStash-Core/VsDocument.class.st
index 098d93c..20dfa05 100644
--- a/src/VirtualStash-Core/VsDocument.class.st
+++ b/src/VirtualStash-Core/VsDocument.class.st
@@ -268,8 +268,8 @@ VsDocument >> datesRecognized [
 
 { #category : #accessing }
 VsDocument >> form [
-	^ self imageFile
-		ifNotNil: [ :f | Form fromFileNamed: f fullName ]
+	^ self imageResource
+		ifNotNil: [ :res | res asForm ]
 		ifNil: [ Morph new imageForm ]
 ]
 
@@ -308,9 +308,9 @@ VsDocument >> hocr [
 ]
 
 { #category : #accessing }
-VsDocument >> imageFile [
+VsDocument >> imageResource [
 
-	^ self resource imageFile
+	^ self resource imageResource
 ]
 
 { #category : #accessing }