Packages September 2019

packages@lists.squeakfoundation.org

1 participants
182 discussions

The Trunk: Tools-pre.882.mcz
by commits＠source.squeak.org 03 Sep '19

03 Sep '19

Patrick Rein uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-pre.882.mcz ==================== Summary ==================== Name: Tools-pre.882 Author: pre Time: 3 September 2019, 4:53:34.544361 pm UUID: f593a50e-ceef-8045-b6b7-f36d63cb01dd Ancestors: Tools-mt.881 Deprecates file reader registration methods on FileList =============== Diff against Tools-mt.881 =============== Item was removed: - ----- Method: FileList class>>allRegisteredServices (in category 'file reader registration') ----- - allRegisteredServices - "self allRegisteredServices" - - | col | - col := OrderedCollection new. - self registeredFileReaderClasses do: [:each | col addAll: (each services)]. - ^ col! Item was removed: - ----- Method: FileList class>>detectService:ifNone: (in category 'file reader registration') ----- - detectService: aBlock ifNone: anotherBlock - "self detectService: [:each | each selector = #fileIn:] ifNone: [nil]" - - ^ self allRegisteredServices - detect: aBlock - ifNone: anotherBlock! Item was removed: - ----- Method: FileList class>>isReaderNamedRegistered: (in category 'file reader registration') ----- - isReaderNamedRegistered: aSymbol - "return if a given reader class has been registered. Note that this is on purpose that the argument is - a symbol and not a class" - - ^ (self registeredFileReaderClasses collect: [:each | each name]) includes: aSymbol - ! Item was removed: - ----- Method: FileList class>>itemsForDirectory: (in category 'file reader registration') ----- - itemsForDirectory: aFileDirectory - "Answer a list of services appropriate when no file is selected." - - | services | - services := OrderedCollection new. - self registeredFileReaderClasses do: [:reader | - reader ifNotNil: [services addAll: (reader fileReaderServicesForDirectory: aFileDirectory) ]]. - ^ services! Item was removed: - ----- Method: FileList class>>itemsForFile: (in category 'file reader registration') ----- - itemsForFile: fullName - "Answer a list of services appropriate for a file of the given full name" - - | services suffix | - suffix := self suffixOf: fullName. - services := OrderedCollection new. - self registeredFileReaderClasses do: [:reader | - reader ifNotNil: [services addAll: (reader fileReaderServicesForFile: fullName suffix: suffix)]]. - ^ services! Item was removed: - ----- Method: FileList class>>registerFileReader: (in category 'file reader registration') ----- - registerFileReader: aProviderClass - "register the given class as providing services for reading files" - - | registeredReaders | - registeredReaders := self registeredFileReaderClasses. - (registeredReaders includes: aProviderClass) - ifFalse: [ registeredReaders addLast: aProviderClass ]! Item was removed: - ----- Method: FileList class>>registeredFileReaderClasses (in category 'file reader registration') ----- - registeredFileReaderClasses - FileReaderRegistry := nil. "wipe it out" - ^FileServices registeredFileReaderClasses - ! Item was removed: - ----- Method: FileList class>>suffixOf: (in category 'file reader registration') ----- - suffixOf: aName - "Answer the file extension of the given file" - ^ aName - ifNil: - [''] - ifNotNil: - [(FileDirectory extensionFor: aName) asLowercase]! Item was removed: - ----- Method: FileList class>>unregisterFileReader: (in category 'file reader registration') ----- - unregisterFileReader: aProviderClass - "unregister the given class as providing services for reading files" - - self registeredFileReaderClasses remove: aProviderClass ifAbsent: [nil]! Item was changed: ----- Method: FileList2 class>>endingSpecs (in category 'blue ui') ----- endingSpecs "Answer a collection of specs to build the selective 'find anything' tool called by the Navigator. This version uses the services registry to do so." "FileList2 morphicViewGeneralLoaderInWorld: World" | categories specs rejects | rejects := #(addFileToNewZip: compressFile: openInZipViewer: extractAllFrom: openOn:). categories := #( ('Art' ('bmp' 'gif' 'jpg' 'jpeg' 'form' 'png' 'pcx' 'xbm' 'xpm' 'ppm' 'pbm')) ('Morphs' ('morph' 'morphs' 'sp')) ('Projects' ('extseg' 'project' 'pr')) ('MIDI' ('mid' 'midi')) ('Music' ('mp3')) ('Movies' ('movie' 'mpg' 'mpeg' 'qt' 'mov')) ('Flash' ('swf')) ). "('Books' ('bo'))" "('Code' ('st' 'cs'))" "('TrueType' ('ttf'))" "('3ds' ('3ds'))" "('Tape' ('tape'))" "('Wonderland' ('wrl'))" "('HTML' ('htm' 'html'))" categories first at: 2 put: ImageReadWriter allTypicalFileExtensions. specs := OrderedCollection new. categories do: [ :cat | | catSpecs catServices okExtensions services | services := Dictionary new. catSpecs := Array new: 3. catServices := OrderedCollection new. okExtensions := Set new. + cat second do: [ :ext | (FileServices itemsForFile: (FileDirectory default fullPathFor: ('fred.',ext))) do: [ :i | - cat second do: [ :ext | (FileList itemsForFile: (FileDirectory default fullPathFor: ('fred.',ext))) do: [ :i | (rejects includes: i selector) ifFalse: [ okExtensions add: ext. services at: i label put: i ]]]. services do: [ :svc | catServices add: svc ]. services isEmpty ifFalse: [ catSpecs at: 1 put: cat first; at: 2 put: okExtensions; at: 3 put: catServices. specs add: catSpecs ] ]. ^specs !

1 0

The Trunk: Tools-mt.881.mcz
by commits＠source.squeak.org 03 Sep '19

03 Sep '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.881.mcz ==================== Summary ==================== Name: Tools-mt.881 Author: mt Time: 3 September 2019, 10:31:26.605063 am UUID: fcc8128d-6944-ff49-83b6-9ccd090e9e0f Ancestors: Tools-mt.880 Our lists render only the first character's emphasis for the entire string. Fix that for class-tree formatting. =============== Diff against Tools-mt.880 =============== Item was changed: ----- Method: Browser>>flattenHierarchyTree:on:indent:by:format: (in category 'class list') ----- flattenHierarchyTree: classHierarchy on: col indent: indent by: indentChars format: formatBlock "Recursively add to col the names in classHierarchy indenting to show the hierarchical relationship. Use indentChars to do the indenting: spaces, tabs, etc." | plusIndent | plusIndent := indentChars. classHierarchy do: [:assoc | | class childs label | class := assoc key. label := formatBlock value: class. label isText + ifTrue: [col add: (Text string: indent attributes: (label attributesAt: 1)), label] - ifTrue: [col add: indent asText, label] ifFalse: [col add: indent, label]. childs := assoc value. self flattenHierarchyTree: childs on: col indent: indent , plusIndent by: indentChars format: formatBlock]. ^ col!

1 0

The Trunk: TraitsTests-mt.25.mcz
by commits＠source.squeak.org 03 Sep '19

03 Sep '19

Marcel Taeumel uploaded a new version of TraitsTests to project The Trunk: http://source.squeak.org/trunk/TraitsTests-mt.25.mcz ==================== Summary ==================== Name: TraitsTests-mt.25 Author: mt Time: 3 September 2019, 9:06:04.191063 am UUID: d6fb8946-072f-c94c-9c0b-3f3a1b80f502 Ancestors: TraitsTests-mt.24 Because of how test resources work, they will already be there when the test runs. =============== Diff against TraitsTests-mt.24 =============== Item was changed: ----- Method: TraitSystemTest>>testAllClassesAndTraits (in category 'testing') ----- testAllClassesAndTraits "self debug: #testAllClassesAndTraits" + | trait | - | trait previousClassesAndTraits previousClasses | - previousClassesAndTraits := Smalltalk allClassesAndTraits. - previousClasses := Smalltalk allClasses. trait := self t1. - self deny: (previousClassesAndTraits includes: trait). - self deny: (previousClasses includes: trait). - self assert: (Smalltalk allClassesAndTraits includes: trait). self deny: (Smalltalk allClasses includes: trait). !

1 0

The Trunk: SUnitGUI-mt.72.mcz
by commits＠source.squeak.org 03 Sep '19

03 Sep '19

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-mt.72.mcz ==================== Summary ==================== Name: SUnitGUI-mt.72 Author: mt Time: 3 September 2019, 9:04:53.468063 am UUID: 7a1aee8a-d3d3-b749-b2b9-647310559a1a Ancestors: SUnitGUI-mt.71 Fixes the class hierarchy in the test runner. Adds number of tests to the class labels. Needs Tools-mt.880. We might want to find a better place for tree-to-list flattening. Yet, this is not a new dependency from SUnitGUI to the tools package. =============== Diff against SUnitGUI-mt.71 =============== Item was changed: ----- Method: TestRunner>>classList (in category 'accessing-classes') ----- classList + + | helper | - | offset | classes isEmpty ifTrue: [ ^ classes ]. + + helper := Browser new. + ^ helper + flattenHierarchyTree: (helper createHierarchyTreeOf: classes) + on: OrderedCollection new + indent: '' + by: ' ' + format: [:class | class isAbstract + ifTrue: [class name asText addAttribute: TextEmphasis italic; yourself] + ifFalse: ['{1} ({2})' format: {class name. class allTestSelectors size}]]! - offset := classes first allSuperclasses size. - ^ classes collect: [ :each | | ident | - ident := String - new: 2 * (0 max: each allSuperclasses size - offset) - withAll: $ . - each isAbstract - ifFalse: [ ident , each name ] - ifTrue: [ - ident asText , each name asText - addAttribute: TextEmphasis italic; - yourself ] ].!

1 0

The Trunk: Tools-mt.880.mcz
by commits＠source.squeak.org 03 Sep '19

03 Sep '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.880.mcz ==================== Summary ==================== Name: Tools-mt.880 Author: mt Time: 3 September 2019, 9:03:13.138063 am UUID: 334585e8-af9b-db41-b6bf-b8ac4d0a7128 Ancestors: Tools-mt.879 Adds very simple support for formatting the class hierachy labels in the code browser. =============== Diff against Tools-mt.879 =============== Item was changed: ----- Method: Browser>>flattenHierarchyTree:on:indent:by: (in category 'class list') ----- flattenHierarchyTree: classHierarchy on: col indent: indent by: indentChars + ^ self + flattenHierarchyTree: classHierarchy + on: col + indent: indent + by: ' ' + format: [:class | class name]! - "Recursively add to col the names in classHierarchy indenting to show the hierarchical relationship. Use indentChars to do the indenting: spaces, tabs, etc." - | plusIndent | - plusIndent := indentChars. - classHierarchy do: [:assoc | - | class childs | - class := assoc key. - col add: indent , class name. - childs := assoc value. - self - flattenHierarchyTree: childs - on: col - indent: indent , plusIndent - by: indentChars]. - ^ col! Item was added: + ----- Method: Browser>>flattenHierarchyTree:on:indent:by:format: (in category 'class list') ----- + flattenHierarchyTree: classHierarchy on: col indent: indent by: indentChars format: formatBlock + "Recursively add to col the names in classHierarchy indenting to show the hierarchical relationship. Use indentChars to do the indenting: spaces, tabs, etc." + | plusIndent | + plusIndent := indentChars. + classHierarchy do: [:assoc | + | class childs label | + class := assoc key. + label := formatBlock value: class. + label isText + ifTrue: [col add: indent asText, label] + ifFalse: [col add: indent, label]. + childs := assoc value. + self + flattenHierarchyTree: childs + on: col + indent: indent , plusIndent + by: indentChars + format: formatBlock]. + ^ col!

1 0

The Trunk: TraitsTests-mt.24.mcz
by commits＠source.squeak.org 03 Sep '19

03 Sep '19

Marcel Taeumel uploaded a new version of TraitsTests to project The Trunk: http://source.squeak.org/trunk/TraitsTests-mt.24.mcz ==================== Summary ==================== Name: TraitsTests-mt.24 Author: mt Time: 3 September 2019, 8:32:08.723063 am UUID: 1a70eef8-61da-cb49-b67e-edb7358f5383 Ancestors: TraitsTests-mt.23 Speeds up tests a little bit more. Test resources are usually only set up once before all tests. Cache source files then, too. (Except for some traits tests which make the resource dirty. See TraitsResource class >> #resetIfDirty.) =============== Diff against TraitsTests-mt.23 =============== Item was changed: ----- Method: TraitsResource>>setUp (in category 'running') ----- setUp - "Please note, that most tests rely on this setup of traits and - classes - and that especially the order of the definitions matters." - "SetUpCount := SetUpCount + 1." + super setUp. + dirty := false. + + CurrentReadOnlySourceFiles cacheDuring: [ + SystemChangeNotifier uniqueInstance doSilently: [ + Utilities useAuthorInitials: self className during: [ + self setUpSilently]]].! - Utilities - useAuthorInitials: self className - during: [ - SystemChangeNotifier uniqueInstance doSilently: [ - self t1: (self createTraitNamed: #T1 uses: { }). - self t1 comment: 'I am the trait T1'. - self t2: (self createTraitNamed: #T2 uses: { }). - self t2 compile: 'm21 ^21' classified: #cat1. - self t2 compile: 'm22 ^22' classified: #cat2. - self t2 classSide compile: 'm2ClassSide: a ^a'. - self t3: (self createTraitNamed: #T3 uses: { }). - self t3 compile: 'm31 ^31' classified: #cat1. - self t3 compile: 'm32 ^32' classified: #cat2. - self t3 compile: 'm33 ^33' classified: #cat3. - self t4: (self createTraitNamed: #T4 uses: { (self t1). (self t2) }). - self t4 compile: 'm11 ^41' classified: #catX. "overrides T1>>m11" - self t4 compile: 'm42 ^42' classified: #cat2. - self t5: (self createTraitNamed: #T5 uses: self t1 + self t2). - self t5 compile: 'm51 ^super foo' classified: #cat1. - self t5 compile: 'm52 ^ self class bar' classified: #cat1. - self t5 compile: 'm53 ^ self class bar' classified: #cat1. - self t6: (self - createTraitNamed: #T6 - uses: (self t1 + (self t2 @ { (#m22Alias -> #m22) }))). - self c1: ( - self - createClassNamed: #C1 - superclass: Object - uses: { }). - self c1 compile: 'foo ^true' classified: #accessing. - self t1 compile: 'm11 ^11' classified: #cat1. - self t1 compile: 'm12 ^12' classified: #cat2. - self t1 compile: 'm13 ^self m12' classified: #cat3. - self c2: (self - createClassNamed: #C2 - superclass: self c1 - uses: self t5 - { #m11 }). - self c2 compile: 'foo ^false' classified: #private. - self c2 compile: 'bar ^self foo' classified: #private. - self setUpTrivialRequiresFixture. - self setUpTwoLevelRequiresFixture. - self setUpTranslatingRequiresFixture ] ]. - SystemChangeNotifier uniqueInstance notify: self ofAllSystemChangesUsing: #codeChangedEvent:! Item was added: + ----- Method: TraitsResource>>setUpSilently (in category 'running') ----- + setUpSilently + "Please note, that most tests rely on this setup of traits and + classes - and that especially the order of the definitions matters." + "SetUpCount := SetUpCount + 1." + + self t1: (self createTraitNamed: #T1 uses: { }). + self t1 comment: 'I am the trait T1'. + self t2: (self createTraitNamed: #T2 uses: { }). + self t2 compile: 'm21 ^21' classified: #cat1. + self t2 compile: 'm22 ^22' classified: #cat2. + self t2 classSide compile: 'm2ClassSide: a ^a'. + self t3: (self createTraitNamed: #T3 uses: { }). + self t3 compile: 'm31 ^31' classified: #cat1. + self t3 compile: 'm32 ^32' classified: #cat2. + self t3 compile: 'm33 ^33' classified: #cat3. + self t4: (self createTraitNamed: #T4 uses: { (self t1). (self t2) }). + self t4 compile: 'm11 ^41' classified: #catX. "overrides T1>>m11" + self t4 compile: 'm42 ^42' classified: #cat2. + self t5: (self createTraitNamed: #T5 uses: self t1 + self t2). + self t5 compile: 'm51 ^super foo' classified: #cat1. + self t5 compile: 'm52 ^ self class bar' classified: #cat1. + self t5 compile: 'm53 ^ self class bar' classified: #cat1. + self t6: (self + createTraitNamed: #T6 + uses: (self t1 + (self t2 @ { (#m22Alias -> #m22) }))). + self c1: ( + self + createClassNamed: #C1 + superclass: Object + uses: { }). + self c1 compile: 'foo ^true' classified: #accessing. + self t1 compile: 'm11 ^11' classified: #cat1. + self t1 compile: 'm12 ^12' classified: #cat2. + self t1 compile: 'm13 ^self m12' classified: #cat3. + self c2: (self + createClassNamed: #C2 + superclass: self c1 + uses: self t5 - { #m11 }). + self c2 compile: 'foo ^false' classified: #private. + self c2 compile: 'bar ^self foo' classified: #private. + + self setUpTrivialRequiresFixture. + self setUpTwoLevelRequiresFixture. + self setUpTranslatingRequiresFixture. + + SystemChangeNotifier uniqueInstance notify: self ofAllSystemChangesUsing: #codeChangedEvent:! Item was changed: ----- Method: TraitsResource>>tearDown (in category 'running') ----- tearDown + CurrentReadOnlySourceFiles cacheDuring: [ + SystemChangeNotifier uniqueInstance doSilently: [ + Utilities useAuthorInitials: self className during: [ + self tearDownSilently]]]. - SystemChangeNotifier uniqueInstance noMoreNotificationsFor: self. + super tearDown.! - SystemChangeNotifier uniqueInstance doSilently: [ - self createdClassesAndTraits do: - [:aClassOrTrait | | behaviorName | - behaviorName := aClassOrTrait name. - Smalltalk at: behaviorName - ifPresent: [:classOrTrait | classOrTrait removeFromSystem]. - ChangeSet current removeClassChanges: behaviorName] ]. - - createdClassesAndTraits := self t1: (self - t2: (self t3: (self - t4: (self t5: (self - t6: (self c1: (self - c2: (self c3: (self c4: (self c5: (self c6: (self c7: (self c8: nil)))))))))))))! Item was added: + ----- Method: TraitsResource>>tearDownSilently (in category 'running') ----- + tearDownSilently + + SystemChangeNotifier uniqueInstance noMoreNotificationsFor: self. + + self createdClassesAndTraits do: + [:aClassOrTrait | | behaviorName | + behaviorName := aClassOrTrait name. + Smalltalk at: behaviorName + ifPresent: [:classOrTrait | classOrTrait removeFromSystem]. + ChangeSet current removeClassChanges: behaviorName]. + + createdClassesAndTraits := self t1: (self + t2: (self t3: (self + t4: (self t5: (self + t6: (self c1: (self + c2: (self c3: (self c4: (self c5: (self c6: (self c7: (self c8: nil)))))))))))))!

1 0

The Trunk: Morphic-mt.1513.mcz
by commits＠source.squeak.org 02 Sep '19

02 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1513.mcz ==================== Summary ==================== Name: Morphic-mt.1513 Author: mt Time: 2 September 2019, 7:45:12.260683 pm UUID: 61cca4ac-ac7c-3847-87f2-ae615fd1183d Ancestors: Morphic-mt.1512 Fixes a regression with non-clipping window titles. Also see TextMorph >> #minWidth. Not sure whether StringMorphs should "shrink wrap" horizontally if they are #rigid. Since they do not wrap vertically, it makes sense. =============== Diff against Morphic-mt.1512 =============== Item was changed: ----- Method: StringMorph>>minWidth (in category 'layout') ----- minWidth "Layout specific." + ^ self hResizing = #spaceFill + ifTrue: [0] ifFalse: [super minWidth max: (self fontToUse widthOfString: self contents)]! - ^ super minWidth max: (self fontToUse widthOfString: self contents)!

1 0

The Trunk: TraitsTests-mt.23.mcz
by commits＠source.squeak.org 02 Sep '19

02 Sep '19

Marcel Taeumel uploaded a new version of TraitsTests to project The Trunk: http://source.squeak.org/trunk/TraitsTests-mt.23.mcz ==================== Summary ==================== Name: TraitsTests-mt.23 Author: mt Time: 2 September 2019, 7:36:50.497683 pm UUID: c2a17580-66fa-cd46-b10e-d915399380f3 Ancestors: TraitsTests-mt.22 Speeds up tests. On my machine, they took more than 10 minutes and are now down to roughly 65 seconds. :-) Thanks to source-file caching and notification silence during set-up and tear-down. The mini pattern #*Silently might be useful for other tests, too. =============== Diff against TraitsTests-mt.22 =============== Item was changed: ----- Method: TraitFileOutTest>>categoryName (in category 'running') ----- categoryName + ^'TraitsTestsTemporary-FileOut'! - ^'TraitsTests-FileOut'! Item was removed: - ----- Method: TraitFileOutTest>>setUp (in category 'running') ----- - setUp - - super setUp. - Utilities - useAuthorInitials: self className - during: [ - SystemOrganization addCategory: self categoryName. - - td := self createTraitNamed: #TD uses: {}. - td compile: 'd' classified: #cat1. - tc := self createTraitNamed: #TC uses: td. - tc compile: 'c' classified: #cat1. - tb := self createTraitNamed: #TB uses: td. - tb compile: 'b' classified: #cat1. - ta := self createTraitNamed: #TA uses: tb + ((tc @ {#cc->#c}) - {#c}). - ta compile: 'a' classified: #cat1. - - ca := self createClassNamed: #CA superclass: Object uses: {}. - ca compile: 'ca' classified: #cat1. - cb := self createClassNamed: #CB superclass: ca uses: ta. - cb compile: 'cb' classified: #cat1. - - "make the class of cb also use tc:" - cb class uses: ta classTrait + tc instanceVariableNames: '' ]! Item was added: + ----- Method: TraitFileOutTest>>setUpSilently (in category 'running') ----- + setUpSilently + + super setUpSilently. + + SystemOrganization addCategory: self categoryName. + + td := self createTraitNamed: #TD uses: {}. + td compile: 'd' classified: #cat1. + tc := self createTraitNamed: #TC uses: td. + tc compile: 'c' classified: #cat1. + tb := self createTraitNamed: #TB uses: td. + tb compile: 'b' classified: #cat1. + ta := self createTraitNamed: #TA uses: tb + ((tc @ {#cc->#c}) - {#c}). + ta compile: 'a' classified: #cat1. + + ca := self createClassNamed: #CA superclass: Object uses: {}. + ca compile: 'ca' classified: #cat1. + cb := self createClassNamed: #CB superclass: ca uses: ta. + cb compile: 'cb' classified: #cat1. + + "make the class of cb also use tc:" + cb class uses: ta classTrait + tc instanceVariableNames: ''.! Item was removed: - ----- Method: TraitFileOutTest>>tearDown (in category 'running') ----- - tearDown - | dir | - dir := FileDirectory default. - self createdClassesAndTraits, self resourceClassesAndTraits do: [:each | - dir deleteFileNamed: each asString , '.st' ifAbsent: []]. - dir deleteFileNamed: self categoryName , '.st' ifAbsent: []. - SystemOrganization removeSystemCategory: self categoryName. - ca := cb := ta := tb := tc := td := nil. - super tearDown! Item was added: + ----- Method: TraitFileOutTest>>tearDownSilently (in category 'running') ----- + tearDownSilently + + | dir | + dir := FileDirectory default. + self createdClassesAndTraits, self resourceClassesAndTraits do: [:each | + dir deleteFileNamed: each asString , '.st' ifAbsent: []]. + dir deleteFileNamed: self categoryName , '.st' ifAbsent: []. + SystemOrganization removeSystemCategory: self categoryName. + ca := cb := ta := tb := tc := td := nil. + + super tearDownSilently.! Item was changed: ----- Method: TraitsResource>>tearDown (in category 'running') ----- tearDown SystemChangeNotifier uniqueInstance noMoreNotificationsFor: self. + + SystemChangeNotifier uniqueInstance doSilently: [ + self createdClassesAndTraits do: + [:aClassOrTrait | | behaviorName | + behaviorName := aClassOrTrait name. + Smalltalk at: behaviorName + ifPresent: [:classOrTrait | classOrTrait removeFromSystem]. + ChangeSet current removeClassChanges: behaviorName] ]. + - self createdClassesAndTraits do: - [:aClassOrTrait | | behaviorName | - behaviorName := aClassOrTrait name. - Smalltalk at: behaviorName - ifPresent: [:classOrTrait | classOrTrait removeFromSystem]. - ChangeSet current removeClassChanges: behaviorName]. createdClassesAndTraits := self t1: (self t2: (self t3: (self t4: (self t5: (self t6: (self c1: (self c2: (self c3: (self c4: (self c5: (self c6: (self c7: (self c8: nil)))))))))))))! Item was added: + ----- Method: TraitsTestCase class>>isAbstract (in category 'as yet unclassified') ----- + isAbstract + + ^ self = TraitsTestCase! Item was changed: ----- Method: TraitsTestCase>>performTest (in category 'private') ----- performTest + CurrentReadOnlySourceFiles cacheDuring: [ + Utilities useAuthorInitials: self className during: [ + self performTestSilently]].! - Utilities - useAuthorInitials: self className - during: [ super performTest ]! Item was added: + ----- Method: TraitsTestCase>>performTestSilently (in category 'private') ----- + performTestSilently + "Perform the test without making too much noise." + + super performTest.! Item was changed: ----- Method: TraitsTestCase>>setUp (in category 'running') ----- setUp super setUp. self timeout: 90. "pre: This is necessary to account for the TraitsResrouce setup" + + CurrentReadOnlySourceFiles cacheDuring: [ + SystemChangeNotifier uniqueInstance doSilently: [ + Utilities useAuthorInitials: self className during: [ + self setUpSilently]]].! - ! Item was added: + ----- Method: TraitsTestCase>>setUpSilently (in category 'running') ----- + setUpSilently + "Prepare the system without making too much noise."! Item was changed: ----- Method: TraitsTestCase>>tearDown (in category 'running') ----- tearDown + CurrentReadOnlySourceFiles cacheDuring: [ + SystemChangeNotifier uniqueInstance doSilently: [ + Utilities useAuthorInitials: self className during: [ + self tearDownSilently]]]. + + super tearDown.! - TraitsResource resetIfDirty. - self createdClassesAndTraits do: - [:aClassOrTrait | | behaviorName | - behaviorName := aClassOrTrait name. - Smalltalk at: behaviorName - ifPresent: [:classOrTrait | classOrTrait removeFromSystem]. - ChangeSet current removeClassChanges: behaviorName]. - createdClassesAndTraits := nil! Item was added: + ----- Method: TraitsTestCase>>tearDownSilently (in category 'running') ----- + tearDownSilently + "Clean up the system without making too much noise." + + TraitsResource resetIfDirty. + + self createdClassesAndTraits do: [:aClassOrTrait | | behaviorName | + behaviorName := aClassOrTrait name. + Smalltalk at: behaviorName + ifPresent: [:classOrTrait | classOrTrait removeFromSystem]. + ChangeSet current removeClassChanges: behaviorName]. + + createdClassesAndTraits := nil.!

1 0

The Trunk: TraitsTests-mt.22.mcz
by commits＠source.squeak.org 02 Sep '19

02 Sep '19

Marcel Taeumel uploaded a new version of TraitsTests to project The Trunk: http://source.squeak.org/trunk/TraitsTests-mt.22.mcz ==================== Summary ==================== Name: TraitsTests-mt.22 Author: mt Time: 2 September 2019, 6:30:30.686683 pm UUID: 2fdfe490-2fb1-5c48-a171-9a3ef751aa72 Ancestors: TraitsTests-mt.21 Removes a hard-coded value to let the test pass again. =============== Diff against TraitsTests-mt.21 =============== Item was changed: ----- Method: TraitTest>>testPrinting (in category 'testing') ----- testPrinting self assertPrints: self t6 definition like: 'Trait named: #T6 uses: T1 + (T2 @ {#m22Alias->#m22}) + category: ''', self categoryName, ''''! - category: ''TraitsTests-Kernel'''!

1 0

The Trunk: TraitsTests-mt.21.mcz
by commits＠source.squeak.org 02 Sep '19

02 Sep '19

Marcel Taeumel uploaded a new version of TraitsTests to project The Trunk: http://source.squeak.org/trunk/TraitsTests-mt.21.mcz ==================== Summary ==================== Name: TraitsTests-mt.21 Author: mt Time: 2 September 2019, 6:16:52.04089 pm UUID: 4cf604e6-f6b1-bd4a-a2a7-8cdb84295f3b Ancestors: TraitsTests-mt.20 Uses category name from resources object. Fixes a protocol. Comments a test that gave me the hint for that fix in SUnit-mt.116. =============== Diff against TraitsTests-mt.20 =============== Item was changed: ----- Method: TraitMethodDescriptionTest>>testArgumentNames (in category 'running') ----- testArgumentNames + "T5 combines both T1 and T2. For conflicting messages, T5 cannot know the correct argument names and thus falls back to a generic form 'arg1', 'arg2', etc." + self t1 compile: 'zork1: myArgument zork2: mySecondArgument ^true'. self t2 compile: 'zork1: myArgument zork2: somethingElse ^false'. + self assert: ((self t5 sourceCodeAt: #zork1:zork2:) asString beginsWith: 'zork1: arg1 zork2: arg2'). + self t1 compile: 'zork1: myArgument zork2: mySecondArgument ^true'. self t2 compile: 'zork1: somethingElse zork2: myArgument ^false'. + self assert: ((self t5 sourceCodeAt: #zork1:zork2:) asString beginsWith: 'zork1: arg1 zork2: arg2')! Item was changed: ----- Method: TraitsTestCase>>categoryName (in category 'running') ----- categoryName + + ^ TraitsResource current categoryName! - ^self class category! Item was changed: + ----- Method: TraitsTestCase>>setUp (in category 'running') ----- - ----- Method: TraitsTestCase>>setUp (in category 'accessing') ----- setUp super setUp. self timeout: 90. "pre: This is necessary to account for the TraitsResrouce setup" !

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2019