'From Squeak3.8alpha of ''17 July 2004'' [latest update: #6311] on 9 October 2004 at 5:21:37 pm'! "Change Set: ClosureCompSmallChanges-md Date: 9 October 2004 Author: Marcus Denker Some smaller changes from the ClosureCompiler"! StringHolder subclass: #Inspector instanceVariableNames: 'object selectionIndex timeOfLastListUpdate selectionUpdateTime context' classVariableNames: '' poolDictionaries: '' category: 'Tools-Inspector'! !CompiledMethod methodsFor: 'decompiling' stamp: 'ajh 7/14/2001 12:34'! primitiveNode | primNode n | primNode _ PrimitiveNode new num: (n _ self primitive). (n = 117 or: [n = 120]) ifTrue: [ primNode spec: (self literalAt: 1)]. ^ primNode! ! !False methodsFor: 'printing' stamp: 'ajh 7/1/2004 10:36'! asBit ^ 0! ! !Inspector methodsFor: 'accessing' stamp: 'ajh 7/7/2004 15:55'! context: ctxt "Set the context of inspection. Currently only used by my subclass ClosureEnvInspector. The inst var is here because we do primitiveChangeClassTo: between subclasses (see inspect:) between different subclasses, but also context could be used as a general concept in all inspectors" context _ ctxt! ! !InstructionStream methodsFor: 'decoding' stamp: 'ajh 3/2/2003 14:06'! interpret [self atEnd] whileFalse: [self interpretNextInstructionFor: self]! ! !BlockContext methodsFor: 'scheduling' stamp: 'ajh 2/10/2003 14:23'! asContext ^ self! ! !BlockContext methodsFor: 'scheduling' stamp: 'ajh 2/10/2003 14:25'! newProcess "Answer a Process running the code in the receiver. The process is not scheduled." "Simulation guard" ^Process forContext: [self value. Processor terminateActive] asContext priority: Processor activePriority! ! !BlockContext methodsFor: 'scheduling' stamp: 'ajh 2/10/2003 14:25'! newProcessWith: anArray "Answer a Process running the code in the receiver. The receiver's block arguments are bound to the contents of the argument, anArray. The process is not scheduled." "Simulation guard" ^Process forContext: [self valueWithArguments: anArray. Processor terminateActive] asContext priority: Processor activePriority! ! !BlockContext methodsFor: 'private' stamp: 'ajh 7/7/2004 13:43'! myEnv "polymorphic with MethodContext" ^ nil! ! !LookupKey methodsFor: 'accessing' stamp: 'ajh 9/12/2002 12:04'! canAssign ^ true! ! !ReadOnlyVariableBinding methodsFor: 'accessing' stamp: 'ajh 9/12/2002 12:06'! canAssign ^ false! ! !True methodsFor: 'printing' stamp: 'ajh 7/1/2004 10:36'! asBit ^ 1! ! MessageCatcher removeSelector: #privEchoToTranscript! MessageCatcher removeSelector: #privEchoToTranscript:!