core/MetacelloVersionDefinitionError.st
changeset 10 fd87600067b8
parent 1 9e312de5f694
child 11 d354ac2af7ec
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/core/MetacelloVersionDefinitionError.st	Mon Sep 10 20:55:47 2012 +0000
@@ -0,0 +1,43 @@
+"{ Package: 'stx:goodies/metacello' }"
+
+MetacelloVersionDoesNotExistError subclass:#MetacelloVersionDefinitionError
+	instanceVariableNames:'exception'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Metacello-Core-Exceptions-Errors'
+!
+
+
+!MetacelloVersionDefinitionError methodsFor:'accessing'!
+
+exception
+	^ exception
+!
+
+exception: anObject
+	exception := anObject
+! !
+
+!MetacelloVersionDefinitionError methodsFor:'printing'!
+
+description
+    "Return a textual description of the exception."
+
+    ^ 'The version ' , self versionString printString , ' is not defined in ' , self project label
+        , ' for the current platform, because an exception occurred while creating the version:. '
+        , self exception description , '. Evaluate the following to see the error: ''['
+        , self project configuration class name asString
+        ,
+            ' project ] 
+	on: MetacelloErrorInProjectConstructionNotification 
+	do: [:ex | ex resume: true ].'''
+        ,
+            '
+Possible versions include: ' , self possibleVersions printString
+! !
+
+!MetacelloVersionDefinitionError class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id::                                                                                                                        $'
+! !