Squeak-dev January 2011

squeak-dev@lists.squeakfoundation.org

94 participants
379 discussions

new 4.2 cleanUp method
by Chris Muller 07 Jan '11

07 Jan '11

An expert review of the new 4.2 cleanUp process is needed. Andreas, I noticed that ReleaseBuilderTrunk class>>#prepareNewBuild for 4.1 did not do a Smalltalk cleanUp: true but that it had code that was duplicated in many of the class-side cleanUp: methods. However, the time-stamp on those methods was just a few minutes after #prepareNewBuild, so I thought maybe you started there but then decided to delegate to classes, but never actually finished with a call to them? I removed all of the duplicate code from the 4.1 version of #prepareNewBuild methods and put in: Smalltalk cleanUp: true instead. Since that enumerates all classes in the system and calls cleanUp: on them, it's safe to say it's a more aggressive "clean-up" for 4.2 it was for 4.1. But maybe too aggressive? I think this is why Bernhards tests are mysteriously passing..

2 1

primMicrosecondClock?
by Yoshiki Ohshima 07 Jan '11

07 Jan '11

Hello, I'm looking at primMicrosecondClock on Windows with 4.1.1 VM and Cog 2341 just to profile parts of my code (so when is the epoch, and etc. does not matter here). I code snippet like this: | t | t := Time primMicrosecondClock. (Delay forSeconds: 1) wait. Time primMicrosecondClock - t and I get "1001" or "1000" on 4.1.1 and "0" on Cog... Where does it stand? Searching in the email archive, it appears that it "works" on Unix VM. Is it reliably working? How about Mac? -- Yoshiki

3 3

Daily Commit Log
by commits＠source.squeak.org 07 Jan '11

07 Jan '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-January/004095.ht… Name: ReleaseBuilder-cmm.52 Ancestors: ReleaseBuilder-cmm.51 Tweak the new default background. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004096.ht… Name: System-mtf.407 Ancestors: System-mtf.404 moved dumpException from SystemDictionary to SmalltalkImage =============================================

1 0

trunk repair (was: Re: [squeak-dev] Squeak4.2-10856-beta.zip)
by Chris Muller 06 Jan '11

06 Jan '11

>> I loaded my latest version of KernelTests from the inbox which removes >> FloatConsistencyTests, and have just uploaded a first 4.2 beta to > > IMHO the release has to be a Trunk image. Manual changes must not change the > code in the image, because that breaks the update mechanism. Of course, I just need your assistance to get trunk back on track. You had brought up that trying to merge that via the trunk update process would result in "conflicts". What is the best way to get back on track? I'm betting there will be one or two more images before release. I wanted to get something one out there ASAP. >> ftp://ftp.squeak.org/4.2/ >> >> We can try to go-back in the trunk stream so that a continuous update >> could work from a 10779 image, but I'm really not sure what needs to >> be done to accomplish that or whether that's important. We have this >> beta image from which we can at least update forward. > > What would be the benefit from rejecting all changes since 10779 from 4.2? I'm not suggesting anything specific; that was a request for help. >> We do still have some issues in the test-suite that we need help with! > > AFAIK all but one failing tests have fixes in the Inbox. Ok, I'll try to make another pass. If other core developers expertise can help here, thank you. - Chris

2 1

Disabling the Debugger for Distribution
by Darius Clarke 06 Jan '11

06 Jan '11

Hi All, Is there a way to disable the debugger for a distribution version of a Squeak app.? Something like hitting the abandon button before the debugger appears. Thanks in advance. - Darius

2 3

[4.2] tests status
by Chris Muller 06 Jan '11

06 Jan '11

Here are the results of running the tests in a 10802 image: 2828 run, 2810 passes, 6 expected failures, 12 failures, 0 errors, 0 unexpected passes The failed tests: BecomeTest>>#testBecomeIdentityHash DecompilerTests>>#testDecompileLoopWithMovingLimit DecompilerTests>>#testDecompilerInClassesMAtoMM DecompilerTests>>#testDecompilerInClassesSNtoSZ FileStreamTest>>#testPositionPastEndIsAtEnd MCDictionaryRepositoryTest>>#testCreationMethods MCDirectoryRepositoryTest>>#testCreationMethods MCPackageTest>>#testUnload PackageDependencyTest>>#testMorphic PackageDependencyTest>>#testSUnitGUI TestURI>>#testDirWithHash I've looked at two of them and.. I have no idea. Especially curious for me are the FileStreamTest and BecomeTest. Strange, the code hasn't changed since 4.1... The possible outcomes for Squeak 4.2 are: a) I override #shouldPass to mark these tests as "expected failures". b) Volunteers fix the remaining tests within the next couple of days. c) Release 4.2 with yellow tests. d) Delay the 4.2 release and hope volunteers fix the remaining tests. e) ??? My top preference is (b) of course, but if that does not happen, then (c) or (a). - Chris

10 16

Re: [squeak-dev] The Trunk: Tests-cmm.106.mcz
by Levente Uzonyi 06 Jan '11

06 Jan '11

On Tue, 4 Jan 2011, commits(a)source.squeak.org wrote: > Chris Muller uploaded a new version of Tests to project The Trunk: > http://source.squeak.org/trunk/Tests-cmm.106.mcz > > ==================== Summary ==================== > > Name: Tests-cmm.106 > Author: cmm > Time: 4 January 2011, 3:37:28.658 pm > UUID: efe56bcb-0939-4f58-b8ee-73d6a99dbe2a > Ancestors: Tests-cmm.105, Tests-bp.99 > > Merged Tests-bp.99. Accidentally there's a lot of cruft besides the actual changes which are the side effects of running the tests. I guess those should be removed/reverted. Levente > > =============== Diff against Tests-cmm.105 =============== > > Item was added: > + ----- Method: ArrayLiteralTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testReservedIdentifiers; add: #testSymbols; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: BecomeTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testBecomeForwardDontCopyIdentityHash; add: #testBecome; add: #testBecomeIdentityHash; add: #testBecomeForward; add: #testBecomeForwardIdentityHash; add: #testBecomeForwardHash; add: #testBecomeHash; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: BitBltClipBugs classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDrawingWayOutside4; add: #testFillingWayOutside3; add: #testDrawingWayOutside5; add: #testDrawingWayOutside; add: #testDrawingWayOutside6; add: #testDrawingWayOutside2; add: #testDrawingWayOutside3; add: #testFillingWayOutside; add: #testFillingWayOutside2; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: BitmapBugz classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testBitmapByteAt; add: #testWriteOn; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: BitmapStreamTests classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testOtherClasses; add: #testMatrixTransform2x3WithSmartRefStreamOnDisk; add: #testWordArrayWithRefStream; add: #testShortPointArrayWithRefStream2; add: #testWordArrayWithSmartRefStreamOnDisk; add: #testShortPointArrayWithImageSegment; add: #testShortPointArrayWithRefStream; add: #testShortIntegerArrayReadRefStream2; add: #testShortPointArrayWithSmartRefStream; add: #testShortRunArrayWithSmartRefStream2; add: #testShortRunArrayWithSmartRefStreamOnDisk; add: #testMatrixTransform2x3WithRefStream; add: #testMatrixTransform2x3WithSmartRefStream; add: #testShortIntegerArrayWithRefStream; add: #testShortIntegerArrayWithSmartRefStream2; add: #testShortIntegerArrayWithRefStream2; add: #testShortIntegerArrayWithSmartRefStream; add: #testShortPointArrayWithSmartRefStreamOnDisk; add: #testShortRunArrayWithImageSegment; add: #testShortRunArrayWithRefStream; add: #testShortIntegerArrayWithImageSegment; add: #testShortIntegerArrayWithRefStreamOnDisk; add: #testShortPointArrayWithRefStreamOnDisk; add: #testWordArrayWithRefStreamOnDisk; add: #testMatrixTransform2x3WithRefStreamOnDisk; add: #testWordArrayWithImageSegment; add: #testShortIntegerArrayWithSmartRefStreamOnDisk; add: #testShortRunArrayWithSmartRefStream; add: #testMatrixTransform2x3WithImageSegment; add: #testShortPointArrayWithSmartRefStream2; add: #testShortRunArrayWithRefStreamOnDisk; add: #testWordArrayWithSmartRefStream; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ByteArrayBugz classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testByteArrayLongAt; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ChangeSetClassChangesTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testChangeClassCategory; add: #testChangeClassCategoryAddsNewChangeRecord; add: #testInitialChangeSet; add: #testAddInstanceVariable; add: #testAddInstanceVariableAddsNewChangeRecord; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: CircleMorphBugs classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testCircleInstance; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ClassRenameFixTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testRenameClassUsingClass; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ClosureCompilerTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDecompiledDoitMethodTempNames; add: #testSourceRangeAccessForBlueBookInjectInto; add: #testInlineBlockCollectionLR3; add: #testInlineBlockCollectionSD1; add: #testTempNameAccessForInjectInto; add: #testSourceRangeAccessForClosureBytecodeInjectInto; add: #testInjectIntoDecompilations; add: #testInlineBlockCollectionLR1; add: #testInjectIntoDecompiledDebugs; add: #testBlockDoitDecompilation; add: #testBlockNumbering; add: #testSourceRangeAccessForClosureLongFormBytecodeInjectInto; add: #testSourceRangeAccessForInjectInto; add: #testBlockNumberingForInjectInto; add: #testDebuggerTempAccess; add: #testOptimizedBlockLocalNilling1; add: #testInlineBlockCollectionEM1; add: #testInlineBlockCollectionLR2; add: #testSourceRangeAccessForBlueBookLongFormInjectInto; add: #testMethodAndNodeTempNames; add: #testOptimizedBlockLocalNilling2; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ClosureTests classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMethodArgument; add: #testWhileModificationAfter; add: #testWhileWithTempIsNil; add: #testBlockTemp; add: #testWhileWithTemp; add: #testWhileModificationAfterNotInlined; add: #testToDoOutsideTemp; add: #testWhileModificationBeforeNotInlined; add: #testToDoOutsideTempNotInlined; add: #testMethodTemp; add: #testToDoArgumentNotInlined; add: #testToDoInsideTemp; add: #testToDoInsideTempNotInlined; add: #testWhileWithTempNotInlined; add: #testToDoArgument; add: #testWhileModificationBefore; add: #testCopyNonLocalReturn; add: #testBlockArgument; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: CompilerExceptionsTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testUndefinedVariable; add: #testUnusedVariable; add: #testUndeclaredVariable; add: #testUnknownSelector; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: CompilerTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testToDoModifiesTheLimit; add: #testNegativeNumbers; add: #testScaledDecimalLiterals; add: #testBinarySelectorWithMinus; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ContextCompilationTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testVariablesAndOffsetsDo; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: DecompilerTests classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testDecompileLoopWithMovingLimit; add: #testDecompilerInClassesSNtoSZ; add: #testDecompilerInClassesMAtoMM; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDecompilerInClassesXAtoXM; add: #testDecompilerInClassesONtoOZ; add: #testDecompilerInClassesUAtoUM; add: #testDecompilerInClassesLNtoLZ; add: #testDecompilerInClassesRAtoRM; add: #testDecompilerInClassesINtoIZ; add: #testDecompilerInClassesEAtoEM; add: #testDecompilerInClassesBAtoBM; add: #testDecompilerInClassesYNtoYZ; add: #testDecompilerInClassesVNtoVZ; add: #testDecompilerInClassesYAtoYM; add: #testDecompilerInClassesPNtoPZ; add: #testDecompilerInClassesOAtoOM; add: #testDecompilerInClassesFNtoFZ; add: #testDecompilerInClassesLAtoLM; add: #testDecompilerInClassesCNtoCZ; add: #testDecompilerInClassesIAtoIM; add: #testDecompilerInClassesFAtoFM; add: #testDecompilerInClassesCAtoCM; add: #testDecompilerInClassesZNtoZZ; add: #testDecompilerInClassesWNtoWZ; add: #testDecompilerInClassesVAtoVM; add: #testDecompilerInClassesMNtoMZ; add: #testDecompilerInClassesSAtoSM; add: #testDecompilerInClassesJNtoJZ; add: #testDecompilerInClassesPAtoPM; add: #testDecompilerInClassesGNtoGZ; add: #testDecompilerInClassesDNtoDZ; add: #testDecompilerInClassesTNtoTZ; add: #testDecompilerInClassesZAtoZM; add: #testDecompilerInClassesQNtoQZ; add: #testDecompilerInClassesWAtoWM; add: #testDecompilerInClassesNNtoNZ; add: #testDecompilerInClassesTAtoTM; add: #testDecompilerInClassesKNtoKZ; add: #testDecompilerInClassesJAtoJM; add: #testDecompilerInClassesANtoAZ; add: #testDecompilerInClassesGAtoGM; add: #testRemoteTemp; add: #testDecompilerInClassesDAtoDM; add: #testDecompilerInClassesAAtoAM; add: #testDecompilerInClassesXNtoXZ; add: #testDecompilerInClassesUNtoUZ; add: #testDecompilerInClassesQAtoQM; add: #testDecompilerInClassesHNtoHZ; add: #testDecompilerInClassesNAtoNM; add: #testDecompilerInClassesENtoEZ; add: #testDecompilerInClassesKAtoKM; add: #testDecompilerInClassesBNtoBZ; add: #testDecompilerInClassesHAtoHM; add: #testDecompilerInClassesRNtoRZ; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: DictionaryIntegrityTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDictionaries; add: #testMethodDictionaries; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: DosFileDirectoryTests classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testFileDirectoryContainingDirectory; add: #testFileDirectoryContainingDirectoryExistence; add: #testFileDirectoryExists; add: #testFileDirectoryEntryFor; add: #testFileDirectoryRootExistence; add: #testIsDriveForDrive; add: #testFileDirectoryNamed; add: #testFileDirectoryNonExistence; add: #testFullNameFor; add: #testIsDriveForShare; add: #testFileDirectoryDirectoryEntry; add: #testFileDirectoryLocalName; add: #testFileDirectoryContainingEntry; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: EventManagerTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testNoValueSupplierHasArguments; add: #testBlockReceiverTwoArgs; add: #testNoArgumentEvent; add: #testBlockReceiverOneArg; add: #testRemoveActionsWithReceiver; add: #testTwoArgumentEvent; add: #testNoArgumentEventDependentSuppliedArguments; add: #testClassComment; add: #testMultipleValueSuppliersEventHasArguments; add: #testOneArgumentEvent; add: #testUnCategorizedMethods; add: #testBlockReceiverNoArgs; add: #testNoArgumentEventDependentSuppliedArgument; add: #testReturnValueWithManyListeners; add: #testReturnValueWithNoListeners; add: #testCopy; add: #testNoValueSupplier; add: #testRemoveActionsForEvent; add: #testRemoveActionsTwiceForEvent; add: #testCoverage; add: #testNew; add: #testMultipleValueSuppliers; add: #testReturnValueWithOneListener; add: #testSingleValueSupplier; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ExceptionTests classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSimpleRetry; add: #testSimpleOuter; add: #testResumableFallOffTheEndHandler; add: #testHandlerReentrancy; add: #testSimplePass; add: #testTimeoutWithZeroDuration; add: #testSimpleResignalAs; add: #testNoTimeout; add: #testNonResumableOuter; add: #testSimpleIsNested; add: #testNonResumablePass; add: #testDoubleResume; add: #testResumablePass; add: #testNonResumableFallOffTheEndHandler; add: #testDoubleOuterPass; add: #testSimpleEnsure; add: #testSignalFromHandlerActionTest; add: #testSimpleEnsureTestWithUparrow; add: #testSimpleRetryUsing; add: #testResumableOuter; add: #testDoublePassOuter; add: #testSimpleReturn; add: #testSimpleEnsureTestWithError; add: #testSimpleResume; add: #testSimpleEnsureTestWithNotification; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ExpandedSourceFileArrayTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testAddressRange; add: #testFileIndexFromSourcePointer; add: #testSourcePointerFromFileIndexAndPosition; add: #testCompatibilityWithStandardSourceFileArray; add: #testChangesFileAddressRange; add: #testSourcesFileAddressRange; add: #testFilePositionFromSourcePointer; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: FileDirectoryTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testOldFileOrNoneNamed; add: #testEquality; add: #testNonExistentDirectory; add: #testDeleteDirectory; add: #testDirectoryNamed; add: #testExists; add: #testNew; add: #testDirectoryExists; add: #testUnCategorizedMethods; add: #testClassComment; add: #testAttemptExistenceCheckWhenFile; add: #testCoverage; add: #testDirectoryExistsWhenLikeNamedFileExists; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: FileStreamTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testNextLine; add: #testNew; add: #testCoverage; add: #testReadIntoStartingAtCount; add: #testClassComment; add: #testNextChunkOutOfBounds; add: #testPositionPastEndIsAtEnd; add: #testCachingNextChunkPut; add: #testUnCategorizedMethods; add: #testFileTruncation; add: #testDetectFileDo; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: FlapTabTests classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testFlapTabRecusion; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: HandBugs classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testTargetPoint; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: HashAndEqualsTestCase classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testHash; add: #testEquality; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: HashTesterTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testBasicBehaviour; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: HashedCollectionIntegrityTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testCapacity; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: HexTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testStringAsHex; add: #testIntegerHex; add: #testCharacterHex; add: #testColorPrintHtmlString; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: IslandVMTweaksTestCase classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testEmptyReplace; add: #testFlagInCompiledMethod; add: #testForgivingPrims; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: LangEnvBugs classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testIsFontAvailable; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: LocaleTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testIsFontAvailable; add: #testEncodingName; add: #testLocaleChanged; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCAncestryTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testPathToMissingAncestor; add: #testLinearPath; add: #testDescendants; add: #testCommonAncestors; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCChangeNotificationTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testCoreMethodModified; yourself)); add: (#errors->((Set new) add: #testExtMethodModified; yourself)); add: (#passed->((Set new) add: #testForeignMethodModified; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCClassDefinitionTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDefinitionString; add: #testEquals; add: #testCannotLoad; add: #testEqualsSensitivity; add: #testKindOfSubclass; add: #testComparison; add: #testLoadAndUnload; add: #testCreation; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCDependencySorterTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSimpleOrdering; add: #testUnusedAlternateProvider; add: #testCycle; add: #testSimpleUnresolved; add: #testCascadingUnresolved; add: #testExtraProvisions; add: #testMultiRequirementOrdering; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCDictionaryRepositoryTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testCreationMethods; add: #testStoreAndLoad; add: #testAddAndLoad; add: #testIncludesName; add: #testLoadMissingNode; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCDirectoryRepositoryTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testCreationMethods; add: #testStoreAndLoad; add: #testAddAndLoad; add: #testIncludesName; add: #testLoadMissingNode; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCFileInTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testStWriter; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new))); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCInitializationTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testWorkingCopy; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCMczInstallerTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testInstallFromFile; add: #testInstallFromStream; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCMergingTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testLocalRemoveRemoteModify; add: #testMultiPackageMerge; add: #testMultiPackageMerge2; add: #testMultipleConflicts; add: #testSubtractiveConflictlessMerge; add: #testMultiPackageMerge3; add: #testSimultaneousRemove; add: #testSimultaneousModification; add: #testComplexConflictlessMerge; add: #testLocalModifyRemoteRemove; add: #testAdditiveConflictlessMerge; add: #testIdenticalModification; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCMethodDefinitionTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testRevertOverrideMethod; add: #testCannotLoad; add: #testLoadAndUnload; add: #testComparison; add: #testRevertOldMethod; add: #testPartiallyRevertOverrideMethod; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! > > Item was changed: > ----- Method: MCMethodDefinitionTest>>override (in category 'mocks') ----- > override ^ 1! > > Item was changed: > ----- Method: MCMockClassA>>a (in category 'numeric') ----- > a > + ^ 'a1'! > - ^ 'a2'! > > Item was changed: > ----- Method: MCMockClassA>>b (in category 'numeric') ----- > b > + ^ 'b'! > - ^ 'b1'! > > Item was changed: > + ----- Method: MCMockClassA>>d (in category 'numeric') ----- > - ----- Method: MCMockClassA>>d (in category 'as yet classified') ----- > d > + ^ 'd1'! > - ^ 'd'! > > Item was changed: > ----- Method: MCMockClassA>>one (in category 'numeric') ----- > one > + ^ 2! > - ^ 1! > > Item was changed: > + ----- Method: MCMockClassA>>truth (in category 'numeric') ----- > - ----- Method: MCMockClassA>>truth (in category 'boolean') ----- > truth > + ^ false! > - ^ true! > > Item was changed: > ----- Method: MCMockClassA>>two (in category 'numeric') ----- > two > + ^ 3! > - ^ 2! > > Item was added: > + ----- Method: MCOrganizationTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testReordering; add: #testReorderingWithRemovals; add: #testReorderingWithNoCategoriesInVersion; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCPackageTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testUnload; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new))); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCPatchTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testPatchContents; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new))); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCScannerTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #test6; add: #test4; add: #test2; add: #test5; add: #test3; add: #test1; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCSerializationTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMcdSerialization; add: #testStSerialization; add: #testMczSerialization; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCSnapshotBrowserTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testNoSelection; yourself)); add: (#errors->((Set new) add: #testMethodSelected; add: #testProtocolSelected; add: #testCategorySelected; add: #testClassSideClassSelected; add: #testClassSelected; add: #testComment; add: #testProtocolIsCleared; add: #testMethodIsCleared; yourself)); add: (#passed->((Set new) add: #testFourColumns; add: #testThreeButtons; add: #testTextPane; add: #testAnnotationPane; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCSnapshotTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testCreation; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testInstanceReuse; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCSortingTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testConsistentSorting; add: #testSortOrder; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCStReaderTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMethodWithStyle; add: #testCommentWithoutStyle; add: #testCommentWithStyle; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCStWriterTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testOrganizationDefinition; yourself)); add: (#errors->((Set new) add: #testInitializerDefinition; yourself)); add: (#passed->((Set new) add: #testClassDefinitionA; add: #testMethodDefinition; add: #testClassMethodDefinition; add: #testMethodDefinitionWithBangs; add: #testClassDefinitionB; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCVersionTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testWithAllUnresolved; add: #testWithAllMissing; add: #testPostOrder; add: #testAllAvailablePostOrder; add: #testAllUnresolved; add: #testAllMissing; add: #testDependencyOrder; add: #testWithAll; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MCWorkingCopyTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testSimpleMerge; add: #testBackport; add: #testSelectiveBackport; add: #testOptimizedLoad; add: #testSnapshotAndLoad; add: #testRepeatedMerge; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testAncestorMerge; add: #testMergeIntoImageWithNoChanges; add: #testMergeIntoUnmodifiedImage; add: #testDoubleRepeatedMerge; add: #testRedundantMerge; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MacFileDirectoryTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMakeAbsolute; add: #testMacFileDirectory; add: #testMacIsAbsolute; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MethodHighlightingTests classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMethodHighlighting; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MirrorPrimitiveTests classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testMirrorInstVarAt; add: #testMirrorAt; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMirrorClass; add: #testMirrorEqEq; add: #testMirrorSize; add: #testMirrorPerform; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: MorphicUIBugTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testShowAllBinParts; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testUIManagerNoAcceptInitially; add: #testOpenWorkspace; add: #testOpenWorkspaceAns; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ObjectFinalizerTests classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testFinalization; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: PCCByCompilationTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMethodsWithEnabledCall; add: #testDisableCallsIntoModuleForClasses; add: #testChangeFailedCallFailing; add: #testExistsEnabledCallIn; add: #testCoverage; add: #testExistsFailedCallIn; add: #testMethodsWithCallIntoModule; add: #testMethodsWithCallXIntoModule; add: #testEnableDisableCallInCompiledMethod; add: #testSwitchStored; add: #testMethodsWithDisabledCallX; add: #testDisableCallsIntoModule; add: #testExistsDisabledCallIn; add: #testMethodsWithCallX; add: #testMethodsWithCallIntoModuleForClass; add: #testClassComment; add: #testMethodsWithEnabledCallIntoModuleForClass; add: #testMethodsWithEnabledCallIntoModuleForClasses; add: #testSwitchPrimCallOffOn; add: #testUnCategorizedMethods; add: #testTryCaches; add: #testMethodsWithCallAndMethodsWithDisabledCall; add: #testMethodsWithDisabledCallIntoModuleForClass; add: #testChangeFailedCallSucceedingEnable; add: #testMethodsWithEnabledCallX; add: #testMethodsWithFailedCall; add: #testMethodsWithEnabledCallXIntoModule; add: #testEnableDisableCallIn; add: #testChangeFailedCallSucceedingDisable; add: #testMethodsWithDisabledCallIntoModule; add: #testExistsCallIn; add: #testMethodsWithDisabledCallIntoModuleForClasses; add: #testMethodsWithCallIntoModuleForClasses; add: #testMethodsWithEnabledCallIntoModule; add: #testNew; add: #testEnableDisableCallInMethodClass; add: #testMethodsWithFailedCallIntoModuleForClass; add: #testMethodsWithDisabledCallXIntoModule; add: #testMethodsWithFailedCallForClass; add: #testMethodsWithFailedCallIntoModule; add: #testEnableCallsIntoModuleForClasses; add: #testEnableCallsIntoModule; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was changed: > ----- Method: PCCByCompilationTest>>cExternalCall1 (in category 'example module') ----- > cExternalCall1 > <primitive: 'prim1' module: 'CPCCT'> > ! > > Item was changed: > ----- Method: PCCByCompilationTest>>cExternalCall2 (in category 'example module') ----- > cExternalCall2 > <primitive:'prim2'module:'CPCCT'> > self primitiveFailed! > > Item was changed: > ----- Method: PCCByCompilationTest>>cFailedCall (in category 'test methods') ----- > cFailedCall > <primitive: 'primGetModuleName' module:'CFailModule'> > ^ 'failed call'! > > Item was changed: > ----- Method: PCCByCompilationTest>>cRealExternalCallOrPrimitiveFailed (in category 'test methods') ----- > cRealExternalCallOrPrimitiveFailed > <primitive: 'primGetModuleName' module:'LargeIntegers'> > self primitiveFailed! > > Item was added: > + ----- Method: PCCByLiteralsTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMethodsWithEnabledCall; add: #testDisableCallsIntoModuleForClasses; add: #testChangeFailedCallFailing; add: #testExistsEnabledCallIn; add: #testCoverage; add: #testExistsFailedCallIn; add: #testMethodsWithCallIntoModule; add: #testMethodsWithCallXIntoModule; add: #testEnableDisableCallInCompiledMethod; add: #testSwitchStored; add: #testMethodsWithDisabledCallX; add: #testDisableCallsIntoModule; add: #testExistsDisabledCallIn; add: #testMethodsWithCallX; add: #testMethodsWithCallIntoModuleForClass; add: #testClassComment; add: #testMethodsWithEnabledCallIntoModuleForClass; add: #testMethodsWithEnabledCallIntoModuleForClasses; add: #testSwitchPrimCallOffOn; add: #testUnCategorizedMethods; add: #testTryCaches; add: #testMethodsWithCallAndMethodsWithDisabledCall; add: #testMethodsWithDisabledCallIntoModuleForClass; add: #testChangeFailedCallSucceedingEnable; add: #testMethodsWithEnabledCallX; add: #testMethodsWithFailedCall; add: #testMethodsWithEnabledCallXIntoModule; add: #testEnableDisableCallIn; add: #testChangeFailedCallSucceedingDisable; add: #testMethodsWithDisabledCallIntoModule; add: #testExistsCallIn; add: #testMethodsWithDisabledCallIntoModuleForClasses; add: #testMethodsWithCallIntoModuleForClasses; add: #testMethodsWithEnabledCallIntoModule; add: #testNew; add: #testEnableDisableCallInMethodClass; add: #testMethodsWithFailedCallIntoModuleForClass; add: #testMethodsWithDisabledCallXIntoModule; add: #testMethodsWithFailedCallForClass; add: #testMethodsWithFailedCallIntoModule; add: #testEnableCallsIntoModuleForClasses; add: #testEnableCallsIntoModule; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: PackageDependencyTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSound; add: #testToolBuilderMorphic; add: #testNebraska; add: #testShoutCore; add: #testVersionNumber; add: #testExceptions; add: #testCompression; add: #testMultilingual; add: #testST80; add: #testInstaller; add: #testEtoys; add: #testProtocols; add: #testSUnit; add: #testGraphics; add: #testToolBuilder; add: #testXML; add: #testKernel; add: #testTrueType; add: #testPackageInfo; add: #testTraits; add: #testBalloon; add: #testCompiler; add: #testMorphicExtras; add: #testNetwork; add: #testFiles; add: #testCollections; add: #testPreferenceBrowser; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was changed: > ----- Method: PackageDependencyTest>>testMonticello (in category 'tests') ----- > testMonticello > self testPackage: 'Monticello' dependsExactlyOn: #( > Collections > Compiler > Compression > Exceptions > Files > Graphics > Kernel > Morphic > Network > + 'PackageInfo-Base' > - PackageInfo > System > Tests > 'ToolBuilder-Kernel' > 'ToolBuilder-Morphic' > Tools > ).! > > Item was changed: > ----- Method: PackageDependencyTest>>testMorphic (in category 'tests') ----- > testMorphic > self testPackage: 'Morphic' dependsExactlyOn: #( > Balloon > Collections > Compiler > EToys > Exceptions > Files > Graphics > Kernel > Monticello > MonticelloConfigurations > - 'Morphic-TrueType' "????" > MorphicExtras > Multilingual > Network > ST80 > Sound > System > 'ToolBuilder-Kernel' > 'ToolBuilder-Morphic' > Tools > TrueType > ).! > > Item was changed: > ----- Method: PackageDependencyTest>>testSUnitGUI (in category 'tests') ----- > testSUnitGUI > self testPackage: 'SUnitGUI' dependsExactlyOn: #( > Collections > Graphics > Kernel > + 'PackageInfo-Base' > - PackageInfo > SUnit > System > 'ToolBuilder-Kernel' > Tools > ).! > > Item was changed: > ----- Method: PackageDependencyTest>>testServices (in category 'tests') ----- > testServices > self testPackage: 'Services-Base' dependsExactlyOn: #( > Collections > Compiler > Exceptions > Graphics > Kernel > Morphic > + 'PackageInfo-Base' > - PackageInfo > PreferenceBrowser > System > 'ToolBuilder-Kernel' > Tools > ).! > > Item was changed: > ----- Method: PackageDependencyTest>>testSystem (in category 'tests') ----- > testSystem > self testPackage: 'System' dependsExactlyOn: #( > Collections > Balloon > Compiler > Compression > Exceptions > Files > Graphics > Kernel > Monticello > MonticelloConfigurations > Morphic > MorphicExtras > Multilingual > Network > + 'PackageInfo-Base' > - PackageInfo > Sound > 'ToolBuilder-Kernel' > Tools > TrueType > ).! > > Item was changed: > ----- Method: PackageDependencyTest>>testToolBuilderMVC (in category 'tests') ----- > testToolBuilderMVC > self testPackage: 'ToolBuilder-MVC' dependsExactlyOn: #( > Collections > Exceptions > Graphics > ST80 > - ToolBuilder > 'ToolBuilder-Kernel' > Tools > ).! > > Item was changed: > ----- Method: PackageDependencyTest>>testToolBuilderSUnit (in category 'tests') ----- > testToolBuilderSUnit > self testPackage: 'ToolBuilder-SUnit' dependsExactlyOn: #( > Collections > Kernel > - ToolBuilder > 'ToolBuilder-Kernel' > ).! > > Item was changed: > ----- Method: PackageDependencyTest>>testTools (in category 'tests') ----- > testTools > self testPackage: 'Tools' dependsExactlyOn: #( > Collections > Compiler > Compression > Exceptions > Files > Graphics > Kernel > Morphic > MorphicExtras > Multilingual > Network > + 'PackageInfo-Base' > - PackageInfo > ST80 > System > 'ToolBuilder-Kernel' > ).! > > Item was added: > + ----- Method: ProcessTerminateBug classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testUnwindFromActiveProcess; add: #testSchedulerTermination; add: #testUnwindFromForeignProcess; add: #testTerminationDuringUnwind; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ReleaseTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSuperSubclassReferences; add: #testSystemCategoryClasses; add: #testSwapMouseButtonsPreference; add: #testClassesSystemCategory; add: #testUndeclared; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: RenderBugz classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSetHeading; add: #testSetForward; add: #testHeading; add: #testForward; add: #testTestTime; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: ScannerTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testLiteralSymbols; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: SecureHashAlgorithmTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testExample3; add: #testNew; add: #testCoverage; add: #testClassComment; add: #testExample1; add: #testUnCategorizedMethods; add: #testExample2; add: #testEmptyInput; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: SmalltalkImageTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testImageName; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: StandardSourceFileArrayTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testAddressRange; add: #testFileIndexFromSourcePointer; add: #testSourcePointerFromFileIndexAndPosition; add: #testChangesFileAddressRange; add: #testSourcesFileAddressRange; add: #testFilePositionFromSourcePointer; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: StandardSystemFontsTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new) add: #testRestoreDefaultFonts; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new))); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: StickynessBugz classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testForTiltedStickyness; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: StreamBugz classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testReadWriteStreamNextNBug; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: SumBugs classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSummingToWhite; add: #testSummingWithWhite; add: #testSummingToTen; add: #testSummingWithBlack; add: #testSummingColors; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: SystemOrganizerTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testAccessGlobalDirectly; add: #testAccessGlobalThroughClass; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: SystemVersionTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMajorMinorVersion; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: TestObjectsAsMethods classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDNU; add: #testAnswer42; add: #testAddNumbers; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: TestValueWithinFix classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testValueWithinNonLocalReturnFixSimply; add: #testValueWithinNonLocalReturnFixReal; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: TextDiffBuilderTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testEmptyLcs1; add: #testIfSequence6; add: #testIfSequence3; add: #testSameSequenceWithRepetitions; add: #testEmptyLcs3; add: #testIfSequence5; add: #testIfSequence2; add: #testEmptySequences; add: #testEmptyLcs2; add: #testIfPatchIsMinimal; add: #testSameSequence; add: #testIfSequence4; add: #testIfSequence1; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: UnimplementedCallBugz classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testPolyIntersect; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > Item was added: > + ----- Method: Win32VMTest classSide>>lastStoredRun (in category 'history') ----- > + lastStoredRun > + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testWinVM3ButtonMousePreference; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! > > >

4 10

Updating from trunk gets stuck forever at "Initializing ReleaseBuilder-cmm.51
by Casimiro de Almeida Barreto 06 Jan '11

06 Jan '11

Ok, it's generating a SequeakDebug.log (though no debug browser opens) with: [] in WorldState>>displayWorldSafeles: subscript is out of bounds: 513' BlockClosure>>ermultiCanvas: nil669hicAlarmQueue()oryAt: -> a PluggableSystemWindow(2972))(a Plugg...etc... [] in BlReceiverouterContext: riWorldState>>displayWorldSafely:fely:ounds: 513 <<error Receiverreceiver: il: ri[closure]sure>>#on:do: "a CompiledMethod(1880)") MethodCoReceiversender: nce variBlockClosure>>ifEis out of bounds: 513al:handleSignal: Error(ExArgumentsignalerText: y 'subscript i bounds: 513:do: 513'orldSafely:0)") Bitmap(OReect)>>at:put:ance variables: es: is out of bounds: 513' SortedCoReceiver: a SortedCollection(0.0->Color white 0.0->(lor r: 1.0 g: 1.0 b: 1.0) . 1.0->(Color ...etc... <<error Receivercormal: n: variniles: es: n GradientFillStyle>>computePixelRampOfSize:olor r: 1...etc... [] in GrReceiverorganization: le('access#('colorRamp' 'pixelRamp' 'radial' 'isTranslucent')ientFill...etc... LRUCacheArgumentelement: 0.0->Co{{0.0->(Color r: 1.0 g: 1.0 b: 1.0) . 1.0->() . 1.0->(Color r: 1....etc...... GradientReceiverisTran: p: varinil0->Color white . 0.0->(Color r: 1.0 g: 1.0 b: 1.0) . 1.0->(Color ...etc...... GraCache>>at:tFillStyle class>>initPixelRampCache [] in PluggableSystemWindow(Morph)>>flStyle:borderStyle:or:ransform: FormCanvas>>roundCornersOf:ind:submorphs:easOn:easOn:easOn:erWidth:corners: [] in BlockClosure>>newProcessrocess:ding: An interesting thing is that squeak keeps building & destroying SqueakDebug.log (meaning, when I follow the file it gets emptied & filled again with same content). -------- Mensagem original -------- Assunto: Updating from trunk gets stuck forever at "Initializing ReleaseBuilder-cmm.51 Data: Wed, 05 Jan 2011 16:41:26 -0200 De: Casimiro de Almeida Barreto <casimiro.barreto(a)gmail.com> Para: The general-purpose Squeak developers list <squeak-dev(a)lists.squeakfoundation.org> I got a couple of trunk images about 3 weeks old. When I update both images get stuck at "Initializing ReleaseBuilder-cmm.51". No use doing Alt+. Progress bar stuck at 0% Processor usage (single core) > 90% almost all all the time. PID USER PR NI VIRT RES SHR S %CPU %MEM TIME+ COMMAND 27935 casimiro 20 0 1037m 143m 2884 R 96.4 7.3 7:00.37 squeakvm 1736 root 20 0 113m 40m 18m S 5.7 2.1 6:00.59 X 2402 casimiro 9 -11 160m 5056 3976 S 3.8 0.3 3:38.41 pulseaudio

3 6

The Inbox: Collections-mtf.420.mcz
by commits＠source.squeak.org 06 Jan '11

06 Jan '11

Matthew Fulmer uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-mtf.420.mcz ==================== Summary ==================== Name: Collections-mtf.420 Author: mtf Time: 6 January 2011, 2:14:56.298 pm UUID: adc5fe75-18ce-4e64-976a-54f588e2f8af Ancestors: Collections-mtf.419 support methods with positional arguments. Needed by OpenGL in Croquet =============== Diff against Collections-mtf.419 =============== Item was changed: ----- Method: String>>numArgs (in category 'system primitives') ----- + numArgs - numArgs "Answer either the number of arguments that the receiver would take if considered a selector. Answer -1 if it couldn't be a selector. Note that currently this will answer -1 for anything begining with an uppercase letter even though the system will accept such symbols as selectors. It is intended mostly for the assistance of spelling correction." | firstChar numColons excess start ix | self size = 0 ifTrue: [^ -1]. firstChar := self at: 1. (firstChar isLetter or: [firstChar = $:]) ifTrue: + [(ix := self findString: '()/') > 0 ifTrue: [ + "positional keyword selector" + (self copyFrom: 1 to: ix-1) numArgs = 0 ifFalse: [^ -1]. "fast check that the name portion of the selector is valid" + ^ Number readFrom: (self copyFrom: ix+3 to: self size) ifFail: [-1]]. + + "Fast reject if any chars are non-alphanumeric - ["Fast reject if any chars are non-alphanumeric NOTE: fast only for Byte things - Broken for Wide" self class isBytes ifTrue: [(self findSubstring: '~' in: self startingAt: 1 matchTable: Tokenish) > 0 ifTrue: [^ -1]] ifFalse: [2 to: self size do: [:i | (self at: i) tokenish ifFalse: [^ -1]]]. "Fast colon count" numColons := 0. start := 1. [(ix := self indexOf: $: startingAt: start) > 0] whileTrue: [numColons := numColons + 1. start := ix + 1]. numColons = 0 ifTrue: [^ 0]. firstChar = $: ifTrue: [excess := 2 "Has an initial keyword, as #:if:then:else:"] ifFalse: [excess := 0]. self last = $: ifTrue: [^ numColons - excess] ifFalse: [^ numColons - excess - 1 "Has a final keywords as #nextPut::andCR"]]. firstChar isSpecial ifTrue: [self size = 1 ifTrue: [^ 1]. 2 to: self size do: [:i | (self at: i) isSpecial ifFalse: [^ -1]]. ^ 1]. + ^ -1. + ! - ^ -1.!

1 0

The Inbox: Compiler-mtf.184.mcz
by commits＠source.squeak.org 06 Jan '11

06 Jan '11

Matthew Fulmer uploaded a new version of Compiler to project The Inbox: http://source.squeak.org/inbox/Compiler-mtf.184.mcz ==================== Summary ==================== Name: Compiler-mtf.184 Author: mtf Time: 6 January 2011, 2:14:13.972 pm UUID: 59cf24c3-ab24-450b-b00a-152363bb2391 Ancestors: Compiler-mtf.136, Compiler-nice.183 support methods with positional arguments. Needed by OpenGL in Croquet =============== Diff against Compiler-nice.183 =============== Item was added: + ----- Method: Parser>>matrixExpression: (in category 'expression types') ----- + matrixExpression: primary + "primaryExpression [ ... ] -> index node" + | start rcvrNode selector args msgStart msgStop | + self primaryExpression ifFalse:[^false]. + (hereType == #leftBracket) ifFalse:[^primary]. + start := self startOfNextToken. + rcvrNode := parseNode. + selector := WriteStream on: (String new: 32). + args := OrderedCollection new. + [ self advance. + parseNode := nil. + self primaryExpression ifFalse:[^self expected:'expression']. + args size = 0 + ifTrue:[selector nextPutAll:'matrixAt:'] + ifFalse:[selector nextPutAll:'at:']. + args add: parseNode. + here == #, ] whileTrue. + (self match: #rightBracket) ifFalse:[^self expected:']']. + + msgStart := start. + msgStop := self endOfLastToken. + (primary not and:[hereType == #leftArrow]) ifTrue:[ + selector nextPutAll:'put:'. + start := self startOfNextToken. + self advance. + self expression ifFalse: [^self expected: 'Expression']. + (parseNode isKindOf: BlockNode) ifFalse:[ + parseNode := BlockNode new + arguments: #() + statements: (OrderedCollection with: parseNode) + returns: false + from: encoder. + ]. + args add: parseNode]. + parseNode := MessageNode new + receiver: rcvrNode + selector: selector contents asSymbol + arguments: args + precedence: 1 + from: encoder + sourceRange: (msgStart to: msgStop). + primary ifTrue:[^true]. + (self messagePart: 3 repeat: true) + ifTrue: [hereType == #semicolon ifTrue: [self cascade]]. + ^ true! Item was changed: ----- Method: Parser>>messagePart:repeat: (in category 'expression types') ----- messagePart: level repeat: repeat + | start receiver selector args precedence words keywordStart type | - | start receiver selector args precedence words keywordStart | [receiver := parseNode. (hereType == #keyword and: [level >= 3]) ifTrue: [start := self startOfNextToken. selector := WriteStream on: (String new: 32). args := OrderedCollection new. words := OrderedCollection new. [hereType == #keyword] whileTrue: [keywordStart := self startOfNextToken + requestorOffset. selector nextPutAll: self advance. words addLast: (keywordStart to: self endOfLastToken + requestorOffset). + (self matrixExpression: true) ifFalse: [^self expected: 'Argument']. - self primaryExpression ifFalse: [^self expected: 'Argument']. self messagePart: 2 repeat: true. args addLast: parseNode]. (Symbol hasInterned: selector contents ifTrue: [ :sym | selector := sym]) ifFalse: [ selector := self correctSelector: selector contents wordIntervals: words exprInterval: (start to: self endOfLastToken) ifAbort: [ ^ self fail ] ]. precedence := 3] ifFalse: [((hereType == #binary or: [hereType == #verticalBar]) and: [level >= 2]) ifTrue: [start := self startOfNextToken. + selector := self advance asSymbol. + (self matrixExpression: true) ifFalse: [^self expected: 'Argument']. - selector := self advance asOctetString asSymbol. - self primaryExpression ifFalse: [^self expected: 'Argument']. self messagePart: 1 repeat: true. args := Array with: parseNode. precedence := 2] + ifFalse: [(hereType == #word or:[hereType == #positionalMessage]) - ifFalse: [hereType == #word ifTrue: [start := self startOfNextToken. + type := hereType. selector := self advance. + type == #word ifTrue:[ + args := #(). + ] ifFalse:[ + args := self positionalArgs. + selector := selector,'/', args size printString. + ]. - args := #(). words := OrderedCollection with: (start + requestorOffset to: self endOfLastToken + requestorOffset). (Symbol hasInterned: selector ifTrue: [ :sym | selector := sym]) ifFalse: [ selector := self correctSelector: selector wordIntervals: words exprInterval: (start to: self endOfLastToken) ifAbort: [ ^ self fail ] ]. precedence := 1] ifFalse: [^args notNil]]]. parseNode := MessageNode new receiver: receiver selector: selector arguments: args precedence: precedence from: encoder sourceRange: (start to: self endOfLastToken). repeat] whileTrue: []. + ^true + ! - ^true! Item was added: + ----- Method: Parser>>positionalArgs (in category 'positional messages') ----- + positionalArgs + "Parse a series of positional arguments, separated by comma." + | args | + (hereType == #rightParenthesis) ifTrue:[self advance. ^#()]. + args := WriteStream on: (Array new: 3). + [ + self positionalArgsExpression ifFalse:[^self expected: 'argument']. + args nextPut: parseNode. + hereType == #rightParenthesis ifTrue:[self advance. ^args contents]. + here == #, ifFalse:[^self expected: 'comma']. + self advance. + ] repeat. + ! Item was added: + ----- Method: Parser>>positionalArgsExpression (in category 'positional messages') ----- + positionalArgsExpression + "Just like #expression just keep track of commas" + (hereType == #word and: [tokenType == #leftArrow]) + ifTrue: [^ self assignment: self variable]. + hereType == #leftBrace + ifTrue: [self braceExpression] + ifFalse: [self primaryExpression ifFalse: [^ false]]. + (here == #, or:[hereType == #rightParenthesis]) ifTrue:[^true]. + ^self positionalMessagePart: 3 repeat: true! Item was added: + ----- Method: Parser>>positionalMessagePart:repeat: (in category 'positional messages') ----- + positionalMessagePart: level repeat: repeat + "Just like #messagePart but keep track of comma" + | start receiver selector args precedence words keywordStart type | + [receiver := parseNode. + (hereType == #keyword and: [level >= 3]) + ifTrue: + [start := self startOfNextToken. + selector := WriteStream on: (String new: 32). + args := OrderedCollection new. + words := OrderedCollection new. + [hereType == #keyword] + whileTrue: + [keywordStart := self startOfNextToken + requestorOffset. + selector nextPutAll: self advance. + words addLast: (keywordStart to: self endOfLastToken + requestorOffset). + self primaryExpression ifFalse: [^self expected: 'Argument']. + self messagePart: 2 repeat: true. + args addLast: parseNode]. + (Symbol hasInterned: selector contents ifTrue: [ :sym | selector := sym]) + ifFalse: [ selector := self correctSelector: selector contents + wordIntervals: words + exprInterval: (start to: self endOfLastToken) + ifAbort: [ ^ self fail ] ]. + precedence := 3] + ifFalse: [((hereType == #binary or: [hereType == #verticalBar]) + and: [level >= 2 and:[here ~= #,]]) + ifTrue: + [start := self startOfNextToken. + selector := self advance asSymbol. + self primaryExpression ifFalse: [^self expected: 'Argument']. + self messagePart: 1 repeat: true. + args := Array with: parseNode. + precedence := 2] + ifFalse: [(hereType == #word or:[hereType == #positionalMessage]) + ifTrue: + [start := self startOfNextToken. + type := hereType. + selector := self advance. + type == #word ifTrue:[ + args := #(). + ] ifFalse:[ + args := self positionalArgs. + selector := selector,'/', args size printString. + ]. + words := OrderedCollection with: (start + requestorOffset to: self endOfLastToken + requestorOffset). + (Symbol hasInterned: selector ifTrue: [ :sym | selector := sym]) + ifFalse: [ selector := self correctSelector: selector + wordIntervals: words + exprInterval: (start to: self endOfLastToken) + ifAbort: [ ^ self fail ] ]. + precedence := 1] + ifFalse: [^args notNil]]]. + parseNode := MessageNode new + receiver: receiver + selector: selector + arguments: args + precedence: precedence + from: encoder + sourceRange: (start to: self endOfLastToken). + repeat] + whileTrue: []. + ^true!

1 0

← Newer
1
...
30
31
32
33
34
35
36
37
38
Older →

Jump to page: