├── .github └── workflows │ └── main.yml ├── .smalltalk.ston ├── .squot ├── README.md ├── packages ├── BaselineOfSimulationStudio.package │ ├── .filetree │ ├── .squot-contents │ ├── BaselineOfSimulationStudio.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── baseline..st │ │ │ ├── depChangeset..st │ │ │ ├── depInbox..st │ │ │ ├── depSqueakSource.name..st │ │ │ ├── depSqueakSource.name.targetRepository..st │ │ │ ├── installPreviewDependencies..st │ │ │ └── projectClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── monticello.meta │ │ ├── categories.st │ │ └── initializers.st │ └── properties.json ├── SimulationStudio-Base.package │ ├── .filetree │ ├── .squot-contents │ ├── BasicSimulatorContext.class │ │ ├── README.md │ │ ├── class │ │ │ ├── chooseUniqueClassName.st │ │ │ ├── forbiddenBasicAddSelector.withMethod..st │ │ │ ├── forbiddenBasicRemoveSelector..st │ │ │ └── newFor..st │ │ ├── instance │ │ │ ├── allSimulators.st │ │ │ ├── initializeFrom..st │ │ │ ├── isSimulatorContext.st │ │ │ ├── matchesSimulationContext..st │ │ │ ├── simulator..st │ │ │ └── simulator.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Behavior.extension │ │ ├── instance │ │ │ ├── simIsBooleanClass.st │ │ │ └── simIsContextClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── BlockClosure.extension │ │ ├── instance │ │ │ └── debug.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Boolean.extension │ │ ├── class │ │ │ └── simIsBooleanClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Context.extension │ │ ├── class │ │ │ ├── contextWrap..st │ │ │ ├── debug..st │ │ │ ├── fromSimulationContext..st │ │ │ ├── runSimulated..st │ │ │ └── simIsContextClass.st │ │ ├── instance │ │ │ ├── canSimulateYourself.st │ │ │ ├── debug.st │ │ │ ├── insertEnsure..st │ │ │ ├── insertOn.do..st │ │ │ ├── isSimulationContext.st │ │ │ ├── isSimulatorContext.st │ │ │ ├── matchesSimulationContext..st │ │ │ ├── return.from..st │ │ │ ├── simBasicObjectIdentityHash..st │ │ │ ├── simCustomizationLevel.st │ │ │ ├── simObject.setIsReadOnly..st │ │ │ ├── simObjectIdentityHash..st │ │ │ ├── simObjectIsReadOnly..st │ │ │ ├── simObjectShallowCopy..st │ │ │ └── wrap..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Process.extension │ │ ├── class │ │ │ └── forContext..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimPluggableWeakKeyDictionary.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── ^equals.st │ │ │ ├── collect..st │ │ │ ├── copyEmpty.st │ │ │ ├── equalBlock..st │ │ │ ├── equalBlock.st │ │ │ ├── hashBlock..st │ │ │ ├── hashBlock.st │ │ │ ├── scanFor..st │ │ │ └── scanForEmptySlotFor..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationContext.class │ │ ├── README.md │ │ ├── class │ │ │ ├── basicNew..st │ │ │ ├── basicNew.st │ │ │ ├── debug..st │ │ │ ├── fromSimulationContext..st │ │ │ ├── new.st │ │ │ ├── newForMethod..st │ │ │ ├── newFrom..st │ │ │ ├── newInstanceFrom.variable.size.map..st │ │ │ ├── runSimulated..st │ │ │ └── runSimulated.contextAtEachStep..st │ │ ├── instance │ │ │ ├── activateMethod.withArgs.receiver..st │ │ │ ├── activateReturn.value..st │ │ │ ├── allSimulators.st │ │ │ ├── at..st │ │ │ ├── at.put..st │ │ │ ├── basicAt..st │ │ │ ├── basicAt.put..st │ │ │ ├── basicCustomize..st │ │ │ ├── basicSize.st │ │ │ ├── copyFrom..st │ │ │ ├── customize..st │ │ │ ├── decustomize..st │ │ │ ├── doPrimitive.method.receiver.args..st │ │ │ ├── findNextHandlerContextStarting.st │ │ │ ├── findNextUnwindContextUpTo..st │ │ │ ├── initialize.st │ │ │ ├── initializeFrom..st │ │ │ ├── initializeStack.st │ │ │ ├── isSimulationContext.st │ │ │ ├── lookupSelector.inClass..st │ │ │ ├── matchesSimulationContext..st │ │ │ ├── pop.st │ │ │ ├── postCopy.st │ │ │ ├── printOn..st │ │ │ ├── push..st │ │ │ ├── runSimulated..st │ │ │ ├── runSimulated.contextAtEachStep..st │ │ │ ├── runUntilErrorOrReturnFrom..st │ │ │ ├── send.to.with.lookupIn..st │ │ │ ├── shouldNotImplement..st │ │ │ ├── size.st │ │ │ ├── stackp..st │ │ │ ├── step.st │ │ │ ├── tempAt..st │ │ │ ├── tempAt.put..st │ │ │ └── tryNamedPrimitiveIn.for.withArgs..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationError.class │ │ ├── README.md │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Simulator.class │ │ ├── README.md │ │ ├── class │ │ │ ├── basicContextClass.st │ │ │ ├── cleanUp.st │ │ │ ├── cleanUpContextClasses.st │ │ │ ├── contextClassForCapabilities..st │ │ │ ├── contextClassForSimulators..st │ │ │ ├── debug..st │ │ │ ├── debug.runUntil..st │ │ │ ├── decorating..st │ │ │ ├── evaluate..st │ │ │ ├── fullContextClass.st │ │ │ ├── noteAddedSelector.meta..st │ │ │ ├── warmUp.st │ │ │ └── warmUpContextClasses.st │ │ ├── instance │ │ │ ├── allSimulators.st │ │ │ ├── basicSimulate.do..st │ │ │ ├── basicSimulate.do.chain..st │ │ │ ├── canContextSimulateItself.do..st │ │ │ ├── capabilityPragmas.st │ │ │ ├── context.activateMethod.withArgs.receiver.do..st │ │ │ ├── context.blockReturnConstant.do..st │ │ │ ├── context.callPrimitive.do..st │ │ │ ├── context.directedSuperSend.numArgs.do..st │ │ │ ├── context.doBlockReturnTop..st │ │ │ ├── context.doDup..st │ │ │ ├── context.doMethodReturnReceiver..st │ │ │ ├── context.doMethodReturnTop..st │ │ │ ├── context.doPop..st │ │ │ ├── context.doPrimitive.method.receiver.args.do..st │ │ │ ├── context.doPushActiveContext..st │ │ │ ├── context.doPushReceiver..st │ │ │ ├── context.doSingleRelease..st │ │ │ ├── context.executeMethod.forSelector.withArgs.receiver.do..st │ │ │ ├── context.failPrimitiveWith.do..st │ │ │ ├── context.jump.do..st │ │ │ ├── context.jump.if.do..st │ │ │ ├── context.lookupSelector.inClass.do..st │ │ │ ├── context.methodReturnConstant.do..st │ │ │ ├── context.popIntoLiteralVariable.do..st │ │ │ ├── context.popIntoReceiverVariable.do..st │ │ │ ├── context.popIntoRemoteTemp.inVectorAt.do..st │ │ │ ├── context.popIntoTemporaryVariable.do..st │ │ │ ├── context.push.do..st │ │ │ ├── context.pushClosureCopyNumCopiedValues.numArgs.blockSize.do..st │ │ │ ├── context.pushConsArrayWithElements.do..st │ │ │ ├── context.pushConstant.do..st │ │ │ ├── context.pushFullClosure.numCopied.do..st │ │ │ ├── context.pushLiteralVariable.do..st │ │ │ ├── context.pushNewArrayOfSize.do..st │ │ │ ├── context.pushReceiverVariable.do..st │ │ │ ├── context.pushRemoteTemp.inVectorAt.do..st │ │ │ ├── context.pushSpecialConstant.do..st │ │ │ ├── context.pushTemporaryVariable.do..st │ │ │ ├── context.return.from.do..st │ │ │ ├── context.runSimulated.contextAtEachStep.do..st │ │ │ ├── context.send.super.numArgs.do..st │ │ │ ├── context.send.to.with.do..st │ │ │ ├── context.send.to.with.lookupIn.do..st │ │ │ ├── context.sendSpecial.numArgs.do..st │ │ │ ├── context.simulatedObject.instVarAt.put.do..st │ │ │ ├── context.step..st │ │ │ ├── context.storeIntoLiteralVariable.do..st │ │ │ ├── context.storeIntoReceiverVariable.do..st │ │ │ ├── context.storeIntoRemoteTemp.inVectorAt.do..st │ │ │ ├── context.storeIntoTemporaryVariable.do..st │ │ │ ├── context.tryNamedPrimitiveIn.for.withArgs.do..st │ │ │ ├── customize..st │ │ │ ├── debug..st │ │ │ ├── debug.runUntil..st │ │ │ ├── evaluate..st │ │ │ ├── initializeContext..st │ │ │ ├── matchesSimulator..st │ │ │ ├── nextSimulator..st │ │ │ ├── nextSimulator.st │ │ │ ├── printOn..st │ │ │ └── requiredCapabilities.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulatorApp.class │ │ ├── README.md │ │ ├── class │ │ │ ├── appName.st │ │ │ ├── basicSelfUpdateBranch..st │ │ │ ├── defaultFeedbackText.st │ │ │ ├── defaultSelfUpdateBranch.st │ │ │ ├── githubNewIssueUrl.st │ │ │ ├── githubNewIssueUrlWithBody..st │ │ │ ├── githubRepositoryParams.st │ │ │ ├── latestTimeStamp.st │ │ │ ├── openUrl..st │ │ │ ├── selfUpdate.st │ │ │ ├── selfUpdateBranch..st │ │ │ ├── selfUpdateBranch.st │ │ │ ├── selfUpdateFromMetacello.st │ │ │ ├── selfUpdateGitHubPath.st │ │ │ ├── sendFeedback.st │ │ │ └── sendFeedbackGitHub.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulatorContext.class │ │ ├── README.md │ │ ├── class │ │ │ ├── canonicalArgumentName.st │ │ │ └── noteAddedSelector.meta..st │ │ ├── instance │ │ │ ├── activateMethod.withArgs.receiver..st │ │ │ ├── blockReturnConstant..st │ │ │ ├── blockReturnTop.st │ │ │ ├── callPrimitive..st │ │ │ ├── canSimulateYourself.st │ │ │ ├── directedSuperSend.numArgs..st │ │ │ ├── doDup.st │ │ │ ├── doPop.st │ │ │ ├── doPrimitive.method.receiver.args..st │ │ │ ├── executeMethod.forSelector.withArgs.receiver..st │ │ │ ├── failPrimitiveWith..st │ │ │ ├── initializeFrom..st │ │ │ ├── jump..st │ │ │ ├── jump.if..st │ │ │ ├── lookupSelector.inClass..st │ │ │ ├── matchesSimulationContext..st │ │ │ ├── methodReturnConstant..st │ │ │ ├── methodReturnReceiver.st │ │ │ ├── methodReturnTop.st │ │ │ ├── pop.st │ │ │ ├── popIntoLiteralVariable..st │ │ │ ├── popIntoReceiverVariable..st │ │ │ ├── popIntoRemoteTemp.inVectorAt..st │ │ │ ├── popIntoTemporaryVariable..st │ │ │ ├── push..st │ │ │ ├── pushActiveContext.st │ │ │ ├── pushClosureCopyNumCopiedValues.numArgs.blockSize..st │ │ │ ├── pushConsArrayWithElements..st │ │ │ ├── pushConstant..st │ │ │ ├── pushFullClosure.numCopied..st │ │ │ ├── pushLiteralVariable..st │ │ │ ├── pushNewArrayOfSize..st │ │ │ ├── pushReceiver.st │ │ │ ├── pushReceiverVariable..st │ │ │ ├── pushRemoteTemp.inVectorAt..st │ │ │ ├── pushSpecialConstant..st │ │ │ ├── pushTemporaryVariable..st │ │ │ ├── return.from..st │ │ │ ├── runSimulated.contextAtEachStep..st │ │ │ ├── send.super.numArgs..st │ │ │ ├── send.to.with..st │ │ │ ├── send.to.with.lookupIn..st │ │ │ ├── sendSpecial.numArgs..st │ │ │ ├── simulatedObject.instVarAt.put..st │ │ │ ├── singleRelease.st │ │ │ ├── step.st │ │ │ ├── storeIntoLiteralVariable..st │ │ │ ├── storeIntoReceiverVariable..st │ │ │ ├── storeIntoRemoteTemp.inVectorAt..st │ │ │ ├── storeIntoTemporaryVariable..st │ │ │ └── tryNamedPrimitiveIn.for.withArgs..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── monticello.meta │ │ ├── categories.st │ │ └── initializers.st │ └── properties.json ├── SimulationStudio-Sandbox.package │ ├── .filetree │ ├── .squot-contents │ ├── BalloonEngine.extension │ │ ├── class │ │ │ ├── allocateOrRecycleBuffer..st │ │ │ └── recycleBuffer..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── BasicSimulatorContext.extension │ │ ├── instance │ │ │ └── isSandboxContext.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── ClassDescription.extension │ │ ├── class │ │ │ └── dontLogCompiledSourcesDuring..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Context.extension │ │ ├── instance │ │ │ └── isSandboxContext.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── DebuggerMethodMap.extension │ │ ├── class │ │ │ ├── forMethod..st │ │ │ └── sandboxedForMethod..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── PragmaticSandbox.class │ │ ├── README.md │ │ ├── class │ │ │ ├── evaluate..st │ │ │ ├── evaluate.ifFailed..st │ │ │ ├── evaluate.on.do..st │ │ │ └── fromMemory..st │ │ ├── instance │ │ │ ├── addObject..st │ │ │ ├── addPragmaticClassesTo..st │ │ │ ├── addPragmaticMethodsTo..st │ │ │ ├── addPragmaticMultiMethodsTo..st │ │ │ ├── assertUnmodifiedObject..st │ │ │ ├── basicEvaluate..st │ │ │ ├── context.activateMethod.withArgs.receiver.do..st │ │ │ ├── context.doPrimitive.method.receiver.args.do..st │ │ │ ├── doCompiledMethodPreamble..st │ │ │ ├── doDateAndTime.perform.context..st │ │ │ ├── doEnvironmentAllClasses.context..st │ │ │ ├── doEnvironmentClassNames.context..st │ │ │ ├── doRemoteStringText..st │ │ │ ├── doString.includesSubstring.context..st │ │ │ ├── doStringAsLowercase..st │ │ │ ├── doSymbolClass.selectorsMatching.context..st │ │ │ ├── doSystemNavigation.perform.withArgs.context..st │ │ │ ├── doTalkConversation.perform..st │ │ │ ├── doTalkInbox.perform..st │ │ │ ├── doTalkInboxClass.perform..st │ │ │ ├── doTalkMailObjectDate..st │ │ │ ├── doWebClientDefaultUserAgent..st │ │ │ ├── evaluate..st │ │ │ ├── evaluate.ifFailed..st │ │ │ ├── evaluate.on.do..st │ │ │ ├── exportMemory.st │ │ │ ├── importMemory..st │ │ │ ├── initialize.st │ │ │ ├── initializePragmaticMethods.st │ │ │ ├── patchObject.with..st │ │ │ ├── readableObjectFor..st │ │ │ ├── stepCount.st │ │ │ ├── stepLimit..st │ │ │ ├── stepLimit.st │ │ │ └── warn..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Process.extension │ │ ├── class │ │ │ ├── new.st │ │ │ └── sandboxedNew.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── RestrictivePragmaticSandbox.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── doMorphOpenInWorld.context..st │ │ │ ├── doObjectInspect.perform.context..st │ │ │ ├── doToolSetBrowse.perform.args.context..st │ │ │ ├── pragmatic.forbidden..st │ │ │ └── pragmaticForbidden..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Sandbox.class │ │ ├── README.md │ │ ├── class │ │ │ ├── debug..st │ │ │ ├── disableLoggingAndNotifyingDuringCompilation..st │ │ │ ├── evaluate..st │ │ │ ├── evaluate.ifFailed..st │ │ │ ├── evaluate.on.do..st │ │ │ ├── fromMemory..st │ │ │ └── initialize.st │ │ ├── instance │ │ │ ├── addObject..st │ │ │ ├── basicEvaluate..st │ │ │ ├── debug..st │ │ │ ├── elements.exchangeIdentityWith..st │ │ │ ├── elements.forwardIdentityTo.copyHash..st │ │ │ ├── evaluate..st │ │ │ ├── evaluate.ifFailed..st │ │ │ ├── evaluate.on.do..st │ │ │ ├── exportMemory.st │ │ │ ├── hasModifiedObject..st │ │ │ ├── hashFor..st │ │ │ ├── importMemory..st │ │ │ ├── initialize.st │ │ │ ├── lookupSelector.inClass..st │ │ │ ├── patchObject.with..st │ │ │ ├── readableObjectFor..st │ │ │ ├── registerStep.st │ │ │ ├── simulatedClass.compiledMethodAt.ifPresent..st │ │ │ ├── stepCount.st │ │ │ ├── stepLimit..st │ │ │ ├── stepLimit.st │ │ │ └── writableObjectFor..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Sandbox2.class │ │ ├── README.md │ │ ├── class │ │ │ ├── benchmarkSandboxVsSandbox2.st │ │ │ ├── debug..st │ │ │ ├── disableLoggingAndNotifyingDuringCompilation..st │ │ │ ├── evaluate..st │ │ │ ├── evaluate.ifFailed..st │ │ │ ├── evaluate.on.do..st │ │ │ ├── fromMemory..st │ │ │ └── initialize.st │ │ ├── instance │ │ │ ├── access.indirectors..st │ │ │ ├── addObject..st │ │ │ ├── basicEvaluate..st │ │ │ ├── context.activateOperationForbidden..st │ │ │ ├── context.canBeImmutable..st │ │ │ ├── context.doNamedPrimitiveIn.for.withArgs..st │ │ │ ├── context.doPrimitive.method.receiver.args.do..st │ │ │ ├── context.doPrimitiveHash.receiver.args..st │ │ │ ├── context.doPrimitiveNew.receiver.args..st │ │ │ ├── context.doPrimitiveSetImmutability.receiver.args..st │ │ │ ├── context.elements.exchangeIdentityWith..st │ │ │ ├── context.elements.forwardIdentityAndHashTo..st │ │ │ ├── context.elements.forwardIdentityTo..st │ │ │ ├── context.elements.forwardIdentityTo.copyHash..st │ │ │ ├── context.lookupSelector.inClass.do..st │ │ │ ├── context.popIntoRemoteTemp.inVectorAt.do..st │ │ │ ├── context.primitiveFailTokenFor..st │ │ │ ├── context.pushLiteralVariable.do..st │ │ │ ├── context.pushReceiverVariable.do..st │ │ │ ├── context.pushRemoteTemp.inVectorAt.do..st │ │ │ ├── context.runSimulated.contextAtEachStep.do..st │ │ │ ├── context.simulatedClass.compiledMethodAt.ifPresent..st │ │ │ ├── context.simulatedObject.basicAt..st │ │ │ ├── context.simulatedObject.basicAt.put..st │ │ │ ├── context.simulatedObject.instVarAt..st │ │ │ ├── context.simulatedObject.instVarAt.put.do..st │ │ │ ├── context.step..st │ │ │ ├── context.storeIntoRemoteTemp.inVectorAt.do..st │ │ │ ├── context.tryNamedPrimitiveIn.for.withArgs.do..st │ │ │ ├── elements.exchangeIdentityWith..st │ │ │ ├── elements.forwardIdentityTo.copyHash..st │ │ │ ├── evaluate..st │ │ │ ├── evaluate.ifFailed..st │ │ │ ├── evaluate.on.do..st │ │ │ ├── exportMemory.st │ │ │ ├── hasModifiedObject..st │ │ │ ├── hashFor..st │ │ │ ├── importMemory..st │ │ │ ├── initialize.st │ │ │ ├── initializeContext..st │ │ │ ├── isSandbox.st │ │ │ ├── operationForbidden..st │ │ │ ├── patchObject.with..st │ │ │ ├── readableObjectFor..st │ │ │ ├── registerStep.st │ │ │ ├── shouldBeImplemented..st │ │ │ ├── shouldNotImplement..st │ │ │ ├── stepCount.st │ │ │ ├── stepLimit..st │ │ │ ├── stepLimit.st │ │ │ ├── valueIndex.st │ │ │ └── writableObjectFor..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SandboxContext.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── access.indirectors..st │ │ │ ├── activateOperationForbidden..st │ │ │ ├── canBeImmutable..st │ │ │ ├── doNamedPrimitiveIn.for.withArgs..st │ │ │ ├── doPrimitive.method.receiver.args..st │ │ │ ├── doPrimitiveHash.receiver.args..st │ │ │ ├── doPrimitiveNew.receiver.args..st │ │ │ ├── doPrimitiveSetImmutability.receiver.args..st │ │ │ ├── elements.exchangeIdentityWith..st │ │ │ ├── elements.forwardIdentityAndHashTo..st │ │ │ ├── elements.forwardIdentityTo..st │ │ │ ├── elements.forwardIdentityTo.copyHash..st │ │ │ ├── initializeFrom..st │ │ │ ├── isSandboxContext.st │ │ │ ├── lookupSelector.inClass..st │ │ │ ├── operationForbidden..st │ │ │ ├── popIntoRemoteTemp.inVectorAt..st │ │ │ ├── pushLiteralVariable..st │ │ │ ├── pushReceiverVariable..st │ │ │ ├── pushRemoteTemp.inVectorAt..st │ │ │ ├── runSimulated.contextAtEachStep..st │ │ │ ├── sandbox..st │ │ │ ├── sandbox.st │ │ │ ├── shouldBeImplemented..st │ │ │ ├── simulatedObject.basicAt..st │ │ │ ├── simulatedObject.basicAt.put..st │ │ │ ├── simulatedObject.instVarAt..st │ │ │ ├── simulatedObject.instVarAt.put..st │ │ │ ├── step.st │ │ │ ├── storeIntoRemoteTemp.inVectorAt..st │ │ │ └── tryNamedPrimitiveIn.for.withArgs..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SandboxError.class │ │ ├── README.md │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SandboxMemory.class │ │ ├── README.md │ │ ├── class │ │ │ └── objects.hashes..st │ │ ├── instance │ │ │ ├── explorerContents.st │ │ │ ├── hashes.st │ │ │ ├── manipulatedObjects.st │ │ │ ├── memorySize.st │ │ │ ├── objects.hashes..st │ │ │ ├── objects.st │ │ │ └── ownObjects.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SandboxOperationForbidden.class │ │ ├── README.md │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Simulator.extension │ │ ├── instance │ │ │ └── isSandbox.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── monticello.meta │ │ ├── categories.st │ │ └── initializers.st │ └── properties.json ├── SimulationStudio-Support.package │ ├── .filetree │ ├── .squot-contents │ ├── BenchmarkSimulator.class │ │ ├── README.md │ │ ├── class │ │ │ ├── benchmark.with..st │ │ │ ├── benchmarkSimulators.st │ │ │ ├── browseRecord..st │ │ │ ├── record..st │ │ │ └── selectBenchmark.with..st │ │ ├── instance │ │ │ ├── activateDuring..st │ │ │ ├── basicSimulate.do.chain..st │ │ │ ├── browsePrimitiveCounts.st │ │ │ ├── browseRecord.st │ │ │ ├── context.doPrimitive.method.receiver.args.do..st │ │ │ ├── context.step..st │ │ │ ├── context.tryNamedPrimitiveIn.for.withArgs.do..st │ │ │ ├── incrementPrimitiveCountFor..st │ │ │ ├── incrementStepCount.st │ │ │ ├── initialize.st │ │ │ ├── primitiveCounts.st │ │ │ ├── printOn..st │ │ │ ├── record..st │ │ │ ├── stepCount.st │ │ │ ├── timePerStep.st │ │ │ └── timeToRun.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── BlockClosure.extension │ │ ├── instance │ │ │ └── valueAndStoreTimeToRun..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── CoverageSimulator.class │ │ ├── README.md │ │ ├── class │ │ │ ├── browseFor.inClasses..st │ │ │ ├── example.st │ │ │ ├── printFor.inClasses..st │ │ │ └── todo.st │ │ ├── instance │ │ │ ├── allPCsIn..st │ │ │ ├── allPCsIn.do..st │ │ │ ├── context.step..st │ │ │ ├── coverageOf..st │ │ │ ├── coveredPCsIn..st │ │ │ ├── coveredSourceOf..st │ │ │ ├── coveredSymbolicOf..st │ │ │ ├── initialize.st │ │ │ ├── overallCoverageOf..st │ │ │ └── uncoveredPCsIn..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── LimitSimulator.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── context.step..st │ │ │ ├── initialize.st │ │ │ ├── stepCount.st │ │ │ ├── stepLimit..st │ │ │ └── stepLimit.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulatorLimitExceeded.class │ │ ├── README.md │ │ ├── class │ │ │ ├── forContext..st │ │ │ └── signalForContext..st │ │ ├── instance │ │ │ ├── context..st │ │ │ ├── context.st │ │ │ └── isResumable.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Time.extension │ │ ├── class │ │ │ ├── storeMillisecondsToRun.in..st │ │ │ ├── storeNanosecondsToRun.in..st │ │ │ ├── storeNanosecondsToRunHighRes.in..st │ │ │ └── storeTimeToRun.in..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── monticello.meta │ │ ├── categories.st │ │ └── initializers.st │ └── properties.json ├── SimulationStudio-Tests-Base.package │ ├── .filetree │ ├── .squot-contents │ ├── SimulationContextTest.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── executionTests.st │ │ │ ├── shouldExecute..st │ │ │ ├── shouldExecuteReturn..st │ │ │ ├── shouldExecuteSideEffect..st │ │ │ ├── shouldExecuteValue..st │ │ │ ├── testContextClass.st │ │ │ ├── testCustomizationLevel.st │ │ │ ├── testCustomize.st │ │ │ ├── testDecustomize.st │ │ │ ├── testExceptionHandlerAroundSimulator.st │ │ │ ├── testInsertEnsure.st │ │ │ ├── testInsertEnsureWithError.st │ │ │ ├── testInsertOnDo.st │ │ │ ├── testInsertOnDoWithError.st │ │ │ ├── testMirrorClone.st │ │ │ ├── testMirrorWriteBarrier.st │ │ │ ├── testNonLocalReturn.st │ │ │ ├── testObjectIdentityHash.st │ │ │ ├── testReturnFromBottom.st │ │ │ └── testWrap.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationKernelTest.class │ │ ├── README.md │ │ ├── class │ │ │ ├── excludedTestClassSelectors.st │ │ │ ├── expectedFailureGroups.st │ │ │ ├── expectedFailures.st │ │ │ ├── forClass.selector..st │ │ │ ├── isAbstract.st │ │ │ ├── shouldInheritSelectors.st │ │ │ ├── testGroups.st │ │ │ ├── testSelectorForClass.selector..st │ │ │ ├── testSelectors.st │ │ │ ├── testSelectorsFromGroups..st │ │ │ └── wantsToTest..st │ │ ├── instance │ │ │ ├── basicPerformTest.on.do..st │ │ │ ├── basicPerformTest.st │ │ │ ├── contextClass.st │ │ │ ├── defaultTimeout.st │ │ │ ├── expectedFailures.st │ │ │ ├── isInstalled.st │ │ │ ├── performTest.st │ │ │ ├── printOn..st │ │ │ ├── runSimulated..st │ │ │ ├── testClassChangeClassOf.st │ │ │ ├── testContextRunSimulated.st │ │ │ ├── testContextRunUntilErrorOrReturnFromError.st │ │ │ ├── testContextRunUntilErrorOrReturnFromNoError.st │ │ │ ├── testMNUNoSuper.st │ │ │ ├── testRecursiveMNU.st │ │ │ ├── testSimulationContextRunSimulated.st │ │ │ ├── testSimulatorContextRunSimulated.st │ │ │ ├── timeoutForSetUp.st │ │ │ └── timeoutForTest.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationTestCase.class │ │ ├── README.md │ │ ├── class │ │ │ └── isAbstract.st │ │ ├── instance │ │ │ ├── performTest.st │ │ │ └── shouldNotChange.after..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulatorKernelTest.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── runSimulated..st │ │ │ └── simulatorClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulatorKernelTestAllCapabilities.class │ │ ├── README.md │ │ ├── instance │ │ │ └── simulatorClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulatorKernelTestUnoptimized.class │ │ ├── README.md │ │ ├── instance │ │ │ └── simulatorClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── TestSimulatorAllCapabilities.class │ │ ├── README.md │ │ ├── instance │ │ │ └── requiredCapabilities.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── TestSimulatorUnoptimized.class │ │ ├── README.md │ │ ├── instance │ │ │ └── requiredCapabilities.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── monticello.meta │ │ ├── categories.st │ │ └── initializers.st │ └── properties.json ├── SimulationStudio-Tests-Sandbox.package │ ├── .filetree │ ├── .squot-contents │ ├── BasicSimulatorContext.extension │ │ ├── instance │ │ │ └── sandboxForTests.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── PragmaticSandboxKernelTest.class │ │ ├── README.md │ │ ├── instance │ │ │ └── sandboxClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── PragmaticSandboxTest.class │ │ ├── README.md │ │ ├── class │ │ │ └── shouldInheritSelectors.st │ │ ├── instance │ │ │ ├── expectedFailures.st │ │ │ └── sandboxClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Sandbox2KernelTest.class │ │ ├── README.md │ │ ├── instance │ │ │ └── sandboxClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Sandbox2Test.class │ │ ├── README.md │ │ ├── class │ │ │ └── shouldInheritSelectors.st │ │ ├── instance │ │ │ ├── sandboxClass.st │ │ │ └── testChaining.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SandboxContext.extension │ │ ├── instance │ │ │ └── sandboxForTests.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SandboxKernelTest.class │ │ ├── README.md │ │ ├── class │ │ │ ├── expectedFailureGroups.st │ │ │ └── testGroups.st │ │ ├── instance │ │ │ ├── basicPerformTest.on.do..st │ │ │ ├── defaultTimeout.st │ │ │ └── sandboxClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SandboxTest.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── expectedFailures.st │ │ │ ├── sandboxClass.st │ │ │ ├── someToken.st │ │ │ ├── testBitBlt.st │ │ │ ├── testCannotUsurpExecution.st │ │ │ ├── testClassComment.st │ │ │ ├── testCompile.st │ │ │ ├── testDebuggerMap.st │ │ │ ├── testExecuteQuickMethod.st │ │ │ ├── testIdentityHashConstant.st │ │ │ ├── testMemoryHashes.st │ │ │ ├── testMemoryObjects.st │ │ │ ├── testNoStackStealing.st │ │ │ ├── testOperationForbidden.st │ │ │ ├── testPatchObject.st │ │ │ ├── testRecursiveSandbox.st │ │ │ ├── testSandbox.st │ │ │ ├── testSandbox2.st │ │ │ ├── testStepCount.st │ │ │ ├── testStepLimit.st │ │ │ └── testSubclass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── monticello.meta │ │ ├── categories.st │ │ └── initializers.st │ └── properties.json ├── SimulationStudio-Tests-Support.package │ ├── .filetree │ ├── .squot-contents │ ├── BenchmarkSimulatorKernelTest.class │ │ ├── README.md │ │ ├── instance │ │ │ └── simulatorClass.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── BenchmarkSimulatorTest.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── simulatorClass.st │ │ │ ├── testChaining.st │ │ │ ├── testChainingReverse..st │ │ │ ├── testChainingReverse.st │ │ │ └── testSimple.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── monticello.meta │ │ ├── categories.st │ │ └── initializers.st │ └── properties.json ├── SimulationStudio-Tests-Tools.package │ ├── .filetree │ ├── .squot-contents │ ├── SimulationMethodFinderTest.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── classUnderTest.st │ │ │ ├── matches.spec..st │ │ │ ├── testFindComposite.st │ │ │ ├── testFindPredicate.st │ │ │ ├── testFindSendingPredicate.st │ │ │ ├── testFindValue.st │ │ │ ├── testFindValueBlock.st │ │ │ ├── testMethodFinder.limit.shouldFind..st │ │ │ ├── testMethodFinder.limit.shouldFind.butNotFind..st │ │ │ ├── testMethodFinder.shouldFind..st │ │ │ └── testMethodFinder.shouldFind.butNotFind..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationMethodFinderToolTest.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── classUnderTest.st │ │ │ ├── performTest.st │ │ │ ├── tearDown.st │ │ │ ├── testAccept.st │ │ │ ├── testDisplayExample.st │ │ │ ├── testFindPredicate.st │ │ │ ├── testFindRecursive.st │ │ │ ├── testFindSend.st │ │ │ ├── testFindValue.st │ │ │ ├── testMethodFinder..st │ │ │ ├── testMethodFinder.take..st │ │ │ ├── testProgress.st │ │ │ ├── testSimple.st │ │ │ ├── testWindow.st │ │ │ └── waitUntilDone.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationProtocolExplorerTest.class │ │ ├── README.md │ │ ├── instance │ │ │ ├── classUnderTest.st │ │ │ ├── performTest.st │ │ │ ├── tearDown.st │ │ │ └── testOpen.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── UIManager.extension │ │ ├── class │ │ │ └── simDontAttachToCursorDuring..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── monticello.meta │ │ ├── categories.st │ │ └── initializers.st │ └── properties.json ├── SimulationStudio-Tools.package │ ├── .filetree │ ├── .squot-contents │ ├── ArrayedCollection.extension │ │ ├── instance │ │ │ └── simAllOrderedSubsetsDo..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── DateAndTime.extension │ │ ├── instance │ │ │ └── simRemainingTimeForProgress..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Duration.extension │ │ ├── instance │ │ │ ├── simShortPrintOn..st │ │ │ └── simShortPrintString.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── MessageSetForCoverage.class │ │ ├── README.md │ │ ├── class │ │ │ ├── for.messageList.name..st │ │ │ ├── openFor.messageList.name..st │ │ │ └── useUnifiedMessageLabels.st │ │ ├── instance │ │ │ ├── contents.st │ │ │ ├── contentsSymbolQuints.st │ │ │ ├── coverage..st │ │ │ ├── coverage.st │ │ │ ├── coverageByteCodesContents.st │ │ │ ├── coverageSourceContents.st │ │ │ ├── initialize.st │ │ │ ├── initializeMessageList..st │ │ │ ├── showingCoverageByteCodes.st │ │ │ ├── showingCoverageByteCodesString.st │ │ │ ├── showingCoverageSource.st │ │ │ ├── showingCoverageSourceString.st │ │ │ ├── toggleCoverageByteCodes.st │ │ │ └── toggleCoverageSource.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── Object.extension │ │ ├── instance │ │ │ └── exploreProtocol.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SequenceableCollection.extension │ │ ├── instance │ │ │ └── simAllOrderedSubsetsDo..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationMethodFinder.class │ │ ├── README.md │ │ ├── class │ │ │ ├── browseSelectorPopularities.st │ │ │ ├── cleanUp..st │ │ │ ├── example.st │ │ │ ├── hasSelectorPopularities.st │ │ │ ├── initialize.st │ │ │ ├── initializeSelectorPopularities.st │ │ │ ├── popularityOfSelector..st │ │ │ └── todo.st │ │ ├── instance │ │ │ ├── allMatches.st │ │ │ ├── allPermutationModes.st │ │ │ ├── allSearchModes.st │ │ │ ├── assuredTranscripter.st │ │ │ ├── currentDepthProgress.st │ │ │ ├── currentDepthStartTime.st │ │ │ ├── currentSearchDepth.st │ │ │ ├── defaultIsCompositeSearch.st │ │ │ ├── expectedAnswer..st │ │ │ ├── expectedAnswer.st │ │ │ ├── initialize.st │ │ │ ├── isCompositeSearch..st │ │ │ ├── isCompositeSearch.st │ │ │ ├── matchesResult..st │ │ │ ├── outerSuperclass..st │ │ │ ├── outerSuperclass.st │ │ │ ├── permutationMode..st │ │ │ ├── permutationMode.st │ │ │ ├── predicate..st │ │ │ ├── predicate.st │ │ │ ├── receiver.arguments..st │ │ │ ├── receiverAndArguments..st │ │ │ ├── receiverAndArguments.st │ │ │ ├── sandboxClass.st │ │ │ ├── sandboxedDo.ifFailed..st │ │ │ ├── searchMode..st │ │ │ ├── searchMode.st │ │ │ ├── setExpectedAnswer..st │ │ │ ├── setPredicate..st │ │ │ ├── setSendingPredicate..st │ │ │ ├── streamMatchesOn..st │ │ │ ├── transcripter..st │ │ │ ├── transcripter.st │ │ │ ├── trySend.selector.arguments.ifSuccess..st │ │ │ └── trySendAndMatch.selector.arguments.ifMatch..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationMethodFinderExpression.class │ │ ├── README.md │ │ ├── class │ │ │ ├── leaf..st │ │ │ └── selector.receiver.arguments..st │ │ ├── instance │ │ │ ├── arguments..st │ │ │ ├── arguments.st │ │ │ ├── compiledMethod.st │ │ │ ├── isLeaf.st │ │ │ ├── methodReference.st │ │ │ ├── printOn..st │ │ │ ├── printReceiverOrArgument.on..st │ │ │ ├── receiver..st │ │ │ ├── receiver.st │ │ │ ├── selector..st │ │ │ ├── selector.st │ │ │ ├── value..st │ │ │ ├── value.st │ │ │ ├── valueClass.st │ │ │ └── withValue..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationMethodFinderTool.class │ │ ├── README.md │ │ ├── class │ │ │ ├── appName.st │ │ │ ├── initialize.st │ │ │ ├── open.st │ │ │ ├── registerInWorldMenu.st │ │ │ ├── todo.st │ │ │ ├── unload.st │ │ │ └── unregisterInWorldMenu.st │ │ ├── instance │ │ │ ├── aboutToStyle.requestor..st │ │ │ ├── acceptDroppingMorph.event.inMorph..st │ │ │ ├── addModelItemsToWindowMenu..st │ │ │ ├── bindingOf..st │ │ │ ├── buildControlPaneWith..st │ │ │ ├── buildInputsPaneWith..st │ │ │ ├── buildOutputPaneWith..st │ │ │ ├── buildResultsPaneWith..st │ │ │ ├── buildWith..st │ │ │ ├── checkForUnacceptedEditsIn.ifTrueAcceptDeferredAnd..st │ │ │ ├── compilerClass.st │ │ │ ├── contents.st │ │ │ ├── debugMessage.st │ │ │ ├── defaultHasPinnedArguments.st │ │ │ ├── defaultHasPinnedReceiver.st │ │ │ ├── defaultIsCompositeSearch.st │ │ │ ├── defaultOuterSuperclass.st │ │ │ ├── defaultSearchMode.st │ │ │ ├── displayExample.st │ │ │ ├── emptyContents.st │ │ │ ├── exampleSpecs.st │ │ │ ├── findMethods.st │ │ │ ├── finderClass.st │ │ │ ├── hasBindingOf..st │ │ │ ├── hasBindingThatBeginsWith..st │ │ │ ├── hasOuterSuperclass.st │ │ │ ├── hasPinnedArguments..st │ │ │ ├── hasPinnedArguments.st │ │ │ ├── hasPinnedReceiver..st │ │ │ ├── hasPinnedReceiver.st │ │ │ ├── initialize.st │ │ │ ├── initializeDefaults.st │ │ │ ├── inputsPaneHelp.st │ │ │ ├── inputsText..st │ │ │ ├── inputsText.requestor..st │ │ │ ├── inputsText.st │ │ │ ├── isCompositeSearch..st │ │ │ ├── isCompositeSearch.st │ │ │ ├── isOutputPredicate.st │ │ │ ├── isOutputSendingPredicate.st │ │ │ ├── isOutputValue.st │ │ │ ├── isSearching.st │ │ │ ├── makeContextForPredicate.st │ │ │ ├── makeContextForPredicateWith..st │ │ │ ├── makeContextForSendingPredicate.st │ │ │ ├── makeContextForSendingPredicateWith..st │ │ │ ├── messageListMenuSimulation..st │ │ │ ├── open.st │ │ │ ├── outerSuperclass..st │ │ │ ├── outerSuperclass.st │ │ │ ├── outerSuperclassLabel.st │ │ │ ├── outputMode..st │ │ │ ├── outputPaneHelp.st │ │ │ ├── outputText..st │ │ │ ├── outputText.requestor..st │ │ │ ├── outputText.st │ │ │ ├── prepareSendingPredicate.st │ │ │ ├── pseudoContextForPredicateWith..st │ │ │ ├── rebuildSelectorIndex.st │ │ │ ├── receiveNewResults.st │ │ │ ├── refusesToAcceptCodeFor..st │ │ │ ├── resetOutput.st │ │ │ ├── searchMode..st │ │ │ ├── searchMode.st │ │ │ ├── setOuterSuperclass.st │ │ │ ├── setOutputPredicate.st │ │ │ ├── setOutputSendingPredicate.st │ │ │ ├── setOutputValue.st │ │ │ ├── setSearchMode..st │ │ │ ├── showTranscripter.st │ │ │ ├── stepIn..st │ │ │ ├── stepTimeIn..st │ │ │ ├── stopSearching.st │ │ │ ├── toggleCompositeSearch.st │ │ │ ├── togglePinnedArguments.st │ │ │ ├── togglePinnedReceiver.st │ │ │ ├── verticalOffset.st │ │ │ ├── wantsDroppedMorph.event.inMorph..st │ │ │ ├── windowColorToUse.st │ │ │ ├── windowIsClosing.st │ │ │ └── windowTitle.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationProtocolExplorer.class │ │ ├── README.md │ │ ├── class │ │ │ ├── on..st │ │ │ ├── openOn..st │ │ │ └── todo.st │ │ ├── instance │ │ │ ├── aboutToStyle..st │ │ │ ├── addModelItemsToWindowMenu..st │ │ │ ├── appName.st │ │ │ ├── aspectDependencies.st │ │ │ ├── buildCategoryList..st │ │ │ ├── buildClassList..st │ │ │ ├── buildCodePaneWith..st │ │ │ ├── buildMessageList..st │ │ │ ├── buildWith..st │ │ │ ├── categories.st │ │ │ ├── changed..st │ │ │ ├── changedDependent..st │ │ │ ├── classIconAt..st │ │ │ ├── classIconFor..st │ │ │ ├── classIndex..st │ │ │ ├── classIndex.st │ │ │ ├── classSelectionsAt..st │ │ │ ├── classSelectionsAt.put..st │ │ │ ├── classes.st │ │ │ ├── contents.st │ │ │ ├── currentCompiledMethod.st │ │ │ ├── debugSelectedMessage.st │ │ │ ├── dependentAspectsOn..st │ │ │ ├── doItReceiver.st │ │ │ ├── exploreProtocolOfSelectedMessage.st │ │ │ ├── exploreSelectedMessage.st │ │ │ ├── iconForObject..st │ │ │ ├── indentedClasses.st │ │ │ ├── initialize.st │ │ │ ├── inspectSelectedMessage.st │ │ │ ├── isClassSelected..st │ │ │ ├── labelString.st │ │ │ ├── mainMessageListMenu..st │ │ │ ├── messageClass.st │ │ │ ├── messageColumnNameAt..st │ │ │ ├── messageColumns.st │ │ │ ├── messageHelpAtRow..st │ │ │ ├── messageHelpFor..st │ │ │ ├── messageIconAtRow.atColumn..st │ │ │ ├── messageIconFor.atColumnNamed..st │ │ │ ├── messageIconForSideEffectOf..st │ │ │ ├── messageKey.from..st │ │ │ ├── messageListMenu.shifted..st │ │ │ ├── messageMenu.shifted..st │ │ │ ├── messages.st │ │ │ ├── newMessageFor..st │ │ │ ├── object..st │ │ │ ├── object.st │ │ │ ├── open.st │ │ │ ├── openSelectedMessage.st │ │ │ ├── sandboxClass.st │ │ │ ├── selectCategory..st │ │ │ ├── selectProtocolMessage..st │ │ │ ├── selectedCategory.st │ │ │ ├── selectedClasses.st │ │ │ ├── selectedMessageIndex..st │ │ │ ├── selectedMessageIndex.st │ │ │ ├── selectedProtocolMessage.st │ │ │ ├── selectedSelector.st │ │ │ ├── selectors.st │ │ │ ├── setClass.selected..st │ │ │ └── withSelectedMessageResultDo..st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationProtocolMessage.class │ │ ├── README.md │ │ ├── class │ │ │ └── receiver.selector..st │ │ ├── instance │ │ │ ├── assureResult.st │ │ │ ├── debug.st │ │ │ ├── evaluate.st │ │ │ ├── hasError.st │ │ │ ├── hasResult.st │ │ │ ├── hasRun.st │ │ │ ├── hasSideEffects.st │ │ │ ├── ifResult.ifError..st │ │ │ ├── ifResult.ifError.ifPending..st │ │ │ ├── perform.st │ │ │ ├── printOn..st │ │ │ ├── receiver..st │ │ │ ├── receiver.st │ │ │ ├── result.st │ │ │ ├── resultOrError.st │ │ │ ├── sandboxClass.st │ │ │ ├── selector..st │ │ │ ├── selector.st │ │ │ ├── state.st │ │ │ └── theError.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulationPseudoContext.class │ │ ├── README.md │ │ ├── class │ │ │ └── forTemporaries..st │ │ ├── instance │ │ │ ├── namedTempAt..st │ │ │ ├── receiver.st │ │ │ ├── setTemporaries..st │ │ │ └── temporaries.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── SimulatorApp.extension │ │ ├── class │ │ │ ├── appMenu..st │ │ │ └── doSelfUpdate.st │ │ ├── methodProperties.json │ │ └── properties.json │ ├── monticello.meta │ │ ├── categories.st │ │ └── initializers.st │ └── properties.json └── SimulationStudio-Tracing.package │ ├── .filetree │ ├── .squot-contents │ ├── BlockClosure.extension │ ├── instance │ │ └── browseSimulationMessageSendRecord.st │ ├── methodProperties.json │ └── properties.json │ ├── MessageSendRecorderSimulator.class │ ├── README.md │ ├── class │ │ ├── browseRecord..st │ │ ├── on..st │ │ └── record..st │ ├── instance │ │ ├── activateDuring..st │ │ ├── basicSimulate.do.chain..st │ │ ├── browseRecord.st │ │ ├── context.return.from.do..st │ │ ├── context.send.to.with.lookupIn.do..st │ │ ├── initialize.st │ │ ├── newRecorder.st │ │ ├── record..st │ │ ├── recordReturn.to..st │ │ ├── recordSendMethod.receiver.arguments.context..st │ │ ├── recorder..st │ │ └── recorder.st │ ├── methodProperties.json │ └── properties.json │ ├── SimulationMessageSendRecorder.class │ ├── README.md │ ├── class │ │ ├── browseRecord..st │ │ ├── record..st │ │ └── todo.st │ ├── instance │ │ ├── basicRecord.st │ │ ├── initialize.st │ │ ├── newSimulator.st │ │ ├── record.st │ │ ├── recordSendMethod.receiver.arguments.context..st │ │ ├── sendBasicMessage.st │ │ ├── setMessageSend..st │ │ ├── simulator..st │ │ └── simulator.st │ ├── methodProperties.json │ └── properties.json │ ├── monticello.meta │ ├── categories.st │ └── initializers.st │ └── properties.json └── scripts └── createSAR.st /packages/BaselineOfSimulationStudio.package/.filetree: -------------------------------------------------------------------------------- 1 | { 2 | "noMethodMetaData" : true, 3 | "separateMethodMetaAndSource" : false, 4 | "useCypressPropertiesFile" : true } 5 | -------------------------------------------------------------------------------- /packages/BaselineOfSimulationStudio.package/.squot-contents: -------------------------------------------------------------------------------- 1 | SquotTrackedObjectMetadata { 2 | #objectClassName : #PackageInfo, 3 | #id : UUID [ 'cde576b47672384aa484578f24d2ef02' ], 4 | #objectsReplacedByNames : true, 5 | #serializer : #SquotCypressCodeSerializer 6 | } -------------------------------------------------------------------------------- /packages/BaselineOfSimulationStudio.package/BaselineOfSimulationStudio.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/BaselineOfSimulationStudio.package/BaselineOfSimulationStudio.class/README.md -------------------------------------------------------------------------------- /packages/BaselineOfSimulationStudio.package/BaselineOfSimulationStudio.class/instance/depInbox..st: -------------------------------------------------------------------------------- 1 | scripts 2 | depInbox: aString 3 | 4 | ^ self 5 | depSqueakSource: #inbox 6 | name: aString 7 | targetRepository: #trunk -------------------------------------------------------------------------------- /packages/BaselineOfSimulationStudio.package/BaselineOfSimulationStudio.class/instance/depSqueakSource.name..st: -------------------------------------------------------------------------------- 1 | scripts 2 | depSqueakSource: aMCRepository name: aString 3 | 4 | ^ self 5 | depSqueakSource: aMCRepository 6 | name: aString 7 | targetRepository: nil -------------------------------------------------------------------------------- /packages/BaselineOfSimulationStudio.package/BaselineOfSimulationStudio.class/instance/projectClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | projectClass 3 | 4 | ^ MetacelloCypressBaselineProject -------------------------------------------------------------------------------- /packages/BaselineOfSimulationStudio.package/monticello.meta/categories.st: -------------------------------------------------------------------------------- 1 | SystemOrganization addCategory: #BaselineOfSimulationStudio! 2 | -------------------------------------------------------------------------------- /packages/BaselineOfSimulationStudio.package/monticello.meta/initializers.st: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/BaselineOfSimulationStudio.package/monticello.meta/initializers.st -------------------------------------------------------------------------------- /packages/BaselineOfSimulationStudio.package/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/.filetree: -------------------------------------------------------------------------------- 1 | { 2 | "noMethodMetaData" : true, 3 | "separateMethodMetaAndSource" : false, 4 | "useCypressPropertiesFile" : true } 5 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/.squot-contents: -------------------------------------------------------------------------------- 1 | SquotTrackedObjectMetadata { 2 | #objectClassName : #PackageInfo, 3 | #id : UUID [ '6416368d4f21234f972f4bf64c4ea024' ], 4 | #objectsReplacedByNames : true, 5 | #serializer : #SquotCypressCodeSerializer 6 | } -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/BasicSimulatorContext.class/class/newFor..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | newFor: aSimulator 3 | 4 | ^ self new 5 | simulator: aSimulator; 6 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/BasicSimulatorContext.class/instance/allSimulators.st: -------------------------------------------------------------------------------- 1 | accessing 2 | allSimulators 3 | 4 | ^ self simulator allSimulators -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/BasicSimulatorContext.class/instance/initializeFrom..st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initializeFrom: anotherContext 3 | 4 | super initializeFrom: anotherContext. 5 | 6 | simulator := anotherContext simulator. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/BasicSimulatorContext.class/instance/isSimulatorContext.st: -------------------------------------------------------------------------------- 1 | testing 2 | isSimulatorContext 3 | 4 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/BasicSimulatorContext.class/instance/matchesSimulationContext..st: -------------------------------------------------------------------------------- 1 | testing 2 | matchesSimulationContext: aSimulationContext 3 | 4 | ^ (super matchesSimulationContext: aSimulationContext) 5 | and: [aSimulationContext simulator == simulator] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/BasicSimulatorContext.class/instance/simulator..st: -------------------------------------------------------------------------------- 1 | accessing 2 | simulator: aSimulator 3 | 4 | simulator := aSimulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/BasicSimulatorContext.class/instance/simulator.st: -------------------------------------------------------------------------------- 1 | accessing 2 | simulator 3 | 4 | ^ simulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Behavior.extension/instance/simIsBooleanClass.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-testing 2 | simIsBooleanClass 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Behavior.extension/instance/simIsContextClass.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-testing 2 | simIsContextClass 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Behavior.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "simIsBooleanClass" : "ct 9/20/2022 17:26", 6 | "simIsContextClass" : "ct 6/3/2022 18:36" } } 7 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Behavior.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "Behavior" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/BlockClosure.extension/instance/debug.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-support-pseudo override 2 | debug 3 | 4 | self flag: #moveUpstream. 5 | ^ (Process forBlock: self) debug -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/BlockClosure.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "debug" : "ct 1/23/2022 01:55" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/BlockClosure.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "BlockClosure" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Boolean.extension/class/simIsBooleanClass.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-testing 2 | simIsBooleanClass 3 | 4 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Boolean.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "simIsBooleanClass" : "ct 9/20/2022 17:27" }, 4 | "instance" : { 5 | } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Boolean.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "Boolean" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/class/debug..st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-support 2 | debug: aBlock 3 | 4 | ^ aBlock asContext debug -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/class/simIsContextClass.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-testing 2 | simIsContextClass 3 | 4 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/instance/canSimulateYourself.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-testing 2 | canSimulateYourself 3 | "Answer whether it is a valid operation to send #step to a thisContext instance of the receiver class." 4 | 5 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/instance/debug.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-support 2 | debug 3 | 4 | ^ (Process forContext: self) debugWithTitle: 'Explore stack' -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/instance/insertEnsure..st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-controlling 2 | insertEnsure: aBlock 3 | 4 | ^ self insertSender: (self class contextEnsure: aBlock) -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/instance/insertOn.do..st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-controlling 2 | insertOn: exceptionHandler do: aBlock 3 | 4 | ^ self insertSender: (self class 5 | contextOn: exceptionHandler 6 | do: aBlock) -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/instance/isSimulationContext.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-testing 2 | isSimulationContext 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/instance/isSimulatorContext.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-testing 2 | isSimulatorContext 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/instance/matchesSimulationContext..st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-testing 2 | matchesSimulationContext: aSimulationContext 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/instance/simCustomizationLevel.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-accessing 2 | simCustomizationLevel 3 | 4 | 5 | ^ 0 -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Context.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "Context" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Process.extension/class/forContext..st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Base-instance creation-pseudo-override 2 | forContext: aContext 3 | 4 | ^ self 5 | forContext: aContext 6 | priority: Processor activePriority -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Process.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "forContext:" : "ct 1/17/2021 21:11" }, 4 | "instance" : { 5 | } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Process.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "Process" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimPluggableWeakKeyDictionary.class/instance/copyEmpty.st: -------------------------------------------------------------------------------- 1 | copying 2 | copyEmpty 3 | 4 | ^super copyEmpty 5 | hashBlock: hashBlock; 6 | equalBlock: equalBlock; 7 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimPluggableWeakKeyDictionary.class/instance/equalBlock..st: -------------------------------------------------------------------------------- 1 | accessing 2 | equalBlock: aBlock 3 | "Set a new equality block. The block must accept two arguments and return true if the argumets are considered to be equal, false otherwise" 4 | equalBlock := aBlock. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimPluggableWeakKeyDictionary.class/instance/equalBlock.st: -------------------------------------------------------------------------------- 1 | accessing 2 | equalBlock 3 | "Return the block used for comparing the elements in the receiver." 4 | ^equalBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimPluggableWeakKeyDictionary.class/instance/hashBlock..st: -------------------------------------------------------------------------------- 1 | accessing 2 | hashBlock: aBlock 3 | "Set a new hash block. The block must accept one argument and must return the hash value of the given argument." 4 | hashBlock := aBlock. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimPluggableWeakKeyDictionary.class/instance/hashBlock.st: -------------------------------------------------------------------------------- 1 | accessing 2 | hashBlock 3 | "Return the block used for hashing the elements in the receiver." 4 | ^hashBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/class/basicNew..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | basicNew: size 3 | 4 | ^ self basicNew -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/class/basicNew.st: -------------------------------------------------------------------------------- 1 | instance creation 2 | basicNew 3 | 4 | ^ self perform: #basicNew: withArguments: #(0) inSuperclass: Object class -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/class/debug..st: -------------------------------------------------------------------------------- 1 | support 2 | debug: aBlock 3 | 4 | ^ (self newFrom: aBlock asContext) debug -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/class/new.st: -------------------------------------------------------------------------------- 1 | instance creation 2 | new 3 | 4 | ^ self newFrom: thisContext sender -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/class/newForMethod..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | newForMethod: aMethod 3 | 4 | ^ self basicNew initialize -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/class/newFrom..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | newFrom: aContext 3 | 4 | ^ self basicNew copyFrom: aContext -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/class/runSimulated..st: -------------------------------------------------------------------------------- 1 | simulation 2 | runSimulated: aBlock 3 | 4 | ^ self runSimulated: aBlock contextAtEachStep: [] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/class/runSimulated.contextAtEachStep..st: -------------------------------------------------------------------------------- 1 | simulation 2 | runSimulated: aBlock contextAtEachStep: anotherBlock 3 | 4 | ^ (self newFrom: thisContext) 5 | runSimulated: aBlock 6 | contextAtEachStep: anotherBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/activateMethod.withArgs.receiver..st: -------------------------------------------------------------------------------- 1 | controlling 2 | activateMethod: newMethod withArgs: args receiver: rcvr 3 | 4 | ^ self customize: (super activateMethod: newMethod withArgs: args receiver: rcvr) -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/activateReturn.value..st: -------------------------------------------------------------------------------- 1 | private 2 | activateReturn: aContext value: value 3 | 4 | ^ self customize: (super activateReturn: aContext value: value) -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/allSimulators.st: -------------------------------------------------------------------------------- 1 | accessing 2 | allSimulators 3 | 4 | ^ #() -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/at..st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | at: index 3 | 4 | ^ stack at: index -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/at.put..st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | at: index put: value 3 | 4 | ^ stack at: index put: value -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/basicAt..st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | basicAt: index 3 | 4 | ^ stack at: index -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/basicAt.put..st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | basicAt: index put: value 3 | 4 | ^ stack at: index put: value -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/basicCustomize..st: -------------------------------------------------------------------------------- 1 | converting 2 | basicCustomize: aContext 3 | "Answer a copy of aContext that is converted to the class of the receiver." 4 | 5 | ^ (self class newFrom: aContext) 6 | initializeFrom: self -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/basicSize.st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | basicSize 3 | 4 | self flag: #hacked. "for newInstanceFrom:variable:size:map: during recompilation. Do we need this?" 5 | ^ stack ifNil: [0] ifNotNil: [stack size] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/copyFrom..st: -------------------------------------------------------------------------------- 1 | copying 2 | copyFrom: aContext 3 | 4 | self initializeStack. 5 | super copyFrom: aContext. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/decustomize..st: -------------------------------------------------------------------------------- 1 | converting 2 | decustomize: aContext 3 | "Answer a version of the argument, aContext, that is an ordinary Context and can be executed by the current executor." 4 | 5 | ^ Context fromSimulationContext: aContext -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | super initialize. 5 | self initializeStack. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/initializeFrom..st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initializeFrom: anotherContext -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/initializeStack.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initializeStack 3 | 4 | stack := OrderedCollection new. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/isSimulationContext.st: -------------------------------------------------------------------------------- 1 | testing 2 | isSimulationContext 3 | 4 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/lookupSelector.inClass..st: -------------------------------------------------------------------------------- 1 | controlling 2 | lookupSelector: aSymbol inClass: aClass 3 | 4 | ^ aClass lookupSelector: aSymbol -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/matchesSimulationContext..st: -------------------------------------------------------------------------------- 1 | testing 2 | matchesSimulationContext: aSimulationContext 3 | 4 | ^ aSimulationContext isMemberOf: self class -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/pop.st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | pop 3 | 4 | | val | 5 | val := stack removeLast. 6 | self stackp: stackp - 1. 7 | ^ val -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/postCopy.st: -------------------------------------------------------------------------------- 1 | copying 2 | postCopy 3 | 4 | super postCopy. 5 | stack := stack copy. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/printOn..st: -------------------------------------------------------------------------------- 1 | printing 2 | printOn: aStream 3 | 4 | aStream nextPut: $*. 5 | super printOn: aStream. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/push..st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | push: val 3 | 4 | stack addLast: val. 5 | self stackp: stackp + 1. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/runSimulated..st: -------------------------------------------------------------------------------- 1 | system simulation 2 | runSimulated: aBlock 3 | 4 | ^ self runSimulated: aBlock contextAtEachStep: [] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/shouldNotImplement..st: -------------------------------------------------------------------------------- 1 | private 2 | shouldNotImplement: messageText 3 | 4 | ^ NotImplemented signal: messageText -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/size.st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | size 3 | 4 | ^ stackp -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/tempAt..st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | tempAt: index 3 | 4 | ^ stack at: index -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationContext.class/instance/tempAt.put..st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | tempAt: index put: value 3 | 4 | ^ stack at: index put: value -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationError.class/README.md: -------------------------------------------------------------------------------- 1 | I represent an Error that has occurred while simulating a CustomContext. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulationError.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/class/basicContextClass.st: -------------------------------------------------------------------------------- 1 | context classes 2 | basicContextClass 3 | 4 | ^ BasicSimulatorContext -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/class/cleanUp.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | cleanUp 3 | 4 | self cleanUpContextClasses. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/class/cleanUpContextClasses.st: -------------------------------------------------------------------------------- 1 | context classes 2 | cleanUpContextClasses 3 | 4 | ContextClasses ifNil: [^ self]. 5 | ContextClasses do: [:class | class removeFromSystem]. 6 | ContextClasses := nil. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/class/debug..st: -------------------------------------------------------------------------------- 1 | support 2 | debug: aBlock 3 | 4 | ^ self new debug: aBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/class/debug.runUntil..st: -------------------------------------------------------------------------------- 1 | support 2 | debug: debugBlock runUntil: contextBlock 3 | 4 | ^ self new debug: debugBlock runUntil: contextBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/class/decorating..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | decorating: aSimulator 3 | 4 | ^ self new 5 | nextSimulator: aSimulator; 6 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/class/evaluate..st: -------------------------------------------------------------------------------- 1 | evaluating 2 | evaluate: aBlock 3 | 4 | ^ self new evaluate: aBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/class/fullContextClass.st: -------------------------------------------------------------------------------- 1 | context classes 2 | fullContextClass 3 | 4 | ^ SimulatorContext -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/class/warmUp.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | warmUp 3 | 4 | self warmUpContextClasses. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/class/warmUpContextClasses.st: -------------------------------------------------------------------------------- 1 | context classes 2 | warmUpContextClasses 3 | 4 | self contextClassForSimulators: {self new}. 5 | self subclassesDo: [:class | 6 | class warmUpContextClasses]. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/allSimulators.st: -------------------------------------------------------------------------------- 1 | accessing 2 | allSimulators 3 | 4 | ^ self nextSimulator 5 | ifNil: [{self}] 6 | ifNotNil: [:simulator | simulator allSimulators copyWithFirst: self] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/context.doDup..st: -------------------------------------------------------------------------------- 1 | instruction processing 2 | context: aContext doDup: aBlock 3 | 4 | 5 | ^ nextSimulator 6 | ifNotNil: [nextSimulator context: aContext doDup: aBlock] 7 | ifNil: [aBlock value] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/context.doPop..st: -------------------------------------------------------------------------------- 1 | controlling 2 | context: aContext doPop: aBlock 3 | 4 | 5 | ^ nextSimulator 6 | ifNotNil: [nextSimulator context: aContext doPop: aBlock] 7 | ifNil: [aBlock value] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/context.doSingleRelease..st: -------------------------------------------------------------------------------- 1 | controlling 2 | context: aContext doSingleRelease: aBlock 3 | 4 | 5 | ^ nextSimulator 6 | ifNotNil: [nextSimulator context: aContext doSingleRelease: aBlock] 7 | ifNil: [aBlock value] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/context.push.do..st: -------------------------------------------------------------------------------- 1 | controlling 2 | context: aContext push: anObject do: aBlock 3 | 4 | 5 | ^ nextSimulator 6 | ifNotNil: [nextSimulator context: aContext push: anObject do: aBlock] 7 | ifNil: [aBlock value: anObject] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/context.step..st: -------------------------------------------------------------------------------- 1 | controlling 2 | context: aContext step: aBlock 3 | 4 | 5 | ^ nextSimulator 6 | ifNotNil: [nextSimulator context: aContext step: aBlock] 7 | ifNil: [aBlock value] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/customize..st: -------------------------------------------------------------------------------- 1 | support 2 | customize: aContext 3 | 4 | ^ self 5 | basicSimulate: [] 6 | do: [:contextClass :simulator :theBlock | 7 | (contextClass newFrom: aContext sender) 8 | simulator: simulator; 9 | customize: aContext] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/debug..st: -------------------------------------------------------------------------------- 1 | support 2 | debug: aBlock 3 | 4 | ^ self 5 | debug: aBlock 6 | runUntil: nil -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/evaluate..st: -------------------------------------------------------------------------------- 1 | evaluating 2 | evaluate: aBlock 3 | 4 | ^ self 5 | basicSimulate: aBlock 6 | do: [:contextClass :simulator :theBlock | 7 | contextClass new 8 | simulator: simulator; 9 | runSimulated: theBlock] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/initializeContext..st: -------------------------------------------------------------------------------- 1 | controlling 2 | initializeContext: aContext 3 | 4 | 5 | ^ nextSimulator 6 | ifNotNil: [nextSimulator initializeContext: aContext] 7 | ifNil: [aContext] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/matchesSimulator..st: -------------------------------------------------------------------------------- 1 | comparing 2 | matchesSimulator: aSimulator 3 | 4 | "Answer whether the argument, aSimulator, can be used equivalently to the receiver." 5 | 6 | ^ self == aSimulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/nextSimulator..st: -------------------------------------------------------------------------------- 1 | accessing 2 | nextSimulator: aSimulator 3 | 4 | nextSimulator := aSimulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/nextSimulator.st: -------------------------------------------------------------------------------- 1 | accessing 2 | nextSimulator 3 | 4 | ^ nextSimulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/printOn..st: -------------------------------------------------------------------------------- 1 | printing 2 | printOn: aStream 3 | 4 | super printOn: aStream. 5 | self nextSimulator ifNotNil: [:next | 6 | aStream 7 | nextPut: $(; 8 | print: next; 9 | nextPut: $)]. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/Simulator.class/instance/requiredCapabilities.st: -------------------------------------------------------------------------------- 1 | context classes 2 | requiredCapabilities 3 | "Override this and answer nil to disable optimized capabilities." 4 | 5 | ^ self capabilityPragmas 6 | collect: [:pragma | pragma argumentAt: 1] as: Set -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorApp.class/README.md: -------------------------------------------------------------------------------- 1 | I provide some means for updating the package or sending feedback. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorApp.class/class/appName.st: -------------------------------------------------------------------------------- 1 | app - accessing 2 | appName 3 | 4 | ^ 'SimulationStudio' -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorApp.class/class/basicSelfUpdateBranch..st: -------------------------------------------------------------------------------- 1 | app - self-updating 2 | basicSelfUpdateBranch: aString 3 | 4 | SelfUpdateBranch := aString. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorApp.class/class/githubRepositoryParams.st: -------------------------------------------------------------------------------- 1 | app - accessing 2 | githubRepositoryParams 3 | "{owner. name. directory}" 4 | 5 | ^ {'LinqLover'. 'SimulationStudio'. 'packages'} -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorApp.class/class/latestTimeStamp.st: -------------------------------------------------------------------------------- 1 | app - accessing 2 | latestTimeStamp 3 | 4 | ^ (self packageInfo methods collect: 5 | [:method | [TimeStamp fromMethodTimeStamp: method timeStamp] ifError: [TimeStamp new]]) 6 | max -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorApp.class/class/selfUpdateFromMetacello.st: -------------------------------------------------------------------------------- 1 | app - self-updating 2 | selfUpdateFromMetacello 3 | 4 | Metacello new 5 | baseline: self appName; 6 | repository: self selfUpdateGitHubPath; 7 | get; 8 | load. -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorApp.class/class/sendFeedback.st: -------------------------------------------------------------------------------- 1 | app - feedback 2 | sendFeedback 3 | 4 | ^ self sendFeedbackGitHub -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorApp.class/class/sendFeedbackGitHub.st: -------------------------------------------------------------------------------- 1 | app - feedback 2 | sendFeedbackGitHub 3 | 4 | self openUrl: self githubNewIssueUrl -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/class/canonicalArgumentName.st: -------------------------------------------------------------------------------- 1 | Tools-Debugger 2 | canonicalArgumentName 3 | 4 | ^ 'SimulatorContext' -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/blockReturnConstant..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | blockReturnConstant: value 3 | 4 | ^ simulator context: self blockReturnConstant: value do: [:theValue | super blockReturnConstant: theValue] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/blockReturnTop.st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | blockReturnTop 3 | 4 | ^ simulator context: self doBlockReturnTop: [super blockReturnTop] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/callPrimitive..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | callPrimitive: primNumber 3 | 4 | ^ simulator context: self callPrimitive: primNumber do: [:thePrimNumber | super callPrimitive: primNumber] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/canSimulateYourself.st: -------------------------------------------------------------------------------- 1 | testing 2 | canSimulateYourself 3 | 4 | ^ simulator canContextSimulateItself: self do: [super canSimulateYourself] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/doDup.st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | doDup 3 | 4 | ^ simulator context: self doDup: [super doDup] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/doPop.st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | doPop 3 | 4 | ^ simulator context: self doPop: [super doPop] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/failPrimitiveWith..st: -------------------------------------------------------------------------------- 1 | system simulation 2 | failPrimitiveWith: maybePrimFailToken 3 | 4 | ^ simulator context: self failPrimitiveWith: maybePrimFailToken do: [:theMaybePrimFailToken | super failPrimitiveWith: theMaybePrimFailToken] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/initializeFrom..st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initializeFrom: anotherContext 3 | 4 | super initializeFrom: anotherContext. 5 | 6 | ^ simulator initializeContext: self -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/jump..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | jump: distance 3 | 4 | ^ simulator context: self jump: distance do: [:theDistance | super jump: theDistance] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/jump.if..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | jump: distance if: condition 3 | 4 | ^ simulator context: self jump: distance if: condition do: [:theDistance :theCondition | super jump: theDistance if: theCondition] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/lookupSelector.inClass..st: -------------------------------------------------------------------------------- 1 | controlling 2 | lookupSelector: aSymbol inClass: aClass 3 | 4 | ^ simulator context: self lookupSelector: aSymbol inClass: aClass do: [:theSymbol :theClass | super lookupSelector: aSymbol inClass: aClass] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/matchesSimulationContext..st: -------------------------------------------------------------------------------- 1 | testing 2 | matchesSimulationContext: aSimulationContext 3 | 4 | ^ (aSimulationContext isMemberOf: self class) 5 | and: [aSimulationContext simulator matchesSimulator: simulator] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/methodReturnConstant..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | methodReturnConstant: value 3 | 4 | ^ simulator context: self methodReturnConstant: value do: [:theValue | super methodReturnConstant: theValue] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/methodReturnReceiver.st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | methodReturnReceiver 3 | 4 | ^ simulator context: self doMethodReturnReceiver: [super methodReturnReceiver] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/methodReturnTop.st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | methodReturnTop 3 | 4 | ^ simulator context: self doMethodReturnTop: [super methodReturnTop] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/pop.st: -------------------------------------------------------------------------------- 1 | controlling 2 | pop 3 | 4 | ^ simulator context: self doPop: [super pop] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/popIntoLiteralVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | popIntoLiteralVariable: value 3 | 4 | ^ simulator context: self popIntoLiteralVariable: value do: [:theValue | super popIntoLiteralVariable: theValue] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/popIntoReceiverVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | popIntoReceiverVariable: offset 3 | 4 | ^ simulator context: self popIntoReceiverVariable: offset do: [:theOffset | super popIntoReceiverVariable: theOffset] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/popIntoTemporaryVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | popIntoTemporaryVariable: offset 3 | 4 | ^ simulator context: self popIntoTemporaryVariable: offset do: [:theOffset | super popIntoTemporaryVariable: theOffset] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/push..st: -------------------------------------------------------------------------------- 1 | accessing - stack patching 2 | push: anObject 3 | 4 | ^ simulator context: self push: anObject do: [:theObject | super push: theObject] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/pushActiveContext.st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushActiveContext 3 | 4 | ^ simulator context: self doPushActiveContext: [super pushActiveContext] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/pushConsArrayWithElements..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushConsArrayWithElements: numElements 3 | 4 | ^ simulator context: self pushConsArrayWithElements: numElements do: [:theNumElements | super pushConsArrayWithElements: theNumElements] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/pushConstant..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushConstant: value 3 | 4 | ^ simulator context: self pushConstant: value do: [:theValue | super pushConstant: theValue] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/pushLiteralVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushLiteralVariable: value 3 | 4 | ^ simulator context: self pushLiteralVariable: value do: [:theValue | super pushLiteralVariable: theValue] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/pushNewArrayOfSize..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushNewArrayOfSize: arraySize 3 | 4 | ^ simulator context: self pushNewArrayOfSize: arraySize do: [:theArraySize | super pushNewArrayOfSize: theArraySize] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/pushReceiver.st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushReceiver 3 | 4 | ^ simulator context: self doPushReceiver: [super pushReceiver] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/pushReceiverVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushReceiverVariable: offset 3 | 4 | ^ simulator context: self pushReceiverVariable: offset do: [:theOffset | super pushReceiverVariable: theOffset] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/pushSpecialConstant..st: -------------------------------------------------------------------------------- 1 | instruction decoding implicit literals 2 | pushSpecialConstant: value 3 | 4 | ^ simulator context: self pushSpecialConstant: value do: [:theValue | super pushSpecialConstant: theValue] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/pushTemporaryVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushTemporaryVariable: offset 3 | 4 | ^ simulator context: self pushTemporaryVariable: offset do: [:theOffset | super pushTemporaryVariable: theOffset] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/return.from..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | return: value from: aSender 3 | 4 | ^ simulator context: self return: value from: aSender do: [:theValue :theSender | super return: theValue from: theSender] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/singleRelease.st: -------------------------------------------------------------------------------- 1 | private 2 | singleRelease 3 | 4 | ^ simulator context: self doSingleRelease: [super singleRelease] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/step.st: -------------------------------------------------------------------------------- 1 | system simulation 2 | step 3 | 4 | ^ simulator context: self step: [super step] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/storeIntoLiteralVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | storeIntoLiteralVariable: value 3 | 4 | ^ simulator context: self storeIntoLiteralVariable: value do: [:theValue | super storeIntoLiteralVariable: theValue] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/storeIntoReceiverVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | storeIntoReceiverVariable: offset 3 | 4 | ^ simulator context: self storeIntoReceiverVariable: offset do: [:theOffset | super storeIntoReceiverVariable: theOffset] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/SimulatorContext.class/instance/storeIntoTemporaryVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | storeIntoTemporaryVariable: offset 3 | 4 | ^ simulator context: self storeIntoTemporaryVariable: offset do: [:theOffset | super storeIntoTemporaryVariable: theOffset] -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/monticello.meta/categories.st: -------------------------------------------------------------------------------- 1 | SystemOrganization addCategory: #'SimulationStudio-Base'! 2 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/monticello.meta/initializers.st: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Base.package/monticello.meta/initializers.st -------------------------------------------------------------------------------- /packages/SimulationStudio-Base.package/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/.filetree: -------------------------------------------------------------------------------- 1 | { 2 | "noMethodMetaData" : true, 3 | "separateMethodMetaAndSource" : false, 4 | "useCypressPropertiesFile" : true } 5 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/.squot-contents: -------------------------------------------------------------------------------- 1 | SquotTrackedObjectMetadata { 2 | #objectClassName : #PackageInfo, 3 | #id : UUID [ 'e1230ae48702eb4dbda6a41a75044ca0' ], 4 | #objectsReplacedByNames : true, 5 | #serializer : #SquotCypressCodeSerializer 6 | } -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/BalloonEngine.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "allocateOrRecycleBuffer:" : "ct 1/2/2025 23:38", 4 | "recycleBuffer:" : "ct 1/2/2025 23:38" }, 5 | "instance" : { 6 | } } 7 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/BalloonEngine.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "BalloonEngine" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/BasicSimulatorContext.extension/instance/isSandboxContext.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Sandbox-testing 2 | isSandboxContext 3 | 4 | ^ self allSimulators anySatisfy: [:simulator | simulator isSandbox] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/BasicSimulatorContext.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "isSandboxContext" : "ct 12/29/2024 03:33" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/BasicSimulatorContext.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "BasicSimulatorContext" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/ClassDescription.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "dontLogCompiledSourcesDuring:" : "ct 12/28/2021 22:54" }, 4 | "instance" : { 5 | } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/ClassDescription.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "ClassDescription" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Context.extension/instance/isSandboxContext.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Sandbox-testing 2 | isSandboxContext 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Context.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "isSandboxContext" : "ct 12/29/2024 03:23" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Context.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "Context" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/DebuggerMethodMap.extension/class/sandboxedForMethod..st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Sandbox-instance creation 2 | sandboxedForMethod: aMethod 3 | 4 | ^ self forMethod: aMethod methodNode: aMethod methodNode -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/DebuggerMethodMap.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "forMethod:" : "ct 1/2/2025 23:39", 4 | "sandboxedForMethod:" : "ct 1/2/2025 22:58" }, 5 | "instance" : { 6 | } } 7 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/DebuggerMethodMap.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "DebuggerMethodMap" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/class/fromMemory..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | fromMemory: aSandboxMemory 3 | 4 | ^ self new importMemory: aSandboxMemory -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/addObject..st: -------------------------------------------------------------------------------- 1 | sandbox 2 | addObject: anObject 3 | 4 | ^ self nextSimulator addObject: anObject -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/assertUnmodifiedObject..st: -------------------------------------------------------------------------------- 1 | private 2 | assertUnmodifiedObject: anObject 3 | 4 | self assert: (self nextSimulator hasModifiedObject: anObject) not. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/doRemoteStringText..st: -------------------------------------------------------------------------------- 1 | pragmatic methods - RemoteString 2 | doRemoteStringText: aRemoteString 3 | 4 | 5 | self assertUnmodifiedObject: aRemoteString. 6 | 7 | ^ aRemoteString text -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/doStringAsLowercase..st: -------------------------------------------------------------------------------- 1 | pragmatic methods - String 2 | doStringAsLowercase: aString 3 | 4 | 5 | self assertUnmodifiedObject: aString. 6 | 7 | ^ aString asLowercase -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/doWebClientDefaultUserAgent..st: -------------------------------------------------------------------------------- 1 | pragmatic methods - WebClient 2 | doWebClientDefaultUserAgent: aWebClient 3 | 4 | 5 | ^ aWebClient defaultUserAgent -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/exportMemory.st: -------------------------------------------------------------------------------- 1 | sandbox 2 | exportMemory 3 | 4 | ^ self nextSimulator exportMemory -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/importMemory..st: -------------------------------------------------------------------------------- 1 | sandbox 2 | importMemory: memory 3 | 4 | self nextSimulator importMemory: memory. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | super initialize. 5 | 6 | self nextSimulator: Sandbox2 new. 7 | 8 | self initializePragmaticMethods. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/patchObject.with..st: -------------------------------------------------------------------------------- 1 | sandbox 2 | patchObject: anObject with: anotherObject 3 | 4 | ^ self nextSimulator patchObject: anObject with: anotherObject -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/readableObjectFor..st: -------------------------------------------------------------------------------- 1 | sandbox 2 | readableObjectFor: anObject 3 | 4 | ^ self nextSimulator readableObjectFor: anObject -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/stepCount.st: -------------------------------------------------------------------------------- 1 | sandbox 2 | stepCount 3 | 4 | ^ self nextSimulator stepCount -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/stepLimit..st: -------------------------------------------------------------------------------- 1 | sandbox 2 | stepLimit: anIntegerOrNil 3 | 4 | self nextSimulator stepLimit: anIntegerOrNil. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/instance/stepLimit.st: -------------------------------------------------------------------------------- 1 | sandbox 2 | stepLimit 3 | 4 | ^ self nextSimulator stepLimit -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Process.extension/class/sandboxedNew.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Sandbox-instance creation 2 | sandboxedNew 3 | 4 | "We do not appear in AllProcesses!" 5 | ^ super new -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Process.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "new" : "ct 1/2/2025 23:39", 4 | "sandboxedNew" : "ct 1/2/2025 23:09" }, 5 | "instance" : { 6 | } } 7 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Process.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "Process" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/RestrictivePragmaticSandbox.class/README.md: -------------------------------------------------------------------------------- 1 | I am a more restrictive version of the pragmatic sandbox. I explicitly disallow common headful operations that should typically not be done in headless environments. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/RestrictivePragmaticSandbox.class/instance/pragmaticForbidden..st: -------------------------------------------------------------------------------- 1 | private 2 | pragmaticForbidden: aContext 3 | 4 | ^ self pragmatic: aContext forbidden: 'Operation forbidden' -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/class/disableLoggingAndNotifyingDuringCompilation..st: -------------------------------------------------------------------------------- 1 | support 2 | disableLoggingAndNotifyingDuringCompilation: aBlock 3 | 4 | ^ SystemChangeNotifier uniqueInstance doSilently: 5 | [ClassDescription dontLogCompiledSourcesDuring: aBlock] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/class/fromMemory..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | fromMemory: memory 3 | 4 | ^ self new importMemory: memory -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/class/initialize.st: -------------------------------------------------------------------------------- 1 | class initialization 2 | initialize 3 | 4 | Mirror := thisContext. "Used for accessing miror primitives while avoiding frequent invocations of the expensive bytecode pushThisContext." -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/addObject..st: -------------------------------------------------------------------------------- 1 | private 2 | addObject: anObject 3 | 4 | ^ objects at: anObject put: anObject -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/exportMemory.st: -------------------------------------------------------------------------------- 1 | accessing 2 | exportMemory 3 | 4 | ^ SandboxMemory 5 | objects: objects 6 | hashes: hashes -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/hasModifiedObject..st: -------------------------------------------------------------------------------- 1 | testing 2 | hasModifiedObject: anObject 3 | 4 | ^ objects 5 | at: anObject 6 | ifPresent: [:readable | (Mirror object: anObject eqeq: readable) not] 7 | ifAbsent: [false] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/hashFor..st: -------------------------------------------------------------------------------- 1 | private 2 | hashFor: hash 3 | 4 | ^ hashes 5 | at: hash 6 | ifAbsent: [hash] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/importMemory..st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | importMemory: memory 3 | "Overwrites existing memory. Thus classificed as initialize-release rather than accessing." 4 | 5 | objects := memory objects. 6 | hashes := memory hashes. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/patchObject.with..st: -------------------------------------------------------------------------------- 1 | accessing 2 | patchObject: anObject with: anotherObject 3 | 4 | objects at: anObject put: anotherObject. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/readableObjectFor..st: -------------------------------------------------------------------------------- 1 | private 2 | readableObjectFor: anObject 3 | 4 | ^ objects 5 | at: anObject 6 | ifAbsent: [anObject] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/registerStep.st: -------------------------------------------------------------------------------- 1 | stepping 2 | registerStep 3 | 4 | stepCount := stepCount + 1. 5 | stepLimit ifNil: [^ self]. 6 | stepCount >= stepLimit ifTrue: [ 7 | SandboxError signal: 'Step limit exceeded']. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/stepCount.st: -------------------------------------------------------------------------------- 1 | accessing 2 | stepCount 3 | 4 | ^ stepCount -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/stepLimit..st: -------------------------------------------------------------------------------- 1 | accessing 2 | stepLimit: anIntegerOrNil 3 | "If stepLimit is not nil, simulation will be interrupted after n bytecode steps." 4 | 5 | stepLimit := anIntegerOrNil -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox.class/instance/stepLimit.st: -------------------------------------------------------------------------------- 1 | accessing 2 | stepLimit 3 | "If stepLimit is not nil, simulation will be interrupted after n bytecode steps." 4 | 5 | ^ stepLimit -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/class/disableLoggingAndNotifyingDuringCompilation..st: -------------------------------------------------------------------------------- 1 | support 2 | disableLoggingAndNotifyingDuringCompilation: aBlock 3 | 4 | ^ SystemChangeNotifier uniqueInstance doSilently: 5 | [ClassDescription dontLogCompiledSourcesDuring: aBlock] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/class/fromMemory..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | fromMemory: memory 3 | 4 | ^ self new importMemory: memory -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/class/initialize.st: -------------------------------------------------------------------------------- 1 | class initialization 2 | initialize 3 | 4 | Mirror := thisContext. "Used for accessing miror primitives while avoiding frequent invocations of the expensive bytecode pushThisContext." -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/access.indirectors..st: -------------------------------------------------------------------------------- 1 | private 2 | access: objects indirectors: indirectors 3 | 4 | ^ objects with: indirectors collect: [:object :indirector | 5 | indirector ifNil: [object] ifNotNil: [ 6 | indirector value: self value: object]] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/addObject..st: -------------------------------------------------------------------------------- 1 | private 2 | addObject: anObject 3 | 4 | ^ objects at: anObject put: anObject -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/context.elements.forwardIdentityTo..st: -------------------------------------------------------------------------------- 1 | controlling 2 | context: aContext elements: anArray forwardIdentityTo: anotherArray 3 | 4 | ^ self 5 | context: aContext 6 | elements: anArray 7 | forwardIdentityTo: anotherArray 8 | copyHash: false -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/context.primitiveFailTokenFor..st: -------------------------------------------------------------------------------- 1 | controlling 2 | context: aContext primitiveFailTokenFor: errorCode 3 | 4 | ^ aContext class primitiveFailTokenFor: errorCode -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/context.pushLiteralVariable.do..st: -------------------------------------------------------------------------------- 1 | instruction processing 2 | context: aContext pushLiteralVariable: value do: aBlock 3 | 4 | ^ aContext push: (self 5 | context: aContext 6 | simulatedObject: value 7 | instVarAt: self valueIndex) -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/context.pushReceiverVariable.do..st: -------------------------------------------------------------------------------- 1 | instruction processing 2 | context: aContext pushReceiverVariable: offset do: aBlock 3 | 4 | ^ aContext push: (self 5 | context: aContext 6 | simulatedObject: aContext receiver 7 | instVarAt: offset + 1) -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/context.simulatedObject.basicAt..st: -------------------------------------------------------------------------------- 1 | private - object access 2 | context: aContext simulatedObject: anObject basicAt: index 3 | 4 | ^ aContext 5 | object: (self readableObjectFor: anObject) 6 | basicAt: index -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/context.simulatedObject.basicAt.put..st: -------------------------------------------------------------------------------- 1 | private - object access 2 | context: aContext simulatedObject: anObject basicAt: index put: value 3 | 4 | ^ aContext 5 | object: (self writableObjectFor: anObject) 6 | basicAt: index 7 | put: value -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/context.simulatedObject.instVarAt..st: -------------------------------------------------------------------------------- 1 | private - object access 2 | context: aContext simulatedObject: anObject instVarAt: index 3 | 4 | ^ aContext 5 | object: (self readableObjectFor: anObject) 6 | instVarAt: index -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/context.step..st: -------------------------------------------------------------------------------- 1 | controlling 2 | context: aContext step: aBlock 3 | 4 | self registerStep. 5 | 6 | ^ super context: aContext step: aBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/exportMemory.st: -------------------------------------------------------------------------------- 1 | accessing 2 | exportMemory 3 | 4 | ^ SandboxMemory 5 | objects: objects 6 | hashes: hashes -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/hasModifiedObject..st: -------------------------------------------------------------------------------- 1 | testing 2 | hasModifiedObject: anObject 3 | 4 | ^ objects 5 | at: anObject 6 | ifPresent: [:readable | (Mirror object: anObject eqeq: readable) not] 7 | ifAbsent: [false] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/hashFor..st: -------------------------------------------------------------------------------- 1 | private 2 | hashFor: hash 3 | 4 | ^ hashes 5 | at: hash 6 | ifAbsent: [hash] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/importMemory..st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | importMemory: memory 3 | "Overwrites existing memory. Thus classificed as initialize-release rather than accessing." 4 | 5 | objects := memory objects. 6 | hashes := memory hashes. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/initializeContext..st: -------------------------------------------------------------------------------- 1 | controlling 2 | initializeContext: aContext 3 | 4 | | result | 5 | result := super initializeContext: aContext. 6 | 7 | self addObject: result. 8 | 9 | ^ result -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/isSandbox.st: -------------------------------------------------------------------------------- 1 | testing 2 | isSandbox 3 | 4 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/operationForbidden..st: -------------------------------------------------------------------------------- 1 | private-exceptions 2 | operationForbidden: messageText 3 | 4 | ^ SandboxOperationForbidden new 5 | messageText: messageText; 6 | tag: self; 7 | signal -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/patchObject.with..st: -------------------------------------------------------------------------------- 1 | accessing 2 | patchObject: anObject with: anotherObject 3 | 4 | objects at: anObject put: anotherObject. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/readableObjectFor..st: -------------------------------------------------------------------------------- 1 | private 2 | readableObjectFor: anObject 3 | 4 | ^ objects 5 | at: anObject 6 | ifAbsent: [anObject] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/registerStep.st: -------------------------------------------------------------------------------- 1 | stepping 2 | registerStep 3 | 4 | stepCount := stepCount + 1. 5 | stepLimit ifNil: [^ self]. 6 | stepCount >= stepLimit ifTrue: [ 7 | SandboxError signal: 'Step limit exceeded']. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/shouldBeImplemented..st: -------------------------------------------------------------------------------- 1 | error handling 2 | shouldBeImplemented: messageText 3 | 4 | ^ NotImplemented signal: messageText -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/shouldNotImplement..st: -------------------------------------------------------------------------------- 1 | error handling 2 | shouldNotImplement: messageText 3 | 4 | ^ NotImplemented signal: messageText -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/stepCount.st: -------------------------------------------------------------------------------- 1 | accessing 2 | stepCount 3 | 4 | ^ stepCount -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/stepLimit..st: -------------------------------------------------------------------------------- 1 | accessing 2 | stepLimit: anIntegerOrNil 3 | "If stepLimit is not nil, simulation will be interrupted after n bytecode steps." 4 | 5 | stepLimit := anIntegerOrNil -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/stepLimit.st: -------------------------------------------------------------------------------- 1 | accessing 2 | stepLimit 3 | "If stepLimit is not nil, simulation will be interrupted after n bytecode steps." 4 | 5 | ^ stepLimit -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Sandbox2.class/instance/valueIndex.st: -------------------------------------------------------------------------------- 1 | private 2 | valueIndex 3 | 4 | ^ 2 "See Context class >> #initialize" -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/README.md: -------------------------------------------------------------------------------- 1 | I am a SimulationContext that is executed in a Sandbox, aiming to isolate all side effects and keeping them apart from the rest of the image. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/activateOperationForbidden..st: -------------------------------------------------------------------------------- 1 | private 2 | activateOperationForbidden: messageText 3 | 4 | self flag: #todo. "Raise SandboxError here if configured" 5 | ^ self send: #operationForbidden: to: self with: {messageText} -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/elements.forwardIdentityAndHashTo..st: -------------------------------------------------------------------------------- 1 | private - object access 2 | elements: anArray forwardIdentityAndHashTo: anotherArray 3 | 4 | ^ self 5 | elements: anArray 6 | forwardIdentityTo: anotherArray 7 | copyHash: true -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/elements.forwardIdentityTo..st: -------------------------------------------------------------------------------- 1 | private - object access 2 | elements: anArray forwardIdentityTo: anotherArray 3 | 4 | ^ self 5 | elements: anArray 6 | forwardIdentityTo: anotherArray 7 | copyHash: false -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/initializeFrom..st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initializeFrom: anotherContext 3 | 4 | super initializeFrom: anotherContext. 5 | 6 | sandbox := anotherContext sandbox. 7 | sandbox addObject: self. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/isSandboxContext.st: -------------------------------------------------------------------------------- 1 | testing 2 | isSandboxContext 3 | 4 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/lookupSelector.inClass..st: -------------------------------------------------------------------------------- 1 | controlling 2 | lookupSelector: aSymbol inClass: aClass 3 | 4 | ^ sandbox lookupSelector: aSymbol inClass: aClass -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/operationForbidden..st: -------------------------------------------------------------------------------- 1 | private-exceptions 2 | operationForbidden: messageText 3 | 4 | ^ SandboxOperationForbidden new 5 | messageText: messageText; 6 | tag: self; 7 | signal -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/pushLiteralVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushLiteralVariable: value 3 | 4 | self push: (self 5 | simulatedObject: value 6 | instVarAt: ValueIndex). -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/pushReceiverVariable..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushReceiverVariable: offset 3 | 4 | self push: (self 5 | simulatedObject: self receiver 6 | instVarAt: offset + 1). -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/pushRemoteTemp.inVectorAt..st: -------------------------------------------------------------------------------- 1 | instruction decoding 2 | pushRemoteTemp: remoteTempIndex inVectorAt: tempVectorIndex 3 | 4 | self push: (self 5 | simulatedObject: (self at: tempVectorIndex + 1) 6 | basicAt: remoteTempIndex + 1). -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/sandbox..st: -------------------------------------------------------------------------------- 1 | accessing 2 | sandbox: aSandbox 3 | 4 | sandbox := aSandbox. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/sandbox.st: -------------------------------------------------------------------------------- 1 | accessing 2 | sandbox 3 | 4 | ^ sandbox -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/shouldBeImplemented..st: -------------------------------------------------------------------------------- 1 | private 2 | shouldBeImplemented: messageText 3 | 4 | ^ NotImplemented signal: messageText -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/simulatedObject.basicAt..st: -------------------------------------------------------------------------------- 1 | private - object access 2 | simulatedObject: anObject basicAt: index 3 | 4 | ^ self 5 | object: (sandbox readableObjectFor: anObject) 6 | basicAt: index -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/simulatedObject.basicAt.put..st: -------------------------------------------------------------------------------- 1 | private - object access 2 | simulatedObject: anObject basicAt: index put: value 3 | 4 | ^ self 5 | object: (sandbox writableObjectFor: anObject) 6 | basicAt: index 7 | put: value -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/simulatedObject.instVarAt..st: -------------------------------------------------------------------------------- 1 | private - object access 2 | simulatedObject: anObject instVarAt: index 3 | 4 | ^ self 5 | object: (sandbox readableObjectFor: anObject) 6 | instVarAt: index -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/simulatedObject.instVarAt.put..st: -------------------------------------------------------------------------------- 1 | private - object access 2 | simulatedObject: anObject instVarAt: index put: value 3 | 4 | ^ super 5 | simulatedObject: (sandbox writableObjectFor: anObject) 6 | instVarAt: index 7 | put: value -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/step.st: -------------------------------------------------------------------------------- 1 | system simulation 2 | step 3 | 4 | sandbox registerStep. 5 | ^ super step -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxContext.class/instance/tryNamedPrimitiveIn.for.withArgs..st: -------------------------------------------------------------------------------- 1 | private 2 | tryNamedPrimitiveIn: aCompiledMethod for: aReceiver withArgs: arguments 3 | 4 | self flag: #suspicious. 5 | ^ self shouldNotImplement: 'Use #doNamedPrimitiveIn:for:withArgs:' -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxError.class/README.md: -------------------------------------------------------------------------------- 1 | I represent a SimulationError that has occured during the simulation of a SandboxContext. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxError.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxMemory.class/README.md: -------------------------------------------------------------------------------- 1 | I am a memento class for Sandbox. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxMemory.class/class/objects.hashes..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | objects: objects hashes: hashes 3 | 4 | ^ self new objects: objects hashes: hashes -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxMemory.class/instance/hashes.st: -------------------------------------------------------------------------------- 1 | accessing 2 | hashes 3 | 4 | ^ hashes -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxMemory.class/instance/manipulatedObjects.st: -------------------------------------------------------------------------------- 1 | as yet unclassified 2 | manipulatedObjects 3 | 4 | ^ objects associationsSelect: [:assoc | 5 | assoc key ~= assoc value] -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxMemory.class/instance/memorySize.st: -------------------------------------------------------------------------------- 1 | accessing 2 | memorySize 3 | 4 | ^ objects size + hashes size -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxMemory.class/instance/objects.hashes..st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | objects: someObjects hashes: someHashes 3 | 4 | objects := someObjects. 5 | hashes := someHashes. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxMemory.class/instance/objects.st: -------------------------------------------------------------------------------- 1 | accessing 2 | objects 3 | 4 | ^ objects -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxMemory.class/instance/ownObjects.st: -------------------------------------------------------------------------------- 1 | as yet unclassified 2 | ownObjects 3 | 4 | ^ (objects associationsSelect: [:assoc | 5 | assoc key == assoc value]) values -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxOperationForbidden.class/README.md: -------------------------------------------------------------------------------- 1 | I am signalled on a stack of simulated SandboxContexts when the simulated code tries to perform an operation that is not permitted. -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/SandboxOperationForbidden.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Simulator.extension/instance/isSandbox.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Sandbox-testing 2 | isSandbox 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Simulator.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "isSandbox" : "ct 12/29/2024 03:33" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/Simulator.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "Simulator" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/monticello.meta/categories.st: -------------------------------------------------------------------------------- 1 | SystemOrganization addCategory: #'SimulationStudio-Sandbox'! 2 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/monticello.meta/initializers.st: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Sandbox.package/monticello.meta/initializers.st -------------------------------------------------------------------------------- /packages/SimulationStudio-Sandbox.package/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/.filetree: -------------------------------------------------------------------------------- 1 | { 2 | "noMethodMetaData" : true, 3 | "separateMethodMetaAndSource" : false, 4 | "useCypressPropertiesFile" : true } 5 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/.squot-contents: -------------------------------------------------------------------------------- 1 | SquotTrackedObjectMetadata { 2 | #objectClassName : #PackageInfo, 3 | #id : UUID [ '1797526bfc07424c9007c2d648189467' ], 4 | #objectsReplacedByNames : true, 5 | #serializer : #SquotCypressCodeSerializer 6 | } -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/README.md: -------------------------------------------------------------------------------- 1 | I log several benchmarks while executing code. See my class side for usage examples. -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/class/record..st: -------------------------------------------------------------------------------- 1 | recording 2 | record: aBlock 3 | " 4 | BenchmarkSimulator record: [10 factorial]. 5 | BenchmarkSimulator record: [PluggableTextMorph new imageForm]. 6 | " 7 | 8 | ^ self new record: aBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/activateDuring..st: -------------------------------------------------------------------------------- 1 | recording 2 | activateDuring: aBlock 3 | 4 | ^ [super activateDuring: aBlock] 5 | valueAndStoreTimeToRun: [:duration | timeToRun := duration] -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/browsePrimitiveCounts.st: -------------------------------------------------------------------------------- 1 | browsing 2 | browsePrimitiveCounts 3 | 4 | ^ (Bag new 5 | setContents: self primitiveCounts; 6 | openAsMorph) 7 | limit: 30; 8 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/browseRecord.st: -------------------------------------------------------------------------------- 1 | browsing 2 | browseRecord 3 | 4 | self explore -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/context.step..st: -------------------------------------------------------------------------------- 1 | stepping 2 | context: aContext step: aBlock 3 | 4 | self incrementStepCount. 5 | 6 | ^ super context: aContext step: aBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/incrementPrimitiveCountFor..st: -------------------------------------------------------------------------------- 1 | private 2 | incrementPrimitiveCountFor: key 3 | 4 | primitiveCounts at: key put: 5 | (primitiveCounts at: key ifAbsent: [0]) + 1. -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/incrementStepCount.st: -------------------------------------------------------------------------------- 1 | private 2 | incrementStepCount 3 | 4 | stepCount := stepCount + 1. -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | super initialize. 5 | 6 | stepCount := 0. 7 | primitiveCounts := Dictionary new. -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/primitiveCounts.st: -------------------------------------------------------------------------------- 1 | accessing 2 | primitiveCounts 3 | 4 | ^ primitiveCounts -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/record..st: -------------------------------------------------------------------------------- 1 | recording 2 | record: aBlock 3 | 4 | ^ self 5 | evaluate: aBlock; 6 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/stepCount.st: -------------------------------------------------------------------------------- 1 | accessing 2 | stepCount 3 | 4 | ^ stepCount -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/timePerStep.st: -------------------------------------------------------------------------------- 1 | accessing 2 | timePerStep 3 | 4 | ^ self timeToRun / self stepCount -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BenchmarkSimulator.class/instance/timeToRun.st: -------------------------------------------------------------------------------- 1 | accessing 2 | timeToRun 3 | 4 | ^ timeToRun -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BlockClosure.extension/instance/valueAndStoreTimeToRun..st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Support-*chronology-core 2 | valueAndStoreTimeToRun: storeBlock 3 | 4 | self flag: #moveUpstream. 5 | ^ Time storeTimeToRun: self in: storeBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BlockClosure.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "valueAndStoreTimeToRun:" : "ct 12/26/2021 20:34" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/BlockClosure.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "BlockClosure" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/CoverageSimulator.class/README.md: -------------------------------------------------------------------------------- 1 | I record a bytecode-precise coverage map for all methods that I reach during execution. Find an invocation example and some to-do notes on my class side. -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/CoverageSimulator.class/class/example.st: -------------------------------------------------------------------------------- 1 | documentation 2 | example 3 | 4 | (CoverageSimulator new 5 | evaluate: 6 | [2 / 3. 7 | "[2 / 0] on: Error do: [:ex | ex resume: nil]." 8 | 2 / 3.5]; 9 | coveredSymbolicOf: SmallInteger >> #/) edit. -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/CoverageSimulator.class/instance/context.step..st: -------------------------------------------------------------------------------- 1 | controlling 2 | context: aContext step: aBlock 3 | 4 | (pcsPerMethod at: aContext method ifAbsentPut: [Set new]) 5 | add: aContext pc. 6 | 7 | ^ super context: aContext step: aBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/CoverageSimulator.class/instance/coverageOf..st: -------------------------------------------------------------------------------- 1 | accessing 2 | coverageOf: aCompiledCode 3 | 4 | ^ (self coveredPCsIn: aCompiledCode) size 5 | / (self allPCsIn: aCompiledCode) size -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/CoverageSimulator.class/instance/coveredPCsIn..st: -------------------------------------------------------------------------------- 1 | accessing 2 | coveredPCsIn: aCompiledCode 3 | 4 | ^ pcsPerMethod at: aCompiledCode ifAbsent: [^ #()] -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/CoverageSimulator.class/instance/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | super initialize. 5 | 6 | pcsPerMethod := IdentityDictionary new. -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/CoverageSimulator.class/instance/uncoveredPCsIn..st: -------------------------------------------------------------------------------- 1 | accessing 2 | uncoveredPCsIn: aCompiledCode 3 | 4 | ^ (self allPCsIn: aCompiledCode) 5 | copyWithoutAll: (self coveredPCsIn: aCompiledCode) -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/LimitSimulator.class/instance/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | super initialize. 5 | 6 | stepCount := 0. -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/LimitSimulator.class/instance/stepCount.st: -------------------------------------------------------------------------------- 1 | accessing 2 | stepCount 3 | 4 | ^ stepCount -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/LimitSimulator.class/instance/stepLimit..st: -------------------------------------------------------------------------------- 1 | accessing 2 | stepLimit: anInteger 3 | 4 | stepLimit := anInteger -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/LimitSimulator.class/instance/stepLimit.st: -------------------------------------------------------------------------------- 1 | accessing 2 | stepLimit 3 | 4 | ^ stepLimit -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/SimulatorLimitExceeded.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Support.package/SimulatorLimitExceeded.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/SimulatorLimitExceeded.class/class/forContext..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | forContext: aContext 3 | 4 | ^ self new 5 | context: aContext; 6 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/SimulatorLimitExceeded.class/class/signalForContext..st: -------------------------------------------------------------------------------- 1 | signaling 2 | signalForContext: aContext 3 | 4 | ^ (self forContext: aContext) signal -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/SimulatorLimitExceeded.class/instance/context..st: -------------------------------------------------------------------------------- 1 | accessing 2 | context: aContext 3 | 4 | context := aContext -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/SimulatorLimitExceeded.class/instance/context.st: -------------------------------------------------------------------------------- 1 | accessing 2 | context 3 | 4 | ^ context -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/SimulatorLimitExceeded.class/instance/isResumable.st: -------------------------------------------------------------------------------- 1 | testing 2 | isResumable 3 | 4 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/Time.extension/class/storeMillisecondsToRun.in..st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Support-general inquiries 2 | storeMillisecondsToRun: timedBlock in: storeBlock 3 | 4 | ^ self 5 | storeNanosecondsToRun: timedBlock 6 | in: [:nanos | storeBlock value: nanos + 500 // 1000] -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/Time.extension/class/storeTimeToRun.in..st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Support-general inquiries 2 | storeTimeToRun: timedBlock in: storeBlock 3 | 4 | ^ self 5 | storeMillisecondsToRun: timedBlock 6 | in: [:millis | storeBlock value: millis milliSeconds] -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/Time.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "Time" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/monticello.meta/categories.st: -------------------------------------------------------------------------------- 1 | SystemOrganization addCategory: #'SimulationStudio-Support'! 2 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/monticello.meta/initializers.st: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Support.package/monticello.meta/initializers.st -------------------------------------------------------------------------------- /packages/SimulationStudio-Support.package/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/.filetree: -------------------------------------------------------------------------------- 1 | { 2 | "noMethodMetaData" : true, 3 | "separateMethodMetaAndSource" : false, 4 | "useCypressPropertiesFile" : true } 5 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/.squot-contents: -------------------------------------------------------------------------------- 1 | SquotTrackedObjectMetadata { 2 | #objectClassName : #PackageInfo, 3 | #id : UUID [ '0937bdcc8b0092448a82efbef5298878' ], 4 | #objectsReplacedByNames : true, 5 | #serializer : #SquotCypressCodeSerializer 6 | } -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationContextTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Base.package/SimulationContextTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationContextTest.class/instance/executionTests.st: -------------------------------------------------------------------------------- 1 | execution tests 2 | executionTests 3 | 4 | ^ (self class allMethodsInCategory: 'execution tests') 5 | copyWithout: thisContext selector -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationContextTest.class/instance/shouldExecuteReturn..st: -------------------------------------------------------------------------------- 1 | execution tests 2 | shouldExecuteReturn: aBlock 3 | 4 | | returnValue | 5 | returnValue := aBlock value: [{2. 6. 4. 7} sorted]. 6 | 7 | self assert: {2. 4. 6. 7} equals: returnValue. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationContextTest.class/instance/shouldExecuteSideEffect..st: -------------------------------------------------------------------------------- 1 | execution tests 2 | shouldExecuteSideEffect: aBlock 3 | 4 | | sideEffect | 5 | sideEffect := false. 6 | aBlock value: [sideEffect := true]. 7 | 8 | self assert: true equals: sideEffect. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationContextTest.class/instance/shouldExecuteValue..st: -------------------------------------------------------------------------------- 1 | execution tests 2 | shouldExecuteValue: aBlock 3 | 4 | | sideEffect | 5 | sideEffect := false. 6 | aBlock value: [ 7 | [sideEffect := true] value]. 8 | 9 | self assert: true equals: sideEffect. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationContextTest.class/instance/testNonLocalReturn.st: -------------------------------------------------------------------------------- 1 | tests 2 | testNonLocalReturn 3 | 4 | | result | 5 | result := SimulationContext 6 | runSimulated: [[^ 1] on: Error do: []] 7 | contextAtEachStep: [:x | x]. 8 | self assert: 1 equals: result. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationContextTest.class/instance/testReturnFromBottom.st: -------------------------------------------------------------------------------- 1 | tests 2 | testReturnFromBottom 3 | 4 | | context | 5 | context := SimulationContext newFrom: [] asContext. 6 | 7 | self assert: (context sender isNil and: [context willReturn]). -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/class/excludedTestClassSelectors.st: -------------------------------------------------------------------------------- 1 | accessing 2 | excludedTestClassSelectors 3 | 4 | ^ #(testClassComment testUnCategorizedMethods) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/class/expectedFailures.st: -------------------------------------------------------------------------------- 1 | accessing 2 | expectedFailures 3 | 4 | ^ self testSelectorsFromGroups: self expectedFailureGroups -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/class/forClass.selector..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | forClass: testCaseClass selector: selector 3 | 4 | ^ self selector: 5 | (self testSelectorForClass: testCaseClass selector: selector) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/class/isAbstract.st: -------------------------------------------------------------------------------- 1 | testing 2 | isAbstract 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/class/shouldInheritSelectors.st: -------------------------------------------------------------------------------- 1 | testing 2 | shouldInheritSelectors 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/class/testSelectorForClass.selector..st: -------------------------------------------------------------------------------- 1 | private 2 | testSelectorForClass: testCaseClass selector: selector 3 | 4 | ^ testCaseClass name -> selector -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/class/testSelectors.st: -------------------------------------------------------------------------------- 1 | accessing 2 | testSelectors 3 | 4 | ^ self testSelectorsFromGroups: self testGroups -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/class/wantsToTest..st: -------------------------------------------------------------------------------- 1 | '*SpreadSheetTool-Tests-building suites 2 | wantsToTest: aSelector 3 | 4 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/contextClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | contextClass 3 | 4 | ^ SimulationContext -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/defaultTimeout.st: -------------------------------------------------------------------------------- 1 | running - timeout 2 | defaultTimeout 3 | 4 | ^ super defaultTimeout * 2 -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/expectedFailures.st: -------------------------------------------------------------------------------- 1 | failures 2 | expectedFailures 3 | 4 | ^ self class expectedFailures -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/isInstalled.st: -------------------------------------------------------------------------------- 1 | testing 2 | isInstalled 3 | 4 | ^ self class allTestSelectors includes: self selector -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/runSimulated..st: -------------------------------------------------------------------------------- 1 | private 2 | runSimulated: aBlock 3 | 4 | ^ self contextClass runSimulated: aBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/testClassChangeClassOf.st: -------------------------------------------------------------------------------- 1 | tests - ClassTest 2 | testClassChangeClassOf 3 | "Skip compiler operation from ClassTest >> #setUp." 4 | 5 | ^ ClassTest new testChangeClassOf -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/testContextRunSimulated.st: -------------------------------------------------------------------------------- 1 | tests - nested simulation 2 | testContextRunSimulated 3 | 4 | self assert: 2 / 3 equals: 5 | (Context runSimulated: [2 / 3]). -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/testSimulationContextRunSimulated.st: -------------------------------------------------------------------------------- 1 | tests - nested simulation 2 | testSimulationContextRunSimulated 3 | 4 | self assert: 2 / 3 equals: 5 | (SimulationContext runSimulated: [2 / 3]). -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/testSimulatorContextRunSimulated.st: -------------------------------------------------------------------------------- 1 | tests - nested simulation 2 | testSimulatorContextRunSimulated 3 | 4 | self assert: 2 / 3 equals: 5 | (Simulator evaluate: [2 / 3]). -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/timeoutForSetUp.st: -------------------------------------------------------------------------------- 1 | running - timeout 2 | timeoutForSetUp 3 | 4 | ^ self defaultTimeout -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/instance/timeoutForTest.st: -------------------------------------------------------------------------------- 1 | running - timeout 2 | timeoutForTest 3 | 4 | ^ self defaultTimeout -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationTestCase.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Base.package/SimulationTestCase.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationTestCase.class/class/isAbstract.st: -------------------------------------------------------------------------------- 1 | testing 2 | isAbstract 3 | 4 | ^ self = SimulationTestCase -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulationTestCase.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "isAbstract" : "ct 3/5/2021 18:57" }, 4 | "instance" : { 5 | "performTest" : "ct 3/24/2021 23:23", 6 | "shouldNotChange:after:" : "ct 3/3/2021 18:28" } } 7 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulatorKernelTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Base.package/SimulatorKernelTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulatorKernelTest.class/instance/runSimulated..st: -------------------------------------------------------------------------------- 1 | private 2 | runSimulated: aBlock 3 | 4 | ^ self simulatorClass evaluate: aBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulatorKernelTest.class/instance/simulatorClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | simulatorClass 3 | 4 | ^ Simulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulatorKernelTest.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "runSimulated:" : "ct 11/12/2021 19:43", 6 | "simulatorClass" : "ct 11/12/2021 19:43" } } 7 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulatorKernelTestAllCapabilities.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Base.package/SimulatorKernelTestAllCapabilities.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulatorKernelTestAllCapabilities.class/instance/simulatorClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | simulatorClass 3 | 4 | ^ TestSimulatorAllCapabilities -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulatorKernelTestAllCapabilities.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "simulatorClass" : "ct 11/13/2021 22:13" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulatorKernelTestUnoptimized.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Base.package/SimulatorKernelTestUnoptimized.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulatorKernelTestUnoptimized.class/instance/simulatorClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | simulatorClass 3 | 4 | ^ TestSimulatorUnoptimized -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/SimulatorKernelTestUnoptimized.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "simulatorClass" : "ct 11/12/2021 23:22" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/TestSimulatorAllCapabilities.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Base.package/TestSimulatorAllCapabilities.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/TestSimulatorAllCapabilities.class/instance/requiredCapabilities.st: -------------------------------------------------------------------------------- 1 | context classes 2 | requiredCapabilities 3 | 4 | ^ (Pragma allNamed: #capability: in: self class superclass) 5 | collect: [:pragma | pragma argumentAt: 1] 6 | as: Set -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/TestSimulatorAllCapabilities.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "requiredCapabilities" : "ct 11/13/2021 22:14" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/TestSimulatorUnoptimized.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Base.package/TestSimulatorUnoptimized.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/TestSimulatorUnoptimized.class/instance/requiredCapabilities.st: -------------------------------------------------------------------------------- 1 | context classes 2 | requiredCapabilities 3 | 4 | ^ nil -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/TestSimulatorUnoptimized.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "requiredCapabilities" : "ct 11/12/2021 19:42" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/monticello.meta/categories.st: -------------------------------------------------------------------------------- 1 | SystemOrganization addCategory: #'SimulationStudio-Tests-Base'! 2 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/monticello.meta/initializers.st: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Base.package/monticello.meta/initializers.st -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Base.package/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/.filetree: -------------------------------------------------------------------------------- 1 | { 2 | "noMethodMetaData" : true, 3 | "separateMethodMetaAndSource" : false, 4 | "useCypressPropertiesFile" : true } 5 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/.squot-contents: -------------------------------------------------------------------------------- 1 | SquotTrackedObjectMetadata { 2 | #objectClassName : #PackageInfo, 3 | #id : UUID [ 'fb409263c6a4cb4e9c41ac4d088354d8' ], 4 | #objectsReplacedByNames : true, 5 | #serializer : #SquotCypressCodeSerializer 6 | } -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/BasicSimulatorContext.extension/instance/sandboxForTests.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Tests-Sandbox-accessing 2 | sandboxForTests 3 | 4 | ^ self simulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/BasicSimulatorContext.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "sandboxForTests" : "ct 9/20/2022 11:34" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/BasicSimulatorContext.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "BasicSimulatorContext" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/PragmaticSandboxKernelTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Sandbox.package/PragmaticSandboxKernelTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/PragmaticSandboxKernelTest.class/instance/sandboxClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | sandboxClass 3 | 4 | ^ PragmaticSandbox -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/PragmaticSandboxKernelTest.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "sandboxClass" : "ct 1/2/2025 04:46" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/PragmaticSandboxTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Sandbox.package/PragmaticSandboxTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/PragmaticSandboxTest.class/class/shouldInheritSelectors.st: -------------------------------------------------------------------------------- 1 | testing 2 | shouldInheritSelectors 3 | 4 | ^ self = PragmaticSandboxTest -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/PragmaticSandboxTest.class/instance/expectedFailures.st: -------------------------------------------------------------------------------- 1 | accessing 2 | expectedFailures 3 | 4 | ^ super expectedFailures 5 | copyWithout: #testClassComment -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/PragmaticSandboxTest.class/instance/sandboxClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | sandboxClass 3 | 4 | ^ PragmaticSandbox -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/PragmaticSandboxTest.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "shouldInheritSelectors" : "ct 1/2/2025 04:32" }, 4 | "instance" : { 5 | "expectedFailures" : "ct 1/2/2025 23:07", 6 | "sandboxClass" : "ct 1/2/2025 04:31" } } 7 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/Sandbox2KernelTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Sandbox.package/Sandbox2KernelTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/Sandbox2KernelTest.class/instance/sandboxClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | sandboxClass 3 | 4 | ^ Sandbox2 -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/Sandbox2KernelTest.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "sandboxClass" : "ct 11/13/2021 00:00" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/Sandbox2Test.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Sandbox.package/Sandbox2Test.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/Sandbox2Test.class/class/shouldInheritSelectors.st: -------------------------------------------------------------------------------- 1 | testing 2 | shouldInheritSelectors 3 | 4 | ^ self = Sandbox2Test -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/Sandbox2Test.class/instance/sandboxClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | sandboxClass 3 | 4 | ^ Sandbox2 -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/Sandbox2Test.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "shouldInheritSelectors" : "ct 12/26/2021 23:30" }, 4 | "instance" : { 5 | "sandboxClass" : "ct 11/13/2021 16:05", 6 | "testChaining" : "ct 1/2/2025 04:45" } } 7 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxContext.extension/instance/sandboxForTests.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Tests-Sandbox-accessing 2 | sandboxForTests 3 | 4 | ^ self sandbox -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxContext.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "sandboxForTests" : "ct 9/20/2022 11:34" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxContext.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "SandboxContext" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxKernelTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Sandbox.package/SandboxKernelTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxKernelTest.class/instance/defaultTimeout.st: -------------------------------------------------------------------------------- 1 | running - timeout 2 | defaultTimeout 3 | 4 | ^ super defaultTimeout * 10 -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxKernelTest.class/instance/sandboxClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | sandboxClass 3 | 4 | ^ Sandbox -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Sandbox.package/SandboxTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxTest.class/instance/expectedFailures.st: -------------------------------------------------------------------------------- 1 | failures 2 | expectedFailures 3 | 4 | ^ {#testClassComment flag: #todo. "requires further thoughts. How can we provide read-only access to a single file without blocking it for the rest of the environment?"} -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxTest.class/instance/sandboxClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | sandboxClass 3 | 4 | ^ Sandbox -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxTest.class/instance/someToken.st: -------------------------------------------------------------------------------- 1 | accessing 2 | someToken 3 | 4 | ^ UUID nilUUID -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxTest.class/instance/testClassComment.st: -------------------------------------------------------------------------------- 1 | tests 2 | testClassComment 3 | 4 | | comment | 5 | comment := self sandboxClass evaluate: [Object comment]. 6 | self assert: (comment asString includesSubstring: 'root'). -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxTest.class/instance/testOperationForbidden.st: -------------------------------------------------------------------------------- 1 | tests 2 | testOperationForbidden 3 | 4 | self sandboxClass evaluate: [self 5 | should: [FileDirectory default exists] 6 | raise: SandboxOperationForbidden]. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/SandboxTest.class/instance/testStepCount.st: -------------------------------------------------------------------------------- 1 | tests 2 | testStepCount 3 | 4 | | sandbox | 5 | sandbox := self sandboxClass new. 6 | 7 | sandbox evaluate: [2 + 3]. 8 | 9 | self assert: sandbox stepCount > 0. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/monticello.meta/categories.st: -------------------------------------------------------------------------------- 1 | SystemOrganization addCategory: #'SimulationStudio-Tests-Sandbox'! 2 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/monticello.meta/initializers.st: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Sandbox.package/monticello.meta/initializers.st -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Sandbox.package/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/.filetree: -------------------------------------------------------------------------------- 1 | { 2 | "noMethodMetaData" : true, 3 | "separateMethodMetaAndSource" : false, 4 | "useCypressPropertiesFile" : true } 5 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/.squot-contents: -------------------------------------------------------------------------------- 1 | SquotTrackedObjectMetadata { 2 | #objectClassName : #PackageInfo, 3 | #id : UUID [ '02e9dbc113324744b1a415b00d1283a9' ], 4 | #objectsReplacedByNames : true, 5 | #serializer : #SquotCypressCodeSerializer 6 | } -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/BenchmarkSimulatorKernelTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Support.package/BenchmarkSimulatorKernelTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/BenchmarkSimulatorKernelTest.class/instance/simulatorClass.st: -------------------------------------------------------------------------------- 1 | private 2 | simulatorClass 3 | 4 | ^ BenchmarkSimulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/BenchmarkSimulatorKernelTest.class/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "simulatorClass" : "ct 11/12/2021 23:20" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/BenchmarkSimulatorTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Support.package/BenchmarkSimulatorTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/BenchmarkSimulatorTest.class/instance/simulatorClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | simulatorClass 3 | 4 | ^ BenchmarkSimulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/BenchmarkSimulatorTest.class/instance/testChaining.st: -------------------------------------------------------------------------------- 1 | tests 2 | testChaining 3 | 4 | self testChainingReverse: false. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/BenchmarkSimulatorTest.class/instance/testChainingReverse.st: -------------------------------------------------------------------------------- 1 | tests 2 | testChainingReverse 3 | 4 | self testChainingReverse: true. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/monticello.meta/categories.st: -------------------------------------------------------------------------------- 1 | SystemOrganization addCategory: #'SimulationStudio-Tests-Support'! 2 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/monticello.meta/initializers.st: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Support.package/monticello.meta/initializers.st -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Support.package/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/.filetree: -------------------------------------------------------------------------------- 1 | { 2 | "noMethodMetaData" : true, 3 | "separateMethodMetaAndSource" : false, 4 | "useCypressPropertiesFile" : true } 5 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/.squot-contents: -------------------------------------------------------------------------------- 1 | SquotTrackedObjectMetadata { 2 | #objectClassName : #PackageInfo, 3 | #id : UUID [ 'bb2ed1c401726c419cca9c4cc0119d70' ], 4 | #objectsReplacedByNames : true, 5 | #serializer : #SquotCypressCodeSerializer 6 | } -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderTest.class/instance/classUnderTest.st: -------------------------------------------------------------------------------- 1 | accessing 2 | classUnderTest 3 | 4 | ^ SimulationMethodFinder -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderTest.class/instance/testMethodFinder.shouldFind..st: -------------------------------------------------------------------------------- 1 | tests 2 | testMethodFinder: finderBlock shouldFind: expectedSpecs 3 | 4 | ^ self 5 | testMethodFinder: finderBlock 6 | shouldFind: expectedSpecs 7 | butNotFind: #() -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderToolTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderToolTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderToolTest.class/instance/classUnderTest.st: -------------------------------------------------------------------------------- 1 | accessing 2 | classUnderTest 3 | 4 | ^ SimulationMethodFinderTool -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderToolTest.class/instance/performTest.st: -------------------------------------------------------------------------------- 1 | running 2 | performTest 3 | 4 | ^ UIManager simDontAttachToCursorDuring: 5 | [super performTest] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderToolTest.class/instance/testMethodFinder..st: -------------------------------------------------------------------------------- 1 | tests - finding 2 | testMethodFinder: specs 3 | 4 | ^ self testMethodFinder: specs take: nil -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderToolTest.class/instance/testWindow.st: -------------------------------------------------------------------------------- 1 | tests - ui 2 | testWindow 3 | 4 | window := self shouldnt: [self classUnderTest open] raise: Error , Warning , Halt. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationMethodFinderToolTest.class/instance/waitUntilDone.st: -------------------------------------------------------------------------------- 1 | support 2 | waitUntilDone 3 | 4 | [finder isSearching] whileTrue: 5 | [(finder stepTimeIn: window) milliSeconds wait. 6 | finder stepIn: window]. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationProtocolExplorerTest.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Tools.package/SimulationProtocolExplorerTest.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationProtocolExplorerTest.class/instance/classUnderTest.st: -------------------------------------------------------------------------------- 1 | accessing 2 | classUnderTest 3 | 4 | ^ SimulationProtocolExplorer -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/SimulationProtocolExplorerTest.class/instance/performTest.st: -------------------------------------------------------------------------------- 1 | running 2 | performTest 3 | 4 | ^ UIManager simDontAttachToCursorDuring: 5 | [super performTest] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/UIManager.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "simDontAttachToCursorDuring:" : "ct 9/17/2022 15:23" }, 4 | "instance" : { 5 | } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/UIManager.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "UIManager" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/monticello.meta/categories.st: -------------------------------------------------------------------------------- 1 | SystemOrganization addCategory: #'SimulationStudio-Tests-Tools-MethodFinder'! 2 | SystemOrganization addCategory: #'SimulationStudio-Tests-Tools-ProtocolExplorer'! 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/monticello.meta/initializers.st: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tests-Tools.package/monticello.meta/initializers.st -------------------------------------------------------------------------------- /packages/SimulationStudio-Tests-Tools.package/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/.filetree: -------------------------------------------------------------------------------- 1 | { 2 | "noMethodMetaData" : true, 3 | "separateMethodMetaAndSource" : false, 4 | "useCypressPropertiesFile" : true } 5 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/.squot-contents: -------------------------------------------------------------------------------- 1 | SquotTrackedObjectMetadata { 2 | #objectClassName : #PackageInfo, 3 | #id : UUID [ '58f36465c7574347a36f0b71462f407d' ], 4 | #objectsReplacedByNames : true, 5 | #serializer : #SquotCypressCodeSerializer 6 | } -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/ArrayedCollection.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "simAllOrderedSubsetsDo:" : "ct 9/19/2022 18:17" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/ArrayedCollection.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "ArrayedCollection" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/DateAndTime.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "simRemainingTimeForProgress:" : "ct 8/15/2023 14:50" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/DateAndTime.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "DateAndTime" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/Duration.extension/instance/simShortPrintString.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Tools-MethodFinder-printing 2 | simShortPrintString 3 | 4 | ^ String streamContents: [:stream | self simShortPrintOn: stream] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/Duration.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "simShortPrintOn:" : "ct 8/15/2023 14:46", 6 | "simShortPrintString" : "ct 9/19/2022 22:09" } } 7 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/Duration.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "Duration" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/class/openFor.messageList.name..st: -------------------------------------------------------------------------------- 1 | opening 2 | openFor: aCoverage messageList: messageList name: labelString 3 | 4 | ^ ToolBuilder open: (self for: aCoverage messageList: messageList name: labelString) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/class/useUnifiedMessageLabels.st: -------------------------------------------------------------------------------- 1 | preferences 2 | useUnifiedMessageLabels 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/instance/coverage..st: -------------------------------------------------------------------------------- 1 | accessing 2 | coverage: aCoverage 3 | 4 | coverage := aCoverage. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/instance/coverage.st: -------------------------------------------------------------------------------- 1 | accessing 2 | coverage 3 | 4 | ^ coverage -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/instance/coverageByteCodesContents.st: -------------------------------------------------------------------------------- 1 | contents 2 | coverageByteCodesContents 3 | 4 | currentCompiledMethod ifNil: [^ nil]. 5 | ^ self coverage coveredSymbolicOf: currentCompiledMethod -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/instance/coverageSourceContents.st: -------------------------------------------------------------------------------- 1 | contents 2 | coverageSourceContents 3 | 4 | currentCompiledMethod ifNil: [^ nil]. 5 | ^ (self coverage coveredSourceOf: currentCompiledMethod) 6 | makeSelectorBold -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/instance/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | super initialize. 5 | 6 | contentsSymbol := #coverageSource. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/instance/showingCoverageByteCodes.st: -------------------------------------------------------------------------------- 1 | what to show 2 | showingCoverageByteCodes 3 | 4 | ^ contentsSymbol = #coverageByteCodes -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/instance/showingCoverageByteCodesString.st: -------------------------------------------------------------------------------- 1 | what to show 2 | showingCoverageByteCodesString 3 | 4 | ^ (self showingCoverageByteCodes 5 | ifTrue: [''] 6 | ifFalse: ['']) 7 | , 'byteCode' -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/instance/showingCoverageSource.st: -------------------------------------------------------------------------------- 1 | what to show 2 | showingCoverageSource 3 | 4 | ^ contentsSymbol = #coverageSource -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/MessageSetForCoverage.class/instance/showingCoverageSourceString.st: -------------------------------------------------------------------------------- 1 | what to show 2 | showingCoverageSourceString 3 | 4 | ^ (self showingCoverageSource 5 | ifTrue: [''] 6 | ifFalse: ['']) 7 | , 'coverage' -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/Object.extension/instance/exploreProtocol.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Tools-ProtocolExplorer 2 | exploreProtocol 3 | 4 | ^ SimulationProtocolExplorer openOn: self -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/Object.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "exploreProtocol" : "ct 12/29/2021 22:40" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/Object.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "Object" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SequenceableCollection.extension/instance/simAllOrderedSubsetsDo..st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Tools-MethodFinder-enumerating 2 | simAllOrderedSubsetsDo: subsetBlock 3 | 4 | ^ self asArray simAllOrderedSubsetsDo: subsetBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SequenceableCollection.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "simAllOrderedSubsetsDo:" : "ct 9/19/2022 18:18" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SequenceableCollection.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "SequenceableCollection" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/class/browseSelectorPopularities.st: -------------------------------------------------------------------------------- 1 | support 2 | browseSelectorPopularities 3 | 4 | ^ ((SelectorPopularities associations sorted: [:assoc | assoc value] descending) 5 | as: OrderedDictionary) 6 | explore -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/class/cleanUp..st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | cleanUp: aggressive 3 | 4 | SelectorPopularities := nil. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/class/example.st: -------------------------------------------------------------------------------- 1 | documentation 2 | example 3 | 4 | (SimulationMethodFinder new 5 | receiver: 2 arguments: {3}; 6 | setExpectedAnswer: 5; 7 | allMatches) 8 | contents -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/class/hasSelectorPopularities.st: -------------------------------------------------------------------------------- 1 | support 2 | hasSelectorPopularities 3 | 4 | ^ SelectorPopularities notNil -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/class/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | self initializeSelectorPopularities. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/class/popularityOfSelector..st: -------------------------------------------------------------------------------- 1 | support 2 | popularityOfSelector: aSymbol 3 | 4 | ^ (SelectorPopularities ifNil: [^ Float nan]) 5 | at: aSymbol ifAbsent: [0] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/allMatches.st: -------------------------------------------------------------------------------- 1 | finding 2 | allMatches 3 | 4 | ^ Generator on: [:stream | 5 | self streamMatchesOn: stream] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/allPermutationModes.st: -------------------------------------------------------------------------------- 1 | accessing - constants 2 | allPermutationModes 3 | 4 | ^ #(nil arguments receiverAndArguments) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/allSearchModes.st: -------------------------------------------------------------------------------- 1 | accessing - constants 2 | allSearchModes 3 | 4 | ^ #(value predicate sendingPredicate) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/assuredTranscripter.st: -------------------------------------------------------------------------------- 1 | private 2 | assuredTranscripter 3 | 4 | ^ transcripter ifNil: 5 | [transcripter := Project current transcript] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/currentDepthProgress.st: -------------------------------------------------------------------------------- 1 | accessing - log and debug 2 | currentDepthProgress 3 | 4 | ^ currentDepthProgress -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/currentDepthStartTime.st: -------------------------------------------------------------------------------- 1 | accessing - log and debug 2 | currentDepthStartTime 3 | 4 | ^ currentDepthStartTime -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/currentSearchDepth.st: -------------------------------------------------------------------------------- 1 | accessing - log and debug 2 | currentSearchDepth 3 | 4 | ^ currentDepthIndex -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/defaultIsCompositeSearch.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | defaultIsCompositeSearch 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/expectedAnswer..st: -------------------------------------------------------------------------------- 1 | accessing 2 | expectedAnswer: anObject 3 | 4 | expectedAnswer := anObject. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/expectedAnswer.st: -------------------------------------------------------------------------------- 1 | accessing 2 | expectedAnswer 3 | 4 | ^ expectedAnswer -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | super initialize. 5 | 6 | self isCompositeSearch: self defaultIsCompositeSearch. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/isCompositeSearch..st: -------------------------------------------------------------------------------- 1 | accessing 2 | isCompositeSearch: aBoolean 3 | 4 | isCompositeSearch := aBoolean. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/isCompositeSearch.st: -------------------------------------------------------------------------------- 1 | accessing 2 | isCompositeSearch 3 | 4 | ^ isCompositeSearch -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/matchesResult..st: -------------------------------------------------------------------------------- 1 | private 2 | matchesResult: answer 3 | 4 | ^ self searchMode caseOf: 5 | {[#value] -> [answer = expectedAnswer]. 6 | [#predicate] -> [predicate value: answer]} -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/outerSuperclass..st: -------------------------------------------------------------------------------- 1 | accessing 2 | outerSuperclass: aClassDescriptionOrNil 3 | 4 | outerSuperclass := aClassDescriptionOrNil. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/outerSuperclass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | outerSuperclass 3 | 4 | ^ outerSuperclass -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/permutationMode..st: -------------------------------------------------------------------------------- 1 | accessing 2 | permutationMode: aSymbol 3 | 4 | self assert: (self allPermutationModes includes: aSymbol). 5 | permutationMode := aSymbol. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/permutationMode.st: -------------------------------------------------------------------------------- 1 | accessing 2 | permutationMode 3 | 4 | ^ permutationMode -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/predicate..st: -------------------------------------------------------------------------------- 1 | accessing 2 | predicate: aBlock 3 | 4 | predicate := aBlock. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/predicate.st: -------------------------------------------------------------------------------- 1 | accessing 2 | predicate 3 | 4 | ^ predicate -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/receiver.arguments..st: -------------------------------------------------------------------------------- 1 | accessing 2 | receiver: receiver arguments: arguments 3 | 4 | self receiverAndArguments: (arguments copyWithFirst: receiver). -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/receiverAndArguments..st: -------------------------------------------------------------------------------- 1 | accessing 2 | receiverAndArguments: anArray 3 | 4 | receiverAndArguments := anArray. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/receiverAndArguments.st: -------------------------------------------------------------------------------- 1 | accessing 2 | receiverAndArguments 3 | 4 | ^ receiverAndArguments -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/sandboxClass.st: -------------------------------------------------------------------------------- 1 | accessing - constants 2 | sandboxClass 3 | 4 | ^ Sandbox2 -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/searchMode..st: -------------------------------------------------------------------------------- 1 | accessing 2 | searchMode: aSymbol 3 | 4 | self assert: (self allSearchModes includes: aSymbol). 5 | searchMode := aSymbol. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/searchMode.st: -------------------------------------------------------------------------------- 1 | accessing 2 | searchMode 3 | 4 | ^ searchMode -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/setExpectedAnswer..st: -------------------------------------------------------------------------------- 1 | accessing 2 | setExpectedAnswer: anObject 3 | 4 | self expectedAnswer: anObject. 5 | self searchMode: #value. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/setPredicate..st: -------------------------------------------------------------------------------- 1 | accessing 2 | setPredicate: aBlock 3 | 4 | self predicate: aBlock. 5 | self searchMode: #predicate. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/setSendingPredicate..st: -------------------------------------------------------------------------------- 1 | accessing 2 | setSendingPredicate: aBlock 3 | 4 | self predicate: aBlock. 5 | self searchMode: #sendingPredicate. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/transcripter..st: -------------------------------------------------------------------------------- 1 | accessing - log and debug 2 | transcripter: aTranscriptStream 3 | "A TranscriptStream that may be set for debugging purposes, or nil." 4 | 5 | transcripter := aTranscriptStream. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinder.class/instance/transcripter.st: -------------------------------------------------------------------------------- 1 | accessing - log and debug 2 | transcripter 3 | "A TranscriptStream that may be set for debugging purposes, or nil." 4 | 5 | ^ transcripter -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/README.md: -------------------------------------------------------------------------------- 1 | I represent an expression that was constructed by a SimulationMethodFinder. I'm like a MessageSend but can also store the resulting value. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/class/leaf..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | leaf: anObject 3 | 4 | ^ self new 5 | value: anObject; 6 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/arguments..st: -------------------------------------------------------------------------------- 1 | accessing 2 | arguments: anArray 3 | 4 | arguments := anArray. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/arguments.st: -------------------------------------------------------------------------------- 1 | accessing 2 | arguments 3 | 4 | ^ arguments -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/compiledMethod.st: -------------------------------------------------------------------------------- 1 | accessing 2 | compiledMethod 3 | 4 | ^ self receiver valueClass lookupSelector: self selector -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/isLeaf.st: -------------------------------------------------------------------------------- 1 | testing 2 | isLeaf 3 | 4 | ^ self selector isNil -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/methodReference.st: -------------------------------------------------------------------------------- 1 | accessing 2 | methodReference 3 | 4 | self receiver ifNil: [^ nil]. 5 | ^ self compiledMethod methodReference 6 | stringVersion: self printString; 7 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/receiver..st: -------------------------------------------------------------------------------- 1 | accessing 2 | receiver: anObject 3 | 4 | receiver := anObject. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/receiver.st: -------------------------------------------------------------------------------- 1 | accessing 2 | receiver 3 | 4 | ^ receiver -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/selector..st: -------------------------------------------------------------------------------- 1 | accessing 2 | selector: aSymbol 3 | 4 | selector := aSymbol. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/selector.st: -------------------------------------------------------------------------------- 1 | accessing 2 | selector 3 | 4 | ^ selector -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/value..st: -------------------------------------------------------------------------------- 1 | accessing 2 | value: anObject 3 | 4 | value := anObject. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/value.st: -------------------------------------------------------------------------------- 1 | accessing 2 | value 3 | 4 | ^ value -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/valueClass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | valueClass 3 | 4 | ^ self value class -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderExpression.class/instance/withValue..st: -------------------------------------------------------------------------------- 1 | copying 2 | withValue: anObject 3 | 4 | ^ self copy value: anObject -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/class/appName.st: -------------------------------------------------------------------------------- 1 | constants 2 | appName 3 | 4 | ^ 'Simulation Method Finder' -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/class/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | self registerInWorldMenu. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/class/open.st: -------------------------------------------------------------------------------- 1 | opening 2 | open 3 | 4 | ^ self new open -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/class/registerInWorldMenu.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | registerInWorldMenu 3 | 4 | TheWorldMenu registerOpenCommand: {self appName. {self. #open}} -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/class/todo.st: -------------------------------------------------------------------------------- 1 | documentation 2 | todo 3 | 4 | ^ SimulationMethodFinder todo -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/class/unload.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | unload 3 | 4 | self unregisterInWorldMenu. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/class/unregisterInWorldMenu.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | unregisterInWorldMenu 3 | 4 | TheWorldMenu unregisterOpenCommand: self appName. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/compilerClass.st: -------------------------------------------------------------------------------- 1 | accessing - constants 2 | compilerClass 3 | 4 | ^ Compiler -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/contents.st: -------------------------------------------------------------------------------- 1 | accessing - toolbuilder 2 | contents 3 | 4 | self selection ifNil: [^ self emptyContents]. 5 | ^ super contents -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/defaultHasPinnedArguments.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | defaultHasPinnedArguments 3 | 4 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/defaultHasPinnedReceiver.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | defaultHasPinnedReceiver 3 | 4 | ^ true -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/defaultIsCompositeSearch.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | defaultIsCompositeSearch 3 | 4 | ^ false -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/defaultOuterSuperclass.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | defaultOuterSuperclass 3 | 4 | ^ Object -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/defaultSearchMode.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | defaultSearchMode 3 | 4 | ^ #value -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/finderClass.st: -------------------------------------------------------------------------------- 1 | accessing - constants 2 | finderClass 3 | 4 | ^ SimulationMethodFinder -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/hasBindingOf..st: -------------------------------------------------------------------------------- 1 | bindings 2 | hasBindingOf: aString 3 | 4 | ^ bindings notNil and: 5 | [bindings includesKey: aString] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/hasOuterSuperclass.st: -------------------------------------------------------------------------------- 1 | accessing - toolbuilder 2 | hasOuterSuperclass 3 | 4 | ^ self outerSuperclass notNil -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/hasPinnedArguments.st: -------------------------------------------------------------------------------- 1 | accessing 2 | hasPinnedArguments 3 | 4 | ^ finder permutationMode isNil -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/hasPinnedReceiver.st: -------------------------------------------------------------------------------- 1 | accessing 2 | hasPinnedReceiver 3 | 4 | ^ finder permutationMode ~= #receiverAndArguments -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/inputsPaneHelp.st: -------------------------------------------------------------------------------- 1 | accessing - toolbuilder 2 | inputsPaneHelp 3 | 4 | ^ 'receiver. argument1. argument2. ...' -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/inputsText..st: -------------------------------------------------------------------------------- 1 | accessing 2 | inputsText: aStringOrText 3 | 4 | (self inputsText: aStringOrText requestor: nil) 5 | ifTrue: [self changed: #inputsText]. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/inputsText.st: -------------------------------------------------------------------------------- 1 | accessing 2 | inputsText 3 | 4 | ^ inputsText -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/isCompositeSearch..st: -------------------------------------------------------------------------------- 1 | accessing 2 | isCompositeSearch: aBoolean 3 | 4 | finder isCompositeSearch: aBoolean. 5 | 6 | self changed: #isCompositeSearch. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/isCompositeSearch.st: -------------------------------------------------------------------------------- 1 | accessing 2 | isCompositeSearch 3 | 4 | ^ finder isCompositeSearch -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/isOutputPredicate.st: -------------------------------------------------------------------------------- 1 | accessing - toolbuilder 2 | isOutputPredicate 3 | 4 | ^ self searchMode = #predicate -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/isOutputSendingPredicate.st: -------------------------------------------------------------------------------- 1 | accessing - toolbuilder 2 | isOutputSendingPredicate 3 | 4 | ^ self searchMode = #sendingPredicate -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/isOutputValue.st: -------------------------------------------------------------------------------- 1 | accessing - toolbuilder 2 | isOutputValue 3 | 4 | ^ self searchMode = #value -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/isSearching.st: -------------------------------------------------------------------------------- 1 | testing 2 | isSearching 3 | 4 | ^ backgroundProcess notNil -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/makeContextForPredicate.st: -------------------------------------------------------------------------------- 1 | private 2 | makeContextForPredicate 3 | 4 | ^ [self makeContextForPredicateWith: Object new] once -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/makeContextForPredicateWith..st: -------------------------------------------------------------------------------- 1 | private 2 | makeContextForPredicateWith: answer 3 | 4 | ^ thisContext -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/makeContextForSendingPredicate.st: -------------------------------------------------------------------------------- 1 | private 2 | makeContextForSendingPredicate 3 | 4 | ^ [self makeContextForSendingPredicateWith: MessageSend basicNew] once -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/makeContextForSendingPredicateWith..st: -------------------------------------------------------------------------------- 1 | private 2 | makeContextForSendingPredicateWith: messageSend 3 | 4 | ^ thisContext -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/open.st: -------------------------------------------------------------------------------- 1 | toolbuilder 2 | open 3 | 4 | ^ ToolBuilder open: self -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/outerSuperclass..st: -------------------------------------------------------------------------------- 1 | accessing 2 | outerSuperclass: aClassDescription 3 | 4 | finder outerSuperclass: aClassDescription. 5 | 6 | self changed: #outerSuperclassLabel. 7 | self changed: #hasOuterSuperclass. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/outerSuperclass.st: -------------------------------------------------------------------------------- 1 | accessing 2 | outerSuperclass 3 | 4 | ^ finder outerSuperclass -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/outerSuperclassLabel.st: -------------------------------------------------------------------------------- 1 | accessing - toolbuilder 2 | outerSuperclassLabel 3 | 4 | ^ self outerSuperclass 5 | ifNil: ['entire class hierarchy'] 6 | ifNotNil: [:class | 'below {1}' format: {class}] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/outputMode..st: -------------------------------------------------------------------------------- 1 | accessing 2 | outputMode: aSymbol 3 | 4 | self deprecated. 5 | ^ self searchMode: aSymbol -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/outputText..st: -------------------------------------------------------------------------------- 1 | accessing 2 | outputText: aStringOrText 3 | 4 | (self outputText: aStringOrText requestor: nil) 5 | ifTrue: [self changed: #outputText]. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/outputText.st: -------------------------------------------------------------------------------- 1 | accessing 2 | outputText 3 | 4 | ^ outputText -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/pseudoContextForPredicateWith..st: -------------------------------------------------------------------------------- 1 | private 2 | pseudoContextForPredicateWith: answer 3 | 4 | ^ SimulationPseudoContext forTemporaries: {answer} -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/refusesToAcceptCodeFor..st: -------------------------------------------------------------------------------- 1 | accessing - toolbuilder 2 | refusesToAcceptCodeFor: requestor 3 | 4 | (#(inputsText outputText) includes: requestor knownName) ifTrue: [^ false]. 5 | 6 | ^ super refusesToAcceptCodeFor: requestor -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/searchMode.st: -------------------------------------------------------------------------------- 1 | accessing 2 | searchMode 3 | 4 | ^ finder searchMode -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/setOutputPredicate.st: -------------------------------------------------------------------------------- 1 | actions 2 | setOutputPredicate 3 | 4 | ^ self setSearchMode: #predicate -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/setOutputSendingPredicate.st: -------------------------------------------------------------------------------- 1 | actions 2 | setOutputSendingPredicate 3 | 4 | ^ self setSearchMode: #sendingPredicate -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/setOutputValue.st: -------------------------------------------------------------------------------- 1 | actions 2 | setOutputValue 3 | 4 | ^ self setSearchMode: #value. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/showTranscripter.st: -------------------------------------------------------------------------------- 1 | actions 2 | showTranscripter 3 | 4 | finder assuredTranscripter open. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/stepTimeIn..st: -------------------------------------------------------------------------------- 1 | updating 2 | stepTimeIn: window 3 | 4 | ^ 500 "milliSeconds" -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/stopSearching.st: -------------------------------------------------------------------------------- 1 | private 2 | stopSearching 3 | 4 | backgroundProcess ifNotNil: #terminate. 5 | backgroundProcess := nil. 6 | 7 | self changed: #labelString. 8 | self changed: #windowTitle. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/toggleCompositeSearch.st: -------------------------------------------------------------------------------- 1 | actions 2 | toggleCompositeSearch 3 | 4 | self isCompositeSearch: self isCompositeSearch not. 5 | 6 | self findMethods. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/togglePinnedArguments.st: -------------------------------------------------------------------------------- 1 | actions 2 | togglePinnedArguments 3 | 4 | self hasPinnedArguments: self hasPinnedArguments not. 5 | 6 | self findMethods. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/togglePinnedReceiver.st: -------------------------------------------------------------------------------- 1 | actions 2 | togglePinnedReceiver 3 | 4 | self hasPinnedReceiver: self hasPinnedReceiver not. 5 | 6 | self findMethods. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/verticalOffset.st: -------------------------------------------------------------------------------- 1 | toolbuilder 2 | verticalOffset 3 | 4 | ^ 1 / 3 -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/wantsDroppedMorph.event.inMorph..st: -------------------------------------------------------------------------------- 1 | toolbuilder 2 | wantsDroppedMorph: dropee event: evt inMorph: target 3 | 4 | ^ #(inputsText outputText) includes: target knownName -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/windowColorToUse.st: -------------------------------------------------------------------------------- 1 | toolbuilder 2 | windowColorToUse 3 | 4 | ^ SelectorBrowser basicNew windowColorToUse -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationMethodFinderTool.class/instance/windowIsClosing.st: -------------------------------------------------------------------------------- 1 | updating 2 | windowIsClosing 3 | 4 | self stopSearching. 5 | 6 | ^ super windowIsClosing -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/class/on..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | on: anObject 3 | 4 | ^ self new 5 | object: anObject; 6 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/addModelItemsToWindowMenu..st: -------------------------------------------------------------------------------- 1 | toolbuilder 2 | addModelItemsToWindowMenu: menu 3 | 4 | super addModelItemsToWindowMenu: menu. 5 | 6 | menu addLine. 7 | SimulatorApp appMenu: menu. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/appName.st: -------------------------------------------------------------------------------- 1 | accessing 2 | appName 3 | 4 | ^ 'Protocol Explorer' -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/buildCodePaneWith..st: -------------------------------------------------------------------------------- 1 | toolbuilder 2 | buildCodePaneWith: builder 3 | 4 | ^ (super buildCodePaneWith: builder) 5 | help: 'Select a message or evaluate expressions on explored object' translated; 6 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/categories.st: -------------------------------------------------------------------------------- 1 | accessing 2 | categories 3 | 4 | ^ (self selectedClasses gather: [:class | class organization categories]) withoutDuplicates sorted -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/classIconAt..st: -------------------------------------------------------------------------------- 1 | accessing 2 | classIconAt: anInteger 3 | 4 | ^ self classIconFor: (self classes at: anInteger) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/classIconFor..st: -------------------------------------------------------------------------------- 1 | accessing 2 | classIconFor: aClass 3 | 4 | ^ ToolIcons iconNamed: (ToolIcons iconForClass: aClass name) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/classIndex..st: -------------------------------------------------------------------------------- 1 | accessing 2 | classIndex: anInteger 3 | 4 | classIndex := anInteger -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/classIndex.st: -------------------------------------------------------------------------------- 1 | accessing 2 | classIndex 3 | 4 | ^ classIndex -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/classSelectionsAt..st: -------------------------------------------------------------------------------- 1 | accessing 2 | classSelectionsAt: anInteger 3 | 4 | ^ self isClassSelected: (self classes at: anInteger) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/classSelectionsAt.put..st: -------------------------------------------------------------------------------- 1 | accessing 2 | classSelectionsAt: anInteger put: aBoolean 3 | 4 | ^ self setClass:(self classes at: anInteger) selected: aBoolean -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/classes.st: -------------------------------------------------------------------------------- 1 | accessing 2 | classes 3 | 4 | ^ self object class withAllSuperclasses reversed -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/contents.st: -------------------------------------------------------------------------------- 1 | toolbuilder 2 | contents 3 | 4 | | theContents | 5 | theContents := super contents. 6 | theContents isEmptyOrNil ifTrue: [^ nil]. 7 | ^ theContents -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/currentCompiledMethod.st: -------------------------------------------------------------------------------- 1 | accessing 2 | currentCompiledMethod 3 | 4 | ^ currentCompiledMethod 5 | ifNil: [currentCompiledMethod := self object class lookupSelector: self selectedSelector] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/debugSelectedMessage.st: -------------------------------------------------------------------------------- 1 | actions 2 | debugSelectedMessage 3 | 4 | | message | 5 | message := self selectedProtocolMessage ifNil: [^ self]. 6 | message debug. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/dependentAspectsOn..st: -------------------------------------------------------------------------------- 1 | updating 2 | dependentAspectsOn: aspect 3 | 4 | ^ self aspectDependencies associations 5 | select: [:assoc | assoc value includes: aspect] 6 | thenCollect: [:assoc | assoc key] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/doItReceiver.st: -------------------------------------------------------------------------------- 1 | accessing 2 | doItReceiver 3 | 4 | ^ self object -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/exploreProtocolOfSelectedMessage.st: -------------------------------------------------------------------------------- 1 | actions 2 | exploreProtocolOfSelectedMessage 3 | 4 | ^ self withSelectedMessageResultDo: [:result | self class openOn: result] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/exploreSelectedMessage.st: -------------------------------------------------------------------------------- 1 | actions 2 | exploreSelectedMessage 3 | 4 | ^ self withSelectedMessageResultDo: [:result | ToolSet explore: result] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/iconForObject..st: -------------------------------------------------------------------------------- 1 | accessing 2 | iconForObject: anObject 3 | 4 | ^ (ObjectExplorerWrapper with: anObject name: nil model: self) 5 | icon -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/indentedClasses.st: -------------------------------------------------------------------------------- 1 | accessing 2 | indentedClasses 3 | 4 | ^ self classes withIndexCollect: [:class :index | 5 | (String new: index - 1 * 2 withAll: $ ) , class] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | super initialize. 5 | 6 | selectedClasses := Set new. 7 | classIndex := 0. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/inspectSelectedMessage.st: -------------------------------------------------------------------------------- 1 | actions 2 | inspectSelectedMessage 3 | 4 | ^ self withSelectedMessageResultDo: [:result | ToolSet inspect: result] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/isClassSelected..st: -------------------------------------------------------------------------------- 1 | accessing 2 | isClassSelected: aClass 3 | 4 | ^ self selectedClasses includes: aClass -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/labelString.st: -------------------------------------------------------------------------------- 1 | toolbuilder 2 | labelString 3 | 4 | ^ '{1} on {2}' format: 5 | {self appName. 6 | [self object printStringLimitedTo: 40] ifError: ['a ' , self object class]} -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/messageClass.st: -------------------------------------------------------------------------------- 1 | private 2 | messageClass 3 | 4 | ^ SimulationProtocolMessage -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/messageColumnNameAt..st: -------------------------------------------------------------------------------- 1 | accessing 2 | messageColumnNameAt: anInteger 3 | 4 | ^ #(selector result) at: anInteger -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/messageHelpAtRow..st: -------------------------------------------------------------------------------- 1 | accessing 2 | messageHelpAtRow: rowIndex 3 | 4 | | message | 5 | message := self messages at: rowIndex. 6 | ^ self messageHelpFor: message -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/messageListMenu.shifted..st: -------------------------------------------------------------------------------- 1 | toolbuilder 2 | messageListMenu: aMenu shifted: shifted 3 | 4 | ^ self menu: aMenu for: #(messageListMenu messageListMenuShifted:) shifted: shifted -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/messages.st: -------------------------------------------------------------------------------- 1 | accessing 2 | messages 3 | 4 | ^ messages ifNil: [messages := 5 | self selectors collect: [:selector | 6 | self newMessageFor: selector]] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/newMessageFor..st: -------------------------------------------------------------------------------- 1 | private 2 | newMessageFor: selector 3 | 4 | ^ self messageClass receiver: self object selector: selector -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/object.st: -------------------------------------------------------------------------------- 1 | accessing 2 | object 3 | 4 | ^ object -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/open.st: -------------------------------------------------------------------------------- 1 | toolbuilder 2 | open 3 | 4 | ^ ToolBuilder open: self -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/openSelectedMessage.st: -------------------------------------------------------------------------------- 1 | actions 2 | openSelectedMessage 3 | 4 | ^ self exploreProtocolOfSelectedMessage -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/sandboxClass.st: -------------------------------------------------------------------------------- 1 | private 2 | sandboxClass 3 | 4 | ^ Sandbox -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/selectCategory..st: -------------------------------------------------------------------------------- 1 | accessing 2 | selectCategory: aString 3 | 4 | selectedCategory := aString. 5 | 6 | self changed: #selectedCategory. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/selectProtocolMessage..st: -------------------------------------------------------------------------------- 1 | accessing 2 | selectProtocolMessage: aString 3 | 4 | selectedProtocolMessage := aString. 5 | 6 | self changed: #selectedProtocolMessage. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/selectedCategory.st: -------------------------------------------------------------------------------- 1 | accessing 2 | selectedCategory 3 | 4 | ^ selectedCategory -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/selectedClasses.st: -------------------------------------------------------------------------------- 1 | accessing 2 | selectedClasses 3 | 4 | ^ selectedClasses -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/selectedMessageIndex..st: -------------------------------------------------------------------------------- 1 | accessing 2 | selectedMessageIndex: anInteger 3 | 4 | self selectProtocolMessage: (anInteger = 0 ifTrue: [nil] ifFalse: [self messages at: anInteger]) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/selectedMessageIndex.st: -------------------------------------------------------------------------------- 1 | accessing 2 | selectedMessageIndex 3 | 4 | ^ self messages indexOf: (self selectedProtocolMessage ifNil: [^ 0]) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/selectedProtocolMessage.st: -------------------------------------------------------------------------------- 1 | accessing 2 | selectedProtocolMessage 3 | 4 | ^ selectedProtocolMessage -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolExplorer.class/instance/selectedSelector.st: -------------------------------------------------------------------------------- 1 | accessing 2 | selectedSelector 3 | 4 | ^ self selectedProtocolMessage ifNotNil: [:message | message selector] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/README.md: -------------------------------------------------------------------------------- 1 | I represent an evaluable message of a SimulationProtocolExplorer. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/class/receiver.selector..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | receiver: anObject selector: aSymbol 3 | 4 | ^ self new 5 | receiver: anObject; 6 | selector: aSymbol; 7 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/assureResult.st: -------------------------------------------------------------------------------- 1 | actions 2 | assureResult 3 | 4 | self hasRun ifFalse: [self evaluate]. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/debug.st: -------------------------------------------------------------------------------- 1 | actions 2 | debug 3 | 4 | ^ self sandboxClass debug: [self perform] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/hasError.st: -------------------------------------------------------------------------------- 1 | testing 2 | hasError 3 | 4 | ^ self state = #error -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/hasResult.st: -------------------------------------------------------------------------------- 1 | testing 2 | hasResult 3 | 4 | ^ self state = #done -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/hasRun.st: -------------------------------------------------------------------------------- 1 | testing 2 | hasRun 3 | 4 | ^ self state notNil -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/hasSideEffects.st: -------------------------------------------------------------------------------- 1 | testing 2 | hasSideEffects 3 | 4 | ^ hasSideEffects -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/ifResult.ifError..st: -------------------------------------------------------------------------------- 1 | accessing 2 | ifResult: resultBlock ifError: errorBlock 3 | 4 | ^ self 5 | ifResult: resultBlock 6 | ifError: errorBlock 7 | ifPending: [self error: 'still pending'] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/perform.st: -------------------------------------------------------------------------------- 1 | private 2 | perform 3 | 4 | ^ self receiver perform: self selector -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/printOn..st: -------------------------------------------------------------------------------- 1 | printing 2 | printOn: aStream 3 | 4 | super printOn: aStream. 5 | aStream nextPutAll: (' ({1} to {2}' format: {self selector printString. self receiver}). -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/receiver..st: -------------------------------------------------------------------------------- 1 | accessing 2 | receiver: anObject 3 | 4 | receiver := anObject. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/receiver.st: -------------------------------------------------------------------------------- 1 | accessing 2 | receiver 3 | 4 | ^ receiver -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/result.st: -------------------------------------------------------------------------------- 1 | accessing 2 | result 3 | 4 | ^ result -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/resultOrError.st: -------------------------------------------------------------------------------- 1 | accessing 2 | resultOrError 3 | 4 | ^ self hasError 5 | ifFalse: [self result] 6 | ifTrue: [self theError] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/sandboxClass.st: -------------------------------------------------------------------------------- 1 | private 2 | sandboxClass 3 | 4 | ^ Sandbox -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/selector..st: -------------------------------------------------------------------------------- 1 | accessing 2 | selector: aSymbol 3 | 4 | selector := aSymbol. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/selector.st: -------------------------------------------------------------------------------- 1 | accessing 2 | selector 3 | 4 | ^ selector -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/state.st: -------------------------------------------------------------------------------- 1 | accessing 2 | state 3 | 4 | ^ state -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationProtocolMessage.class/instance/theError.st: -------------------------------------------------------------------------------- 1 | accessing 2 | theError 3 | 4 | ^ error -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationPseudoContext.class/class/forTemporaries..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | forTemporaries: temporaries 3 | 4 | ^ self new setTemporaries: temporaries -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationPseudoContext.class/instance/namedTempAt..st: -------------------------------------------------------------------------------- 1 | accessing 2 | namedTempAt: index 3 | 4 | ^ temporaries at: index -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationPseudoContext.class/instance/receiver.st: -------------------------------------------------------------------------------- 1 | accessing 2 | receiver 3 | 4 | ^ nil -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationPseudoContext.class/instance/setTemporaries..st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | setTemporaries: anArray 3 | 4 | temporaries := anArray. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulationPseudoContext.class/instance/temporaries.st: -------------------------------------------------------------------------------- 1 | accessing 2 | temporaries 3 | 4 | ^ temporaries -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulatorApp.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | "appMenu:" : "ct 10/18/2022 16:13", 4 | "doSelfUpdate" : "ct 10/18/2022 16:13" }, 5 | "instance" : { 6 | } } 7 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/SimulatorApp.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "SimulatorApp" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/monticello.meta/categories.st: -------------------------------------------------------------------------------- 1 | SystemOrganization addCategory: #'SimulationStudio-Tools-ProtocolExplorer'! 2 | SystemOrganization addCategory: #'SimulationStudio-Tools-MethodFinder'! 3 | SystemOrganization addCategory: #'SimulationStudio-Tools-Coverage'! 4 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/monticello.meta/initializers.st: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tools.package/monticello.meta/initializers.st -------------------------------------------------------------------------------- /packages/SimulationStudio-Tools.package/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/.filetree: -------------------------------------------------------------------------------- 1 | { 2 | "noMethodMetaData" : true, 3 | "separateMethodMetaAndSource" : false, 4 | "useCypressPropertiesFile" : true } 5 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/.squot-contents: -------------------------------------------------------------------------------- 1 | SquotTrackedObjectMetadata { 2 | #objectClassName : #PackageInfo, 3 | #id : UUID [ '233fc124ec63154f8e7e5611ff3603c2' ], 4 | #objectsReplacedByNames : true, 5 | #serializer : #SquotCypressCodeSerializer 6 | } -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/BlockClosure.extension/instance/browseSimulationMessageSendRecord.st: -------------------------------------------------------------------------------- 1 | *SimulationStudio-Tracing 2 | browseSimulationMessageSendRecord 3 | " 4 | ['[\w3-6]+' asRegex] browseSimulationMessageSendRecord 5 | " 6 | 7 | ^ SimulationMessageSendRecorder browseRecord: self -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/BlockClosure.extension/methodProperties.json: -------------------------------------------------------------------------------- 1 | { 2 | "class" : { 3 | }, 4 | "instance" : { 5 | "browseSimulationMessageSendRecord" : "ct 11/13/2021 19:47" } } 6 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/BlockClosure.extension/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | "name" : "BlockClosure" } 3 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/class/browseRecord..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | browseRecord: aBlock 3 | 4 | ^ self new 5 | record: aBlock; 6 | browseRecord -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/class/on..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | on: aMessageSendRecorder 3 | 4 | ^ self basicNew 5 | recorder: aMessageSendRecorder; 6 | initialize -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/class/record..st: -------------------------------------------------------------------------------- 1 | instance creation 2 | record: aBlock 3 | 4 | ^ self new record: aBlock -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/instance/activateDuring..st: -------------------------------------------------------------------------------- 1 | evaluating 2 | activateDuring: aBlock 3 | 4 | | result | 5 | self recorder 6 | setMessageSend: [result := super activateDuring: aBlock]; 7 | basicRecord. 8 | ^ result -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/instance/browseRecord.st: -------------------------------------------------------------------------------- 1 | recording 2 | browseRecord 3 | 4 | ^ self recorder topRecord browse -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/instance/initialize.st: -------------------------------------------------------------------------------- 1 | initialize-release 2 | initialize 3 | 4 | super initialize. 5 | 6 | recorder ifNil: [recorder := self newRecorder]. 7 | recordBlocks := WeakIdentityKeyDictionary new. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/instance/newRecorder.st: -------------------------------------------------------------------------------- 1 | recording 2 | newRecorder 3 | 4 | ^ SimulationMessageSendRecorder new 5 | simulator: self; 6 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/instance/record..st: -------------------------------------------------------------------------------- 1 | recording 2 | record: aBlock 3 | 4 | ^ self 5 | evaluate: aBlock; 6 | yourself -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/instance/recorder..st: -------------------------------------------------------------------------------- 1 | accessing 2 | recorder: aMessageSendRecorder 3 | 4 | recorder := aMessageSendRecorder. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/MessageSendRecorderSimulator.class/instance/recorder.st: -------------------------------------------------------------------------------- 1 | accessing 2 | recorder 3 | 4 | ^ recorder -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/README.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/README.md -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/class/browseRecord..st: -------------------------------------------------------------------------------- 1 | recording 2 | browseRecord: aBlock 3 | " 4 | SimulationMessageSendRecorder browseRecord: [Morph new imageForm] 5 | " 6 | 7 | ^ (self record: aBlock) browse -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/class/record..st: -------------------------------------------------------------------------------- 1 | recording 2 | record: aBlock 3 | 4 | ^ self new 5 | setRecordAllObjects; 6 | setMessageSend: aBlock; 7 | record; 8 | topRecord -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/instance/initialize.st: -------------------------------------------------------------------------------- 1 | initialization 2 | initialize 3 | 4 | super initialize. 5 | 6 | numCallsBefores := Dictionary new. 7 | simulator := self newSimulator. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/instance/newSimulator.st: -------------------------------------------------------------------------------- 1 | initialization 2 | newSimulator 3 | 4 | ^ MessageSendRecorderSimulator on: self -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/instance/record.st: -------------------------------------------------------------------------------- 1 | recording 2 | record 3 | 4 | ^ Project current uiManager informUser: 'Recording message sends ...' during: [ 5 | self sendBasicMessage] -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/instance/sendBasicMessage.st: -------------------------------------------------------------------------------- 1 | private 2 | sendBasicMessage 3 | 4 | ^ self simulator evaluate: (block ifNil: [self topRecord parent]) -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/instance/setMessageSend..st: -------------------------------------------------------------------------------- 1 | initialization 2 | setMessageSend: aMessageSend 3 | 4 | super setMessageSend: aMessageSend. 5 | aMessageSend isBlock 6 | ifTrue: [block := aMessageSend]. -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/instance/simulator..st: -------------------------------------------------------------------------------- 1 | accessing 2 | simulator: aSimulator 3 | 4 | simulator := aSimulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/SimulationMessageSendRecorder.class/instance/simulator.st: -------------------------------------------------------------------------------- 1 | accessing 2 | simulator 3 | 4 | ^ simulator -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/monticello.meta/categories.st: -------------------------------------------------------------------------------- 1 | SystemOrganization addCategory: #'SimulationStudio-Tracing'! 2 | -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/monticello.meta/initializers.st: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/LinqLover/SimulationStudio/97fbd2f563f4f79f753807a6277ce37cf5642c5e/packages/SimulationStudio-Tracing.package/monticello.meta/initializers.st -------------------------------------------------------------------------------- /packages/SimulationStudio-Tracing.package/properties.json: -------------------------------------------------------------------------------- 1 | { 2 | } 3 | --------------------------------------------------------------------------------