[Query] Introduce class NoAnswer

shingarov · Nov 12, 2024 · 1ee135a · 1ee135a
1 parent 0fc6d16
commit 1ee135a
Showing 1 changed file with 31 additions and 0 deletions.
diff --git a/src/PreSmalltalks/NoAnswer.class.st b/src/PreSmalltalks/NoAnswer.class.st
@@ -0,0 +1,31 @@
+Class {
+	#name : #NoAnswer,
+	#superclass : #Error,
+	#instVars : [
+		'query'
+	],
+	#category : #PreSmalltalks
+}
+
+{ #category : #signalling }
+NoAnswer class >> signalFor: aQuery [
+	^self new
+		query: aQuery;
+		signal
+
+]
+
+{ #category : #accessing }
+NoAnswer >> messageText [
+	^'No suitable default answer!'
+]
+
+{ #category : #accessing }
+NoAnswer >> query [
+	^ query
+]
+
+{ #category : #accessing }
+NoAnswer >> query: anObject [
+	query := anObject
+]