Added missing method required by method lookup MOP. jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 04 Oct 2013 12:12:02 +0100
branchjv
changeset 18101 8fec4f5f194c
parent 18100 477e030287c1
child 18102 7e0c971b2849
Added missing method required by method lookup MOP.
Process.st
libbasic.rc
--- a/Process.st	Tue Oct 01 14:38:05 2013 +0100
+++ b/Process.st	Fri Oct 04 12:12:02 2013 +0100
@@ -463,6 +463,7 @@
     "Created: 15.11.1996 / 11:41:06 / cg"
 ! !
 
+
 !Process methodsFor:'accessing'!
 
 beGUIProcess
@@ -1353,6 +1354,17 @@
 
 !Process methodsFor:'special'!
 
+externalLookupPopIfEqual: lookupObject
+    "Called by method lookup MOP when an lookup context is to be unwound
+     to cleanup lookup stack"
+    lookupActivations first == lookupObject ifTrue:[
+        lookupActivations := lookupActivations second.
+    ].
+
+    "Created: / 04-10-2013 / 10:46:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 04-10-2013 / 12:08:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 millisecondDelay:millis
     "suspend the current process for some time.
      If the receiver is a system process (i.e. scheduler or event dispatcher)
@@ -2072,6 +2084,11 @@
     ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.179 2013-04-19 09:35:37 cg Exp $'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '§ Id: Process.st 10643 2011-06-08 21:53:07Z vranyj1  §'
 ! !
--- a/libbasic.rc	Tue Oct 01 14:38:05 2013 +0100
+++ b/libbasic.rc	Fri Oct 04 12:12:02 2013 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2012\nCopyright eXept Software AG 1998-2013\0"
       VALUE "ProductName", "Smalltalk/X\0"
       VALUE "ProductVersion", "6.2.3.0\0"
-      VALUE "ProductDate", "Tue, 01 Oct 2013 13:36:54 GMT\0"
+      VALUE "ProductDate", "Fri, 04 Oct 2013 11:09:17 GMT\0"
     END
 
   END