# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1094221538 -7200
# Node ID ed59f67b9feee97b3fc19f9f9c5bca5f362a8fd7
# Parent  41ebace0f00a5ba2ff30124dff836d89a9466a1a
ImageMethodObect>>#previousVersionCode

diff -r 41ebace0f00a -r ed59f67b9fee SnapShotImageMemory.st
--- a/SnapShotImageMemory.st	Fri Jul 30 17:27:27 2004 +0200
+++ b/SnapShotImageMemory.st	Fri Sep 03 16:25:38 2004 +0200
@@ -1448,6 +1448,13 @@
 
 isMethod
     ^ true
+!
+
+previousVersionCode
+    "return the receivers previous versions source code"
+
+    "there is no previous version"
+    ^ nil
 ! !
 
 !SnapShotImageMemory::ImageClassObject methodsFor:'accessing - slots'!