initial checkin
authorvrany
Tue, 24 Jan 2012 18:36:37 +0100
changeset 2744 f4e60b8ad090
parent 2743 0539670d18e4
child 2745 c2f7200248e7
initial checkin
InvalidChange.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/InvalidChange.st	Tue Jan 24 18:36:37 2012 +0100
@@ -0,0 +1,37 @@
+"{ Package: 'stx:libbasic3' }"
+
+Change subclass:#InvalidChange
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Changes'
+!
+
+
+!InvalidChange methodsFor:'applying'!
+
+apply
+    ^ self error:'Invalid change, cannot apply'
+
+    "Modified: / 24-01-2012 / 16:50:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!InvalidChange methodsFor:'printing & storing'!
+
+printOn:aStream
+    "append a printed representation if the receiver to the argument, aStream"
+
+    aStream nextPutAll: 'Invalid change'
+
+    "Modified: / 24-01-2012 / 16:51:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!InvalidChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/InvalidChange.st,v 1.1 2012-01-24 17:36:37 vrany Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic3/InvalidChange.st,v 1.1 2012-01-24 17:36:37 vrany Exp $'
+! !