Squeak-dev April 2016

squeak-dev@lists.squeakfoundation.org

39 participants
244 discussions

Daily Commit Log
by commits＠source.squeak.org 04 Apr '16

04 Apr '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-April/009535.html Name: ST80Tests-ul.3 Ancestors: ST80Tests-nice.2 - noted the dependency on Chronology-Core =============================================

1 0

Discard the event tickler process?
by marcel.taeumel 04 Apr '16

04 Apr '16

Hi, there! There used to be a time, where it was userful (on some platforms) to regularly fetch events from the VM in a separate (non-UI) process. This process is called "The Event Tickler". However, the current implementation of EventSensor fetches new events in every necessary occasion. See all senders of #fetchMoreEvents. The event tickler process does nothing but automate that call to "EventSensor default fetchMoreEvents", which is not necessary. Neither for current MVC nor for Morphic. Can we get rid of that event tickler process? To try out, file-in this and save-restart the image: EventSensor-startUp.st <http://forum.world.st/file/n4888251/EventSensor-startUp.st> *** Or may there be some other reason? :-O The comment in EventSensor >> #eventTickler is not supportive and also wrong at the moment: "Poll infrequently to make sure that the UI process is not been stuck. If it has been stuck, then spin the event loop so that I can detect the interrupt key." There is no relation to the interrupt key at the moment. CMD+. works via a distinct semaphore. And there is no code that frequently tests for CMD+. in the image either. Best, Marcel -- View this message in context: http://forum.world.st/Discard-the-event-tickler-process-tp4888251.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 3

The Trunk: ST80Tests-ul.3.mcz
by commits＠source.squeak.org 04 Apr '16

04 Apr '16

Levente Uzonyi uploaded a new version of ST80Tests to project The Trunk: http://source.squeak.org/trunk/ST80Tests-ul.3.mcz ==================== Summary ==================== Name: ST80Tests-ul.3 Author: ul Time: 4 April 2016, 12:26:28.947219 am UUID: b6c621d7-736d-4e65-9c1e-4f857991d1d2 Ancestors: ST80Tests-nice.2 - noted the dependency on Chronology-Core =============== Diff against ST80Tests-nice.2 =============== Item was changed: ----- Method: ST80PackageDependencyTest>>testST80 (in category 'as yet unclassified') ----- testST80 + self testPackage: #ST80 dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'ST80' dependsExactlyOn: #( Collections Compiler Files Graphics Kernel Morphic Multilingual Network SUnit System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).!

1 0

Daily Commit Log
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-April/009529.html Name: Tools-ul.682 Ancestors: Tools-mt.681 - removed hard dependency on ShoutCore ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009530.html Name: Tests-ul.338 Ancestors: Tests-ul.337 PackageDependencyTest changes: - added Chronology-Core - use symbols for package names ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009531.html Name: Regex-Core-ul.50 Ancestors: Regex-Core-ul.49 - few more Spur-related character comparison optimizations - RxMatcher >> #atBeginningOfLine will consider lf as an end-of-line character ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009532.html Name: Monticello-ul.630 Ancestors: Monticello-mt.629 - removed hard dependency on ShoutCore ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009533.html Name: Monticello-ul.631 Ancestors: Monticello-ul.630 - fixed slip in the last change ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009534.html Name: Collections-ul.685 Ancestors: Collections-eem.684 Use Spur's new character comparison abilities in some String methods. =============================================

1 0

Re: [squeak-dev] The Inbox: Graphics-cmm.329.mcz
by Bert Freudenberg 03 Apr '16

03 Apr '16

> On 31.03.2016, at 19:43, commits(a)source.squeak.org wrote: > > A new version of Graphics was added to project The Inbox: > http://source.squeak.org/inbox/Graphics-cmm.329.mcz > > ==================== Summary ==================== > > Name: Graphics-cmm.329 > Author: cmm > Time: 31 March 2016, 2:43:44.434481 pm > UUID: a7a78301-477c-40ea-b010-c4e71c02a038 > Ancestors: Graphics-tfel.328 > > Fix the green clone halo morph for SketchMorphs to not share its underlying Form. Err. The clone handle is *supposed to* not duplicate the form. This is used a lot in Etoys. You can have many players sharing the same bitmap costume. We do *not* want to waste memory duplicating the form. While editing the sketch, we work on a copy of the form (to support canceling). If accepting the painting, *then* we set it to the new form. - Bert -

9 16

The Trunk: Collections-ul.685.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.685.mcz ==================== Summary ==================== Name: Collections-ul.685 Author: ul Time: 3 April 2016, 3:21:51.035808 am UUID: db8fd391-2306-4ccc-87d5-b5dee96a78ab Ancestors: Collections-eem.684 Use Spur's new character comparison abilities in some String methods. =============== Diff against Collections-eem.684 =============== Item was changed: ----- Method: ByteString>>findSubstring:in:startingAt:matchTable: (in category 'comparing') ----- findSubstring: key in: body startingAt: start matchTable: matchTable "Answer the index in the string body at which the substring key first occurs, at or beyond start. The match is determined using matchTable, which can be used to effect, eg, case-insensitive matches. If no match is found, zero will be returned. The algorithm below is not optimum -- it is intended to be translated to C which will go so fast that it wont matter." | index | <primitive: 'primitiveFindSubstring' module: 'MiscPrimitivePlugin'> <var: #key declareC: 'unsigned char *key'> <var: #body declareC: 'unsigned char *body'> <var: #matchTable declareC: 'unsigned char *matchTable'> key size = 0 ifTrue: [^ 0]. + matchTable ifNil: [ + start to: body size - key size + 1 do: [ :startIndex | + index := 0. + [ (body at: startIndex + index) == (key at: (index := index + 1)) ] whileTrue: [ + index = key size ifTrue: [ ^startIndex ] ] ]. + ^0 ]. (start max: 1) to: body size - key size + 1 do: [:startIndex | index := 1. [(matchTable at: (body at: startIndex+index-1) asciiValue + 1) = (matchTable at: (key at: index) asciiValue + 1)] whileTrue: [index = key size ifTrue: [^ startIndex]. index := index+1]]. ^ 0 " ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 1 matchTable: CaseSensitiveOrder 1 ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 2 matchTable: CaseSensitiveOrder 7 ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 8 matchTable: CaseSensitiveOrder 0 ' ' findSubstring: 'abc' in: 'abcdefABcd' startingAt: 2 matchTable: CaseSensitiveOrder 0 ' ' findSubstring: 'abc' in: 'abcdefABcd' startingAt: 2 matchTable: CaseInsensitiveOrder 7 "! Item was changed: ----- Method: String>>beginsWith: (in category 'testing') ----- beginsWith: sequence "Answer true if the receiver starts with the argument collection. The comparison is case-sensitive. Overridden for better performance." + | index sequenceSize | - | sequenceSize | sequence isString ifFalse: [ ^super beginsWith: sequence ]. + ((sequenceSize := sequence size) = 0 or: [ self size < sequenceSize ]) ifTrue: [ ^false ]. + index := 0. + [ (index := index + 1) <= sequenceSize ] whileTrue: [ + (sequence at: index) == (self at: index) ifFalse: [ ^false ] ]. - ((sequenceSize := sequence size) = 0 or: [ self size < sequence size ]) ifTrue: [ ^false ]. - 1 to: sequenceSize do: [ :index | - (sequence basicAt: index) = (self basicAt: index) ifFalse: [ ^false ] ]. ^true! Item was changed: ----- Method: String>>endsWith: (in category 'testing') ----- endsWith: sequence "Answer true if the receiver ends with the argument collection. The comparison is case-sensitive." + | index sequenceSize offset | - | sequenceSize offset | sequence isString ifFalse: [ ^ super endsWith: sequence ]. + ((sequenceSize := sequence size) = 0 or: [ (offset := self size - sequenceSize) < 0 ]) ifTrue: [ ^false ]. + index := 0. + [ (index := index + 1) <= sequenceSize ] whileTrue: [ + (sequence at: index) == (self at: index + offset) ifFalse: [ ^false ] ]. - ((sequenceSize := sequence size) = 0 or: [ (offset := self size - sequence size) < 0 ]) ifTrue: [ ^false ]. - 1 to: sequenceSize do: [ :index | - (sequence basicAt: index) = (self basicAt: index + offset) ifFalse: [ ^false ] ]. ^true! Item was changed: ----- Method: String>>findSubstring:in:startingAt:matchTable: (in category 'accessing') ----- findSubstring: key in: body startingAt: start matchTable: matchTable "Answer the index in the string body at which the substring key first occurs, at or beyond start. The match is determined using matchTable, which can be used to effect, eg, case-insensitive matches. If no match is found, zero will be returned." - | index c1 c2 | - matchTable == nil ifTrue: [ - key size = 0 ifTrue: [^ 0]. - start to: body size - key size + 1 do: - [:startIndex | - index := 1. - [(body at: startIndex+index-1) - = (key at: index)] - whileTrue: - [index = key size ifTrue: [^ startIndex]. - index := index+1]]. - ^ 0 - ]. + | index c1 c2 keySize matchTableSize | + (keySize := key size) = 0 ifTrue: [ ^0 ]. + matchTable ifNil: [ + start to: body size - key size + 1 do: [ :startIndex | + index := 0. + [ (body at: startIndex + index) == (key at: (index := index + 1)) ] whileTrue: [ + index = keySize ifTrue: [ ^startIndex ] ] ]. + ^0 ]. + matchTableSize := matchTable size. + start to: body size - key size + 1 do: [ :startIndex | + index := 0. + [ + (c1 := (body at: startIndex + index) asInteger + 1) <= matchTableSize ifTrue: [ + c1 := matchTable at: c1 ]. + (c2 := (key at: (index := index + 1)) asInteger + 1) <= matchTableSize ifTrue: [ + c2 := matchTable at: c2 ]. + c1 = c2 ] + whileTrue: [ + index = keySize ifTrue: [ ^startIndex ] ] ]. + ^0! - key size = 0 ifTrue: [^ 0]. - start to: body size - key size + 1 do: - [:startIndex | - index := 1. - [c1 := body at: startIndex+index-1. - c2 := key at: index. - ((c1 leadingChar = 0 and: [ c1 asciiValue < matchTable size ]) - ifTrue: [ matchTable at: c1 asciiValue + 1 ] - ifFalse: [ c1 asciiValue + 1 ]) = - ((c2 leadingChar = 0 and: [ c2 asciiValue < matchTable size ]) - ifTrue: [ matchTable at: c2 asciiValue + 1 ] - ifFalse: [c2 asciiValue + 1 ]) ] - whileTrue: - [index = key size ifTrue: [^ startIndex]. - index := index+1]]. - ^ 0!

1 0

The Trunk: Monticello-ul.631.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.631.mcz ==================== Summary ==================== Name: Monticello-ul.631 Author: ul Time: 3 April 2016, 4:21:14.951568 am UUID: 7e079ac8-236b-48c3-b494-ed87e2d94ab2 Ancestors: Monticello-ul.630 - fixed slip in the last change =============== Diff against Monticello-ul.630 =============== Item was changed: ----- Method: MCSnapshotBrowser>>aboutToStyle: (in category 'styling') ----- aboutToStyle: aStyler | classDefinition shouldStyle | classSelection ifNil: [ ^false ]. self switchIsComment ifTrue: [ ^false ]. methodSelection ifNotNil: [ classDefinition := items detect: [:ea | ea isClassDefinition and: [ ea className = classSelection ] ] ifNone: [ (Smalltalk at: classSelection ifAbsent: [ Object ]) asClassDefinition ]. shouldStyle := true ] ifNil: [ classDefinition := nil. shouldStyle := categorySelection ~= self extensionsCategory ]. + (Smalltalk classNamed: #SHMCClassDefinition) - (self environment classNamed: #SHMCClassDefinition) ifNil: [ ^false ] ifNotNil: [ :SHMCClassDefinition | aStyler environment: self; classOrMetaClass: (classDefinition ifNotNil: [ SHMCClassDefinition classDefinition: classDefinition items: items meta: switch = #class ]) ]. ^shouldStyle!

1 0

The Trunk: Monticello-ul.630.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.630.mcz ==================== Summary ==================== Name: Monticello-ul.630 Author: ul Time: 3 April 2016, 4:19:20.511794 am UUID: 97dea0c7-b1ca-4436-8d32-3706c1efa628 Ancestors: Monticello-mt.629 - removed hard dependency on ShoutCore =============== Diff against Monticello-mt.629 =============== Item was changed: ----- Method: MCSnapshotBrowser>>aboutToStyle: (in category 'styling') ----- aboutToStyle: aStyler | classDefinition shouldStyle | classSelection ifNil: [ ^false ]. self switchIsComment ifTrue: [ ^false ]. methodSelection ifNotNil: [ classDefinition := items detect: [:ea | ea isClassDefinition and: [ ea className = classSelection ] ] ifNone: [ (Smalltalk at: classSelection ifAbsent: [ Object ]) asClassDefinition ]. shouldStyle := true ] ifNil: [ classDefinition := nil. shouldStyle := categorySelection ~= self extensionsCategory ]. + (self environment classNamed: #SHMCClassDefinition) + ifNil: [ ^false ] + ifNotNil: [ :SHMCClassDefinition | + aStyler + environment: self; + classOrMetaClass: (classDefinition ifNotNil: [ + SHMCClassDefinition + classDefinition: classDefinition + items: items + meta: switch = #class ]) ]. - aStyler - environment: self; - classOrMetaClass: (classDefinition ifNotNil: [ - SHMCClassDefinition - classDefinition: classDefinition - items: items - meta: switch = #class ]). ^shouldStyle!

1 0

The Trunk: Regex-Core-ul.50.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ul.50.mcz ==================== Summary ==================== Name: Regex-Core-ul.50 Author: ul Time: 3 April 2016, 3:34:24.097121 am UUID: dd38bd8a-38ae-47d0-aef4-8b02926d9d9c Ancestors: Regex-Core-ul.49 - few more Spur-related character comparison optimizations - RxMatcher >> #atBeginningOfLine will consider lf as an end-of-line character =============== Diff against Regex-Core-ul.49 =============== Item was changed: ----- Method: RxMatchOptimizer>>nonPrefixTester (in category 'private') ----- nonPrefixTester nonPrefixes ifNil: [ ^nil ]. nonPrefixes size = 1 ifTrue: [ | nonPrefixChar | nonPrefixChar := nonPrefixes anyOne. + ^[ :char :matcher | (char == nonPrefixChar) not ] ]. - ^[ :char :matcher | char ~~ nonPrefixChar ] ]. ^[ :char : matcher | (nonPrefixes includes: char) not ]! Item was changed: Object subclass: #RxMatcher instanceVariableNames: 'matcher ignoreCase startOptimizer stream markerPositions previousMarkerPositions markerCount lastResult firstTryMatch' + classVariableNames: 'Cr Lf NullCharacter' - classVariableNames: 'Cr Lf' poolDictionaries: '' category: 'Regex-Core'! !RxMatcher commentStamp: 'ul 8/28/2015 14:18' prior: 0! -- Regular Expression Matcher v 1.1 (C) 1996, 1999 Vassili Bykov -- This is a recursive regex matcher. Not strikingly efficient, but simple. Also, keeps track of matched subexpressions. The life cycle goes as follows: 1. Initialization. Accepts a syntax tree (presumably produced by RxParser) and compiles it into a matcher built of other classes in this category. 2. Matching. Accepts a stream or a string and returns a boolean indicating whether the whole stream or its prefix -- depending on the message sent -- matches the regex. 3. Subexpression query. After a successful match, and before any other match, the matcher may be queried about the range of specific stream (string) positions that matched to certain parenthesized subexpressions of the original expression. Any number of queries may follow a successful match, and any number or matches may follow a successful initialization. Note that `matcher' is actually a sort of a misnomer. The actual matcher is a web of Rxm* instances built by RxMatcher during initialization. RxMatcher is just the interface facade of this network. It is also a builder of it, and also provides a stream-like protocol to easily access the stream being matched. Instance variables: matcher <RxmLink> The entry point into the actual matcher. igoreCase <Boolean> Whether the matching algorithm should be case sensitive or not. startOptimizer <RxMatchOptimizer> An object which can quickly decide whether the next character can be the prefix of a match or not. stream <Stream> The stream currently being matched against. markerPositions <Array of: nil | Integer | OrderedCollection> Positions of markers' matches. previousMarkerPositions <Array of: nil | Integer | OrderedCollection> Positions of markers from the previous #tryMatch send. markerCount <Integer> Number of markers. lastResult <Boolean> Whether the latest match attempt succeeded or not. firtTryMatch <Boolean> True if there hasn't been any send of #tryMatch during the current matching.! Item was changed: ----- Method: RxMatcher class>>initialize (in category 'class initialization') ----- initialize + "RxMatcher initialize" Cr := Character cr. + Lf := Character lf. + NullCharacter := Character value: 0! - Lf := Character lf.! Item was changed: ----- Method: RxMatcher>>atBeginningOfLine (in category 'testing') ----- atBeginningOfLine + | lastCharacter | + stream position = 0 ifTrue: [ ^true ]. + (lastCharacter := stream last) == Cr ifTrue: [ ^true ]. + ^lastCharacter == Lf! - ^self position = 0 or: [self lastChar = Cr]! Item was changed: ----- Method: RxMatcher>>lastChar (in category 'accessing') ----- lastChar + + ^stream position = 0 ifFalse: [ stream last ]! - ^ stream position = 0 - ifFalse: [ stream skip: -1; next ]! Item was changed: ----- Method: RxMatcher>>matchingRangesIn: (in category 'match enumeration') ----- matchingRangesIn: aString "Search aString repeatedly for the matches of the receiver. Answer an OrderedCollection of ranges of each match (index of first character to: index of last character)." | result | result := OrderedCollection new. self matchesIn: aString + do: [ :match | + | streamPosition | + result add: ((streamPosition := stream position) - match size + 1 to: streamPosition)]. - do: [:match | result add: (self position - match size + 1 to: self position)]. ^result! Item was removed: - ----- Method: RxMatcher>>position (in category 'streaming') ----- - position - - ^stream position! Item was changed: ----- Method: RxMatcher>>syntaxAny (in category 'double dispatch') ----- syntaxAny "Double dispatch from the syntax tree. Create a matcher for any non-null character." ^RxmPredicate new + predicate: [:char | (char == NullCharacter) not ]! - predicate: [:char | char asInteger ~= 0]! Item was changed: ----- Method: RxmTerminator>>terminateWith: (in category 'building') ----- terminateWith: aTerminator "Branch terminators are never supposed to change. Make sure this is the case." + aTerminator == self ifFalse: [ + RxParser signalCompilationException: 'internal matcher build error - wrong terminator' ]! - aTerminator ~~ self - ifTrue: [RxParser signalCompilationException: - 'internal matcher build error - wrong terminator']! Item was changed: ----- Method: RxsCharSet>>enumerablePartPredicateIgnoringCase: (in category 'privileged') ----- enumerablePartPredicateIgnoringCase: ignoreCase | set p | set := (self enumerableSetIgnoringCase: ignoreCase) ifNil: [ ^nil ]. set size = 1 ifTrue: [ | char | char := set anyOne. ignoreCase ifTrue: [ | lowercaseChar | lowercaseChar := char asLowercase. char := char asUppercase. char == lowercaseChar ifFalse: [ negated ifTrue: [ ^[ :character | (character == char or: [ character == lowercaseChar ]) not ] ]. ^[ :character | character == char or: [ character == lowercaseChar ] ] ] ]. + negated ifTrue: [ ^[ :character | (character == char) not ] ]. - negated ifTrue: [ ^[ :character | character ~~ char ] ]. ^[ :character | character == char ] ]. ignoreCase ifTrue: [ set copy do: [ :each | | char | (char := each asUppercase) == each ifFalse: [ set add: char ] ifTrue: [ (char := each asLowercase) == each ifFalse: [ set add: char ] ] ] ]. set size < 10 ifTrue: [ "10 is an empirical value" p := set asArray. negated ifTrue: [ ^[ :character | (p instVarsInclude: character) not ] ]. ^[ :character | p instVarsInclude: character ] ]. negated ifTrue: [ ^[ :character | (set includes: character) not ] ]. ^[ :character | set includes: character ]! Item was changed: ----- Method: RxsContextCondition>>isNullable (in category 'testing') ----- isNullable + ^(#syntaxAny == kind) not! - ^#syntaxAny ~~ kind! Item was changed: ----- Method: RxsPredicate>>beCharacter: (in category 'initialize-release') ----- beCharacter: aCharacter predicate := [ :char | char == aCharacter ]. + negation := [ :char | (char == aCharacter) not ]! - negation := [ :char | char ~~ aCharacter ]! Item was changed: ----- Method: RxsPredicate>>beWordConstituent (in category 'initialize-release') ----- beWordConstituent + predicate := [ :char | char == $_ or: [ char isAlphaNumeric ] ]. + negation := [ :char | (char == $_ or: [ char isAlphaNumeric ]) not ]! - predicate := [:char | char isAlphaNumeric or: [char == $_]]. - negation := [:char | char isAlphaNumeric not and: [char ~~ $_]]!

1 0

The Trunk: Tests-ul.338.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.338.mcz ==================== Summary ==================== Name: Tests-ul.338 Author: ul Time: 3 April 2016, 4:18:16.318046 am UUID: 512a1174-e020-4178-8a84-f0e3403d9794 Ancestors: Tests-ul.337 PackageDependencyTest changes: - added Chronology-Core - use symbols for package names =============== Diff against Tests-ul.337 =============== Item was changed: ----- Method: PackageDependencyTest>>testBalloon (in category 'tests') ----- testBalloon self testPackage: 'Balloon' dependsExactlyOn: #( + Collections + Graphics + Kernel + )! - Kernel Collections Graphics - ).! Item was added: + ----- Method: PackageDependencyTest>>testChronologyCore (in category 'tests') ----- + testChronologyCore + self testPackage: #'Chronology-Core' dependsExactlyOn: #( + Collections + Kernel + )! Item was changed: ----- Method: PackageDependencyTest>>testCollections (in category 'tests') ----- testCollections + self testPackage: #Collections dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Collections' dependsExactlyOn: #( Compiler Kernel Files Graphics Multilingual + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testCompiler (in category 'tests') ----- testCompiler + self testPackage: #Compiler dependsExactlyOn: #( - self testPackage: 'Compiler' dependsExactlyOn: #( Collections Graphics Kernel System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testCompression (in category 'tests') ----- testCompression + self testPackage: #Compression dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Compression' dependsExactlyOn: #( Collections Files Graphics Kernel Multilingual System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testEtoys (in category 'tests') ----- testEtoys + self testPackage: #EToys dependsExactlyOn: #( - self testPackage: 'EToys' dependsExactlyOn: #( Balloon + #'Chronology-Core' Collections Compiler Compression Files Graphics Kernel Morphic MorphicExtras Multilingual Network - PreferenceBrowser Protocols SUnit System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testFiles (in category 'tests') ----- testFiles + self testPackage: #Files dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Files' dependsExactlyOn: #( Collections Kernel Multilingual System ).! Item was changed: ----- Method: PackageDependencyTest>>testGraphics (in category 'tests') ----- testGraphics + self testPackage: #Graphics dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Graphics' dependsExactlyOn: #( Collections Compression Files Kernel Multilingual System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testInstaller (in category 'tests') ----- testInstaller + self testPackage: #Installer dependsExactlyOn: #( - self testPackage: 'Installer' dependsExactlyOn: #( Collections Compression Exceptions Files Kernel Monticello MonticelloConfigurations Multilingual Network System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testKernel (in category 'tests') ----- testKernel + self testPackage: #Kernel dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Kernel' dependsExactlyOn: #( Collections Compiler Environments Files Multilingual System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testMonticello (in category 'tests') ----- testMonticello + self testPackage: #Monticello dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Monticello' dependsExactlyOn: #( Collections Compiler Compression Environments Files Graphics Kernel Morphic Multilingual Network + #'PackageInfo-Base' + #'Services-Base' - 'PackageInfo-Base' - 'Services-Base' System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testMorphic (in category 'tests') ----- testMorphic + self testPackage: #Morphic dependsExactlyOn: #( - self testPackage: 'Morphic' dependsExactlyOn: #( Balloon + #'Chronology-Core' Collections Compiler EToys Files Graphics Kernel Monticello MonticelloConfigurations MorphicExtras Multilingual Network Sound System SystemReporter + #'ToolBuilder-Kernel' + #'ToolBuilder-Morphic' - 'ToolBuilder-Kernel' - 'ToolBuilder-Morphic' Tools TrueType ).! Item was changed: ----- Method: PackageDependencyTest>>testMorphicExtras (in category 'tests') ----- testMorphicExtras + self testPackage: #MorphicExtras dependsExactlyOn: #( - self testPackage: 'MorphicExtras' dependsExactlyOn: #( Balloon + #'Chronology-Core' Collections Compiler Files Graphics Kernel MonticelloConfigurations Morphic Multilingual Network Protocols Sound System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testMultilingual (in category 'tests') ----- testMultilingual + self testPackage: #Multilingual dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Multilingual' dependsExactlyOn: #( Collections Files Graphics Kernel Network System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testNetwork (in category 'tests') ----- testNetwork + self testPackage: #Network dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Network' dependsExactlyOn: #( Collections Compiler Compression Files Graphics Kernel Morphic System + #'ToolBuilder-Kernel' + #'WebClient-Core' - 'ToolBuilder-Kernel' - 'WebClient-Core' ).! Item was changed: ----- Method: PackageDependencyTest>>testPackageInfo (in category 'tests') ----- testPackageInfo + self testPackage: #PackageInfo dependsExactlyOn: #( - self testPackage: 'PackageInfo' dependsExactlyOn: #( Collections Compiler Graphics Kernel Morphic System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testPreferenceBrowser (in category 'tests') ----- testPreferenceBrowser + self testPackage: #PreferenceBrowser dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'PreferenceBrowser' dependsExactlyOn: #( Collections Graphics Kernel Morphic MorphicExtras System Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testProtocols (in category 'tests') ----- testProtocols + self testPackage: #Protocols dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Protocols' dependsExactlyOn: #( Collections Graphics Kernel Morphic MorphicExtras System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testSUnit (in category 'tests') ----- testSUnit + self testPackage: #SUnit dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'SUnit' dependsExactlyOn: #( Collections Kernel System ).! Item was changed: ----- Method: PackageDependencyTest>>testSUnitGUI (in category 'tests') ----- testSUnitGUI + self testPackage: #SUnitGUI dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'SUnitGUI' dependsExactlyOn: #( Collections Graphics Kernel + #'PackageInfo-Base' - 'PackageInfo-Base' SUnit System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testServices (in category 'tests') ----- testServices + self testPackage: #'Services-Base' dependsExactlyOn: #( - self testPackage: 'Services-Base' dependsExactlyOn: #( Collections Compiler Graphics Kernel Morphic + #'PackageInfo-Base' - 'PackageInfo-Base' PreferenceBrowser System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testShoutCore (in category 'tests') ----- testShoutCore + self testPackage: #ShoutCore dependsExactlyOn: #( - self testPackage: 'ShoutCore' dependsExactlyOn: #( Collections Environments Graphics Kernel Monticello System Compiler Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testSound (in category 'tests') ----- testSound + self testPackage: #Sound dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Sound' dependsExactlyOn: #( Collections Balloon Files Graphics Kernel Network System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testSystem (in category 'tests') ----- testSystem + self testPackage: #System dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'System' dependsExactlyOn: #( Collections Compiler Compression Environments Files Graphics + #'Installer-Core' - 'Installer-Core' Kernel MonticelloConfigurations Morphic MorphicExtras Multilingual Network + #'PackageInfo-Base' - 'PackageInfo-Base' Sound + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' TrueType ).! Item was changed: ----- Method: PackageDependencyTest>>testToolBuilder (in category 'tests') ----- testToolBuilder + self testPackage: #'ToolBuilder-Kernel' dependsExactlyOn: #( - self testPackage: 'ToolBuilder-Kernel' dependsExactlyOn: #( Collections Files Kernel System ).! Item was changed: ----- Method: PackageDependencyTest>>testTools (in category 'tests') ----- testTools + self testPackage: #Tools dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Tools' dependsExactlyOn: #( Collections Compiler Compression Files Graphics Kernel Morphic MorphicExtras Multilingual Network + #'PackageInfo-Base' - 'PackageInfo-Base' System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testTraits (in category 'tests') ----- testTraits + self testPackage: #Traits dependsExactlyOn: #( - self testPackage: 'Traits' dependsExactlyOn: #( Collections Compiler Files Kernel Monticello System ).! Item was changed: ----- Method: PackageDependencyTest>>testTrueType (in category 'tests') ----- testTrueType + self testPackage: #TrueType dependsExactlyOn: #( - self testPackage: 'TrueType' dependsExactlyOn: #( Collections Balloon Files Graphics Kernel Multilingual System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testVersionNumber (in category 'tests') ----- testVersionNumber + self testPackage: #VersionNumber dependsExactlyOn: #( - self testPackage: 'VersionNumber' dependsExactlyOn: #( Collections Kernel ).! Item was changed: ----- Method: PackageDependencyTest>>testXML (in category 'tests') ----- testXML + self testPackage: #XML dependsExactlyOn: #( - self testPackage: 'XML' dependsExactlyOn: #( Collections Exceptions Files Kernel Multilingual System Tests ).!

1 0

Jump to page: