[Query] Introduce NoAnswer class

Author: shingarov

src/PreSmalltalks-Pharo/NoAnswer.class.st

@@ -0,0 +1,31 @@
+Class {
+	#name : #NoAnswer,
+	#superclass : #Error,
+	#instVars : [
+		'query'
+	],
+	#category : #'PreSmalltalks-Pharo'
+}
+
+{ #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
+]