Packages September 2018

packages@lists.squeakfoundation.org

1 participants
19 discussions

The Trunk: Graphics-eem.402.mcz
by commits＠source.squeak.org 28 Sep '18

28 Sep '18

Eliot Miranda uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-eem.402.mcz ==================== Summary ==================== Name: Graphics-eem.402 Author: eem Time: 28 September 2018, 3:55:16.923545 pm UUID: 8982d87a-fe28-49e0-a900-d876452ce484 Ancestors: Graphics-bf.401 Fix BitBlt>>exampleOne for systems where a display depth of 1 is unsupported. =============== Diff against Graphics-bf.401 =============== Item was changed: ----- Method: BitBlt class>>exampleAt:rule:fillColor: (in category 'private') ----- exampleAt: originPoint rule: rule fillColor: mask "This builds a source and destination form and copies the source to the destination using the specifed rule and mask. It is called from the method named exampleOne. Only works with Display depth of 1" + ^self exampleOn: Display at: originPoint rule: rule fillColor: mask - | s d border aBitBlt | - border:=Form extent: 32@32. - border fillBlack. - border fill: (1@1 extent: 30@30) fillColor: Color white. - s := Form extent: 32@32. - s fillWhite. - s fillBlack: (7@7 corner: 25@25). - d := Form extent: 32@32. - d fillWhite. - d fillBlack: (0@0 corner: 32@16). + "BitBlt exampleAt: 100@100 rule: 0 fillColor: nil"! - s displayOn: Display at: originPoint. - border displayOn: Display at: originPoint rule: Form under. - d displayOn: Display at: originPoint + (s width @0). - border displayOn: Display at: originPoint + (s width @0) rule: Form under. - - d displayOn: Display at: originPoint + (s extent // (2 @ 1)). - aBitBlt := BitBlt - destForm: Display - sourceForm: s - fillColor: mask - combinationRule: rule - destOrigin: originPoint + (s extent // (2 @ 1)) - sourceOrigin: 0 @ 0 - extent: s extent - clipRect: Display computeBoundingBox. - aBitBlt copyBits. - border - displayOn: Display at: originPoint + (s extent // (2 @ 1)) - rule: Form under. - - "BitBlt exampleAt: 100@100 rule: 0 fillColor: nil" ! Item was added: + ----- Method: BitBlt class>>exampleOn:at:rule:fillColor: (in category 'private') ----- + exampleOn: destinationForm at: originPoint rule: rule fillColor: mask + "This builds a source and destination form and copies the source to the + destination using the specifed rule and mask. It is called from the method + named exampleOne. Only works with Display depth of 1" + + | s d border aBitBlt | + border:=Form extent: 32@32. + border fillBlack. + border fill: (1@1 extent: 30@30) fillColor: Color white. + s := Form extent: 32@32. + s fillWhite. + s fillBlack: (7@7 corner: 25@25). + d := Form extent: 32@32. + d fillWhite. + d fillBlack: (0@0 corner: 32@16). + + s displayOn: destinationForm at: originPoint. + border displayOn: destinationForm at: originPoint rule: Form under. + d displayOn: destinationForm at: originPoint + (s width @0). + border displayOn: destinationForm at: originPoint + (s width @0) rule: Form under. + + d displayOn: destinationForm at: originPoint + (s extent // (2 @ 1)). + aBitBlt := BitBlt + destForm: destinationForm + sourceForm: s + fillColor: mask + combinationRule: rule + destOrigin: originPoint + (s extent // (2 @ 1)) + sourceOrigin: 0 @ 0 + extent: s extent + clipRect: destinationForm computeBoundingBox. + aBitBlt copyBits. + border + displayOn: destinationForm at: originPoint + (s extent // (2 @ 1)) + rule: Form under. + + "BitBlt exampleOn: Display at: 100@100 rule: 0 fillColor: nil" ! Item was changed: ----- Method: BitBlt class>>exampleOne (in category 'examples') ----- exampleOne "This tests BitBlt by displaying the result of all sixteen combination rules that BitBlt is capable of using. (Please see the comment in BitBlt for the meaning of the combination rules). This only works at Display depth of 1. (Rule 15 does not work?)" + | pathClass path displayDepth destination | - | pathClass path displayDepth | + (Display supportsDisplayDepth: 1) + ifTrue: + [displayDepth := Display depth. + Display newDepth: 1. + destination := Display] + ifFalse: + [destination := Form extent: 480 @ 400 depth: 1]. - displayDepth := Display depth. - Display newDepth: 1. (Smalltalk hasClassNamed: #Path) ifTrue: [pathClass := Smalltalk at: #Path] ifFalse: [^self inform: 'MVC class Path not present in this image']. path := pathClass new. 0 to: 3 do: [:i | 0 to: 3 do: [:j | path add: j * 100 @ (i * 75)]]. + destination fillWhite. - Display fillWhite. path := path translateBy: 60 @ 40. + 1 to: 16 do: + [:index | + BitBlt + exampleOn: destination + at: (path at: index) - 1 to: 16 do: [:index | BitBlt - exampleAt: (path at: index) rule: index - 1 fillColor: nil]. + destination ~~ Display ifTrue: + [destination displayOn: Display at: 0 asPoint]. [Sensor anyButtonPressed] whileFalse: []. + displayDepth ifNotNil: [Display newDepth: displayDepth]. - Display newDepth: displayDepth. "BitBlt exampleOne"!

1 0

The Trunk: ToolsTests-pre.85.mcz
by commits＠source.squeak.org 26 Sep '18

26 Sep '18

Patrick Rein uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-pre.85.mcz ==================== Summary ==================== Name: ToolsTests-pre.85 Author: pre Time: 26 September 2018, 4:34:58.153741 pm UUID: 2b48f990-2373-5e47-a8f9-763dcda16e13 Ancestors: ToolsTests-eem.84 Actual change is a fix of the BrowserTest>>#testMessageCategoryList. From my brief study of the source code the test does not make any statement about the sorting of the categories. Could not resist improving the categorization of tests while being at it. =============== Diff against ToolsTests-eem.84 =============== Item was changed: + ----- Method: BrowserTest>>testAlphabetizeMessageCategories (in category 'tests') ----- - ----- Method: BrowserTest>>testAlphabetizeMessageCategories (in category 'as yet unclassified') ----- testAlphabetizeMessageCategories | categories | browser selectSystemCategory: browser class category. self deny: browser alphabetizeMessageCategories. browser selectClass: browser class. browser metaClassIndicated: false. self assert: browser alphabetizeMessageCategories. categories := browser classOrMetaClassOrganizer categories. self assert: (categories select: [:c| c first == $*]) isSorted. self assert: (categories select: [:c| c beginsWith: 'private']) isSorted. self assert: (categories reject: [:c| c first == $* or: [c beginsWith: 'private']]) isSorted. browser metaClassIndicated: true. self assert: browser alphabetizeMessageCategories. self assert: browser classOrMetaClassOrganizer categories isSorted.! Item was changed: + ----- Method: BrowserTest>>testAlphabetizeMessageCategoriesLeavesClassSelected (in category 'tests') ----- - ----- Method: BrowserTest>>testAlphabetizeMessageCategoriesLeavesClassSelected (in category 'as yet unclassified') ----- testAlphabetizeMessageCategoriesLeavesClassSelected browser selectSystemCategory: browser class category. browser selectClassNamed: browser class name. "This is a no-op." browser alphabetizeMessageCategories. self assert: browser selectedClassName = browser class name.! Item was changed: + ----- Method: BrowserTest>>testAlphabetizingMethodsPreservesPlace (in category 'tests - message list') ----- - ----- Method: BrowserTest>>testAlphabetizingMethodsPreservesPlace (in category 'testing - message list') ----- testAlphabetizingMethodsPreservesPlace | oldCategory oldMethod | oldCategory := 'breakpoints'. oldMethod := #toggleBreakOnEntry. browser selectSystemCategory: browser class category. browser selectClass: browser class. browser selectMessageCategoryNamed: oldCategory. browser selectMessageNamed: oldMethod. browser alphabetizeMessageCategories. self assert: browser selectedMessageCategoryName = oldCategory. self assert: browser selectedMessageName = oldMethod.! Item was changed: + ----- Method: BrowserTest>>testAlphabetizingMethodsPreservesPlaceWhenNoMessageCategorySelected (in category 'tests - message list') ----- - ----- Method: BrowserTest>>testAlphabetizingMethodsPreservesPlaceWhenNoMessageCategorySelected (in category 'testing - message list') ----- testAlphabetizingMethodsPreservesPlaceWhenNoMessageCategorySelected browser selectSystemCategory: browser class category. browser selectClass: browser class. browser selectMessageCategoryNamed: nil. browser selectMessageNamed: nil. browser alphabetizeMessageCategories. self assert: browser selectedMessageCategoryName = nil. self assert: browser selectedMessageName = nil.! Item was changed: + ----- Method: BrowserTest>>testAlphabetizingMethodsPreservesPlaceWhenNoMethodSelected (in category 'tests - message list') ----- - ----- Method: BrowserTest>>testAlphabetizingMethodsPreservesPlaceWhenNoMethodSelected (in category 'testing - message list') ----- testAlphabetizingMethodsPreservesPlaceWhenNoMethodSelected | oldCategory | oldCategory := 'breakpoints'. browser selectSystemCategory: browser class category. browser selectClass: browser class. browser selectMessageCategoryNamed: oldCategory. browser selectMessageNamed: nil. browser alphabetizeMessageCategories. self assert: browser selectedMessageCategoryName = oldCategory. self assert: browser selectedMessageName = nil.! Item was changed: + ----- Method: BrowserTest>>testBuildMessageCategoryBrowserEditString (in category 'tests') ----- - ----- Method: BrowserTest>>testBuildMessageCategoryBrowserEditString (in category 'as yet unclassified') ----- testBuildMessageCategoryBrowserEditString | spawn | browser selectSystemCategory: browser class category. browser selectClass: browser class. browser messageCategoryListIndex: 1. browser messageListIndex: 1. spawn := browser buildMessageCategoryBrowserEditString: 'We don''t yet test that we do the right thing with this string!!'. [self assert: spawn selectedSystemCategory = browser selectedSystemCategory. self assert: spawn selectedClass = browser selectedClass. self assert: spawn messageCategoryListIndex = browser messageCategoryListIndex. self assert: spawn messageListIndex = browser messageListIndex] ensure: [ [ToolBuilder default close: spawn topView] valueSupplyingAnswer: true].! Item was changed: + ----- Method: BrowserTest>>testBuildMessageCategoryBrowserEditStringNoCategorySelected (in category 'tests') ----- - ----- Method: BrowserTest>>testBuildMessageCategoryBrowserEditStringNoCategorySelected (in category 'as yet unclassified') ----- testBuildMessageCategoryBrowserEditStringNoCategorySelected browser selectSystemCategory: browser class category. browser selectClass: browser class. browser messageCategoryListIndex: 0. self assert: (browser buildMessageCategoryBrowserEditString: 'foo') isNil.! Item was changed: + ----- Method: BrowserTest>>testChangeMessageCategoriesLeavesClassSelected (in category 'tests') ----- - ----- Method: BrowserTest>>testChangeMessageCategoriesLeavesClassSelected (in category 'as yet unclassified') ----- testChangeMessageCategoriesLeavesClassSelected browser selectSystemCategory: browser class category. browser selectClassNamed: browser class name. "This is a no-op." browser changeMessageCategories: browser classOrMetaClassOrganizer printString. self assert: browser selectedClassName = browser class name.! Item was changed: + ----- Method: BrowserTest>>testClassCommentAnnotation (in category 'tests') ----- - ----- Method: BrowserTest>>testClassCommentAnnotation (in category 'as yet unclassified') ----- testClassCommentAnnotation | annotation | browser selectSystemCategory: browser class category. browser selectClass: browser class. annotation := browser annotationForClassCommentFor: browser class. self assert: (annotation includesSubstring: browser class organization commentStamp). self assert: (annotation includesSubstring: 'class comment for'). self assert: (annotation includesSubstring: browser className).! Item was changed: + ----- Method: BrowserTest>>testClassCommentAnnotationIgnoresParameter (in category 'tests') ----- - ----- Method: BrowserTest>>testClassCommentAnnotationIgnoresParameter (in category 'as yet unclassified') ----- testClassCommentAnnotationIgnoresParameter | annotation | browser selectSystemCategory: browser class category. browser selectClass: browser class. "And the method ignores the parameter:" annotation := browser annotationForClassCommentFor: browser class superclass. self assert: (annotation includesSubstring: browser className).! Item was changed: + ----- Method: BrowserTest>>testClassCommentViewingPersists (in category 'tests') ----- - ----- Method: BrowserTest>>testClassCommentViewingPersists (in category 'as yet unclassified') ----- testClassCommentViewingPersists browser selectSystemCategory: browser class category. self assert: browser classList size > 1 description: 'We use the first TWO classes in the category!!'. browser classListIndex: 1. browser metaClassIndicated: false. browser editComment. browser classListIndex: 2. self assert: browser editSelection = #editComment.! Item was changed: + ----- Method: BrowserTest>>testClassDefinitionAnnotation (in category 'tests') ----- - ----- Method: BrowserTest>>testClassDefinitionAnnotation (in category 'as yet unclassified') ----- testClassDefinitionAnnotation browser selectSystemCategory: browser class category. browser selectClass: browser class. self assert: browser class comment equals: (browser annotationForClassDefinitionFor: browser class). "And the method ignores the parameter:" self assert: browser class comment equals: (browser annotationForClassDefinitionFor: browser class superclass).! Item was changed: + ----- Method: BrowserTest>>testContentsNewClass (in category 'tests') ----- - ----- Method: BrowserTest>>testContentsNewClass (in category 'as yet unclassified') ----- testContentsNewClass browser selectSystemCategory: browser class category. self assert: (Class template: browser selectedSystemCategory) equals: browser contents. self flag: #todo. "I don't know how to test the other half of this: see Browser >> #newClassContents".! Item was changed: + ----- Method: BrowserTest>>testContentsSelection (in category 'tests') ----- - ----- Method: BrowserTest>>testContentsSelection (in category 'as yet unclassified') ----- testContentsSelection browser selectSystemCategory: browser class category. browser selectClass: browser class. "No category or message selected." self assert: browser contentsSelection isEmpty. "Category selected, but no message selected." browser messageCategoryListIndex: 1. browser selectMessageNamed: browser messageList first. self assert: browser contentsSelection isEmpty. "Category and message selected." browser selectMessageNamed: nil. self deny: browser contentsSelection isEmpty.! Item was changed: + ----- Method: BrowserTest>>testCreateHierarchyTreeOf (in category 'tests') ----- - ----- Method: BrowserTest>>testCreateHierarchyTreeOf (in category 'as yet unclassified') ----- testCreateHierarchyTreeOf "Empty." self assert: (browser createHierarchyTreeOf: #()) isEmpty. "Single class." self assert: { Browser -> #() } = (browser createHierarchyTreeOf: { Browser }). "Single class + 1 subclass" self assert: { Browser->{HierarchyBrowser->#()} } = (browser createHierarchyTreeOf: { Browser. HierarchyBrowser. }). "Single class + 2 subclasses" self assert: { Browser->{HierarchyBrowser->#() . FileContentsBrowser->#()} } = (browser createHierarchyTreeOf: { Browser. HierarchyBrowser. FileContentsBrowser. }). "Superclass, class, subclass" self assert: { CodeHolder->{Browser->{HierarchyBrowser->#()}} } = (browser createHierarchyTreeOf: { CodeHolder. Browser. HierarchyBrowser. }). "Two 'unrelated' classes" self assert: {Browser->#() . SmallInteger->#()} = (browser createHierarchyTreeOf: { Browser. SmallInteger }). "Two 'unrelated' classes and a common ancestor" self assert: {Browser->#() . SmallInteger->#() . ProtoObject->#()} = (browser createHierarchyTreeOf: { Browser. SmallInteger. ProtoObject }).! Item was changed: + ----- Method: BrowserTest>>testDefaultClassList (in category 'tests') ----- - ----- Method: BrowserTest>>testDefaultClassList (in category 'as yet unclassified') ----- testDefaultClassList browser selectSystemCategory: nil. self assert: browser defaultClassList isEmpty. browser selectSystemCategory: Browser category. self assert: browser defaultClassList = (SystemOrganization listAtCategoryNamed: Browser category)! Item was changed: + ----- Method: BrowserTest>>testFileOutMessageCategories (in category 'tests') ----- - ----- Method: BrowserTest>>testFileOutMessageCategories (in category 'as yet unclassified') ----- testFileOutMessageCategories | fileName | browser selectSystemCategory: browser class category. browser selectClass: browser class. browser messageCategoryListIndex: 1. "Handcrafted from ClassDescription>>fileOutCategory:asHtml:" fileName := browser selectedClass name, '-', browser selectedMessageCategoryName, FileDirectory dot, 'st'. self deny: (FileDirectory default fileExists: fileName). [browser fileOutMessageCategories. self assert: (FileDirectory default fileExists: fileName). ] ensure: [FileDirectory default deleteFileNamed: fileName].! Item was changed: + ----- Method: BrowserTest>>testFlattenHierarchyTreeOnIndent (in category 'tests') ----- - ----- Method: BrowserTest>>testFlattenHierarchyTreeOnIndent (in category 'as yet unclassified') ----- testFlattenHierarchyTreeOnIndent | flatten | flatten := [:coll | (browser flattenHierarchyTree: (browser createHierarchyTreeOf: coll) on: OrderedCollection new indent: '') asArray ]. "Empty collection." self assert: (flatten value: #()) isEmpty. "Single class." self assert: #('Browser') equals: (flatten value: {Browser}). "Single class + subclass." self assert: #('Browser' ' HierarchyBrowser') equals: (flatten value: {Browser. HierarchyBrowser}). "Single class + 2 subclasses" self assert: #('Browser' ' HierarchyBrowser' ' FileContentsBrowser') equals: (flatten value: { Browser. HierarchyBrowser. FileContentsBrowser. }). "Superclass, class, subclass" self assert: #('CodeHolder' ' Browser' ' HierarchyBrowser') equals: (flatten value: { CodeHolder. Browser. HierarchyBrowser. }). "Two 'unrelated' classes" self assert: #('Browser' 'SmallInteger') equals: (flatten value: { Browser. SmallInteger }). "Two 'unrelated' classes and a common ancestor" self assert: #('Browser' 'SmallInteger' 'ProtoObject') equals: (flatten value: { Browser. SmallInteger. ProtoObject }).! Item was changed: + ----- Method: BrowserTest>>testFlattenHierarchyTreeOnIndentBy (in category 'tests') ----- - ----- Method: BrowserTest>>testFlattenHierarchyTreeOnIndentBy (in category 'as yet unclassified') ----- testFlattenHierarchyTreeOnIndentBy | flatten | flatten := [:coll | (browser flattenHierarchyTree: (browser createHierarchyTreeOf: coll) on: OrderedCollection new indent: '' by: 'x') asArray ]. "Empty collection." self assert: (flatten value: #()) isEmpty. "Single class." self assert: #('Browser') equals: (flatten value: {Browser}). "Single class + subclass." self assert: #('Browser' 'xHierarchyBrowser') equals: (flatten value: {Browser. HierarchyBrowser}). "Single class + 2 subclasses" self assert: #('Browser' 'xHierarchyBrowser' 'xFileContentsBrowser') equals: (flatten value: { Browser. HierarchyBrowser. FileContentsBrowser. }). "Superclass, class, subclass" self assert: #('CodeHolder' 'xBrowser' 'xxHierarchyBrowser') equals: (flatten value: { CodeHolder. Browser. HierarchyBrowser. }). "Two 'unrelated' classes" self assert: #('Browser' 'SmallInteger') equals: (flatten value: { Browser. SmallInteger }). "Two 'unrelated' classes and a common ancestor" self assert: #('Browser' 'SmallInteger' 'ProtoObject') equals: (flatten value: { Browser. SmallInteger. ProtoObject }).! Item was changed: + ----- Method: BrowserTest>>testGetSystemCategoryListIndex (in category 'tests') ----- - ----- Method: BrowserTest>>testGetSystemCategoryListIndex (in category 'as yet unclassified') ----- testGetSystemCategoryListIndex | cat | cat := browser systemCategoryList first. browser selectSystemCategory: cat. self assert: browser systemCategoryListIndex = (browser systemCategoryList indexOf: browser selectedSystemCategory).! Item was changed: + ----- Method: BrowserTest>>testHasClassSelected (in category 'tests') ----- - ----- Method: BrowserTest>>testHasClassSelected (in category 'as yet unclassified') ----- testHasClassSelected browser selectSystemCategory: browser class category. self deny: browser hasClassSelected. browser selectClass: browser class. self assert: browser hasClassSelected. browser selectClass: nil. self deny: browser hasClassSelected. browser selectClassNamed: browser class name asString. self assert: browser hasClassSelected.! Item was changed: + ----- Method: BrowserTest>>testHasMessageCategorySelected (in category 'tests') ----- - ----- Method: BrowserTest>>testHasMessageCategorySelected (in category 'as yet unclassified') ----- testHasMessageCategorySelected browser selectSystemCategory: browser class category. browser selectClass: browser class. browser messageCategoryListIndex: 0. self deny: browser hasMessageCategorySelected. browser messageCategoryListIndex: 1. self assert: browser hasMessageCategorySelected. browser messageCategoryListIndex: 0. self deny: browser hasMessageCategorySelected.! Item was changed: + ----- Method: BrowserTest>>testHasMessageSelected (in category 'tests') ----- - ----- Method: BrowserTest>>testHasMessageSelected (in category 'as yet unclassified') ----- testHasMessageSelected browser selectSystemCategory: browser class category. browser selectClass: browser class. browser messageCategoryListIndex: 1. self deny: browser hasMessageSelected. browser messageListIndex: 0. self deny: browser hasMessageSelected. browser messageListIndex: 1. self assert: browser hasMessageSelected. browser messageListIndex: 0. self deny: browser hasMessageSelected.! Item was changed: + ----- Method: BrowserTest>>testHomeCategory (in category 'tests') ----- - ----- Method: BrowserTest>>testHomeCategory (in category 'as yet unclassified') ----- testHomeCategory "This also 'just happens' to test #selectOriginalCategoryForCurrentMethod. It's not appropriate to directly test a private method. (It's a private method because its comment says so, not its category.)" browser selectSystemCategory: browser class category. browser selectClass: browser class. browser messageCategoryListIndex: 0. "Select -- all --" browser selectMessageNamed: browser messageList first. browser showHomeCategory. self assert: browser selectedMessageCategoryName = (browser class organization categoryOfElement: browser selectedMessageName).! Item was changed: + ----- Method: BrowserTest>>testKeepMethodSelectedWhenChangingClass (in category 'tests - message list') ----- - ----- Method: BrowserTest>>testKeepMethodSelectedWhenChangingClass (in category 'testing - message list') ----- testKeepMethodSelectedWhenChangingClass browser selectSystemCategory: SequenceableCollection category. browser selectClass: SequenceableCollection. browser selectMessageNamed: #add:. self assert: browser selectedMessageName = #add:. "Even though we have no message category selected, stay looking at the #add: method." browser selectClass: Collection. self assert: browser selectedMessageName = #add:.! Item was changed: + ----- Method: BrowserTest>>testLabelStringAlwaysShowsBrowserType (in category 'tests') ----- - ----- Method: BrowserTest>>testLabelStringAlwaysShowsBrowserType (in category 'as yet unclassified') ----- testLabelStringAlwaysShowsBrowserType browser selectSystemCategory: browser class category. self assert: (browser labelString includesSubstring: 'System Browser'). browser selectClass: browser class. self assert: (browser labelString includesSubstring: 'System Browser'). browser selectSystemCategory: DependencyBrowser category. browser selectClass: DependencyBrowser. self assert: (browser labelString includesSubstring: 'System Browser').! Item was changed: + ----- Method: BrowserTest>>testLabelStringOfNewBrowserShowsBrowserType (in category 'tests') ----- - ----- Method: BrowserTest>>testLabelStringOfNewBrowserShowsBrowserType (in category 'as yet unclassified') ----- testLabelStringOfNewBrowserShowsBrowserType self assert: 'System Browser' equals: browser labelString.! Item was changed: + ----- Method: BrowserTest>>testLabelStringShowsBrowsedClassName (in category 'tests') ----- - ----- Method: BrowserTest>>testLabelStringShowsBrowsedClassName (in category 'as yet unclassified') ----- testLabelStringShowsBrowsedClassName browser selectSystemCategory: DependencyBrowser category. browser selectClass: DependencyBrowser. self assert: (browser labelString includesSubstring: DependencyBrowser name).! Item was changed: + ----- Method: BrowserTest>>testMessageCatListSingleton (in category 'tests') ----- - ----- Method: BrowserTest>>testMessageCatListSingleton (in category 'as yet unclassified') ----- testMessageCatListSingleton | catName | browser selectSystemCategory: browser class category. browser selectClass: browser class. self assert: browser messageCatListSingleton = #(). catName := browser messageCategoryList second. browser selectMessageCategoryNamed: catName. self assert: browser messageCatListSingleton = {catName}.! Item was changed: + ----- Method: BrowserTest>>testMessageCategoryList (in category 'tests') ----- - ----- Method: BrowserTest>>testMessageCategoryList (in category 'as yet unclassified') ----- testMessageCategoryList browser selectSystemCategory: browser class category. browser selectClass: browser class. + self assert: ({ClassOrganizer allCategory}, browser class organization categories) sorted equals: browser messageCategoryList sorted. - self assert: browser messageCategoryList = ({ClassOrganizer allCategory}, browser class organization categories). browser selectClass: nil. + self assert: #() equals: browser messageCategoryList. - self assert: browser messageCategoryList = #(). browser selectClass: browser class. browser metaClassIndicated: true. + self assert: ({ClassOrganizer allCategory}, browser class classSide organization categories) equals: browser messageCategoryList.! - self assert: browser messageCategoryList = ({ClassOrganizer allCategory}, browser class classSide organization categories).! Item was changed: + ----- Method: BrowserTest>>testMessageCategoryListIndex (in category 'tests') ----- - ----- Method: BrowserTest>>testMessageCategoryListIndex (in category 'as yet unclassified') ----- testMessageCategoryListIndex browser selectSystemCategory: browser class category. browser selectClass: browser class. self assert: browser messageCategoryList size > 1 description: 'Sanity check: test refers to first two categories.'. browser messageCategoryListIndex: 0. self assert: browser selectedMessageCategoryName isNil. browser messageCategoryListIndex: 1. self assert: browser selectedMessageCategoryName = browser messageCategoryList first. browser messageListIndex: 1. browser messageCategoryListIndex: 2. self assert: browser selectedMessageName isNil description: 'Changing category deselects method'.! Item was changed: + ----- Method: BrowserTest>>testMessageList (in category 'tests') ----- - ----- Method: BrowserTest>>testMessageList (in category 'as yet unclassified') ----- testMessageList browser selectSystemCategory: browser class category. browser selectClass: nil. self assert: browser messageList isEmpty. browser selectClass: browser class. browser messageCategoryListIndex: 0. self assert: browser messageList = browser classOrMetaClassOrganizer allMethodSelectors. browser messageCategoryListIndex: 1. "-- all --" self assert: browser messageList = browser classOrMetaClassOrganizer allMethodSelectors. browser messageCategoryListIndex: 2. self assert: browser messageList = (browser classOrMetaClassOrganizer listAtCategoryNumber: 1). browser metaClassIndicated: true. browser messageCategoryListIndex: 0. self assert: browser messageList = browser classOrMetaClassOrganizer allMethodSelectors. browser messageCategoryListIndex: 1. "-- all --" self assert: browser messageList = browser classOrMetaClassOrganizer allMethodSelectors. browser messageCategoryListIndex: 2. self assert: browser messageList = (browser classOrMetaClassOrganizer listAtCategoryNumber: 1).! Item was changed: + ----- Method: BrowserTest>>testMetaClassIndicatedFalseOnExistingClass (in category 'tests') ----- - ----- Method: BrowserTest>>testMetaClassIndicatedFalseOnExistingClass (in category 'as yet unclassified') ----- testMetaClassIndicatedFalseOnExistingClass browser selectSystemCategory: browser class category. browser selectClass: browser class. browser metaClassIndicated: false. self assert: browser messageListIndex = 0. self assert: browser messageCategoryListIndex = 0. self deny: browser contents isEmpty. "It shows the class definition." self deny: browser messageCategoryList isEmpty. self assert: browser messageList = (browser class organization allMethodSelectors). self assert: browser editSelection = #editClass.! Item was changed: + ----- Method: BrowserTest>>testMetaClassIndicatedNotOnNoClass (in category 'tests') ----- - ----- Method: BrowserTest>>testMetaClassIndicatedNotOnNoClass (in category 'as yet unclassified') ----- testMetaClassIndicatedNotOnNoClass browser selectSystemCategory: browser class category. browser selectClass: nil. browser metaClassIndicated: false. self assert: browser messageListIndex = 0. self assert: browser messageCategoryListIndex = 0. self deny: browser contents isEmpty. "It shows the class definition." self assert: browser messageCategoryList isEmpty. self assert: browser messageList isEmpty. self assert: browser editSelection = #newClass.! Item was changed: + ----- Method: BrowserTest>>testMetaClassIndicatedNotWithNoSystemCategorySelected (in category 'tests') ----- - ----- Method: BrowserTest>>testMetaClassIndicatedNotWithNoSystemCategorySelected (in category 'as yet unclassified') ----- testMetaClassIndicatedNotWithNoSystemCategorySelected browser selectSystemCategory: nil. browser metaClassIndicated: false. self assert: browser messageListIndex = 0. self assert: browser messageCategoryListIndex = 0. self assert: browser contents isEmpty. "It shows the Class definition." self assert: browser messageCategoryList isEmpty. self assert: browser editSelection = #none.! Item was changed: + ----- Method: BrowserTest>>testMetaClassIndicatedOnNoClass (in category 'tests') ----- - ----- Method: BrowserTest>>testMetaClassIndicatedOnNoClass (in category 'as yet unclassified') ----- testMetaClassIndicatedOnNoClass browser selectSystemCategory: browser class category. browser selectClass: nil. browser metaClassIndicated: true. self assert: browser messageListIndex = 0. self assert: browser messageCategoryListIndex = 0. self assert: browser contents isEmpty. self assert: browser messageCategoryList isEmpty. self assert: browser messageList isEmpty. self assert: browser editSelection = #none.! Item was changed: + ----- Method: BrowserTest>>testMetaClassIndicatedTrueOnExistingClass (in category 'tests') ----- - ----- Method: BrowserTest>>testMetaClassIndicatedTrueOnExistingClass (in category 'as yet unclassified') ----- testMetaClassIndicatedTrueOnExistingClass browser selectSystemCategory: browser class category. browser selectClass: browser class. browser metaClassIndicated: true. self assert: browser messageListIndex = 0. self assert: browser messageCategoryListIndex = 0. self deny: browser contents isEmpty. "It shows the Class definition." self deny: browser messageCategoryList isEmpty. self assert: browser messageList = (browser class classSide organization allMethodSelectors).! Item was changed: + ----- Method: BrowserTest>>testMetaClassIndicatedWithNoSystemCategorySelected (in category 'tests') ----- - ----- Method: BrowserTest>>testMetaClassIndicatedWithNoSystemCategorySelected (in category 'as yet unclassified') ----- testMetaClassIndicatedWithNoSystemCategorySelected browser selectSystemCategory: nil. browser metaClassIndicated: true. self assert: browser messageListIndex = 0. self assert: browser messageCategoryListIndex = 0. self assert: browser contents isEmpty. "It shows the Class definition." self assert: browser messageCategoryList isEmpty. self assert: browser editSelection = #none.! Item was changed: + ----- Method: BrowserTest>>testRawMessageCategoryList (in category 'tests') ----- - ----- Method: BrowserTest>>testRawMessageCategoryList (in category 'as yet unclassified') ----- testRawMessageCategoryList browser selectSystemCategory: browser class category. browser selectClass: browser class. self assert: browser rawMessageCategoryList = browser class organization categories. browser selectClass: nil. self assert: browser rawMessageCategoryList = #(). browser selectClass: browser class. browser metaClassIndicated: true. self assert: browser rawMessageCategoryList = browser class classSide organization categories.! Item was changed: + ----- Method: BrowserTest>>testSelectCategoryForClass (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectCategoryForClass (in category 'as yet unclassified') ----- testSelectCategoryForClass browser selectCategoryForClass: Browser. self assert: browser selectedSystemCategory = Browser category. browser selectCategoryForClass: TestCase. self assert: browser selectedSystemCategory = TestCase category.! Item was changed: + ----- Method: BrowserTest>>testSelectClass (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClass (in category 'as yet unclassified') ----- testSelectClass browser selectSystemCategory: browser class category. browser selectClass: browser class. self assert: browser hasClassSelected. browser selectClass: nil. self deny: browser hasClassSelected.! Item was changed: + ----- Method: BrowserTest>>testSelectClassEditSelectionNoClass (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassEditSelectionNoClass (in category 'as yet unclassified') ----- testSelectClassEditSelectionNoClass browser selectSystemCategory: browser class category. browser selectClass: nil. self assert: browser editSelection = #newClass.! Item was changed: + ----- Method: BrowserTest>>testSelectClassEditSelectionWhenCommentSelected (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassEditSelectionWhenCommentSelected (in category 'as yet unclassified') ----- testSelectClassEditSelectionWhenCommentSelected | editSelection | browser selectSystemCategory: Heap category. browser selectClass: Heap. browser editComment. browser messageListIndex: 0. browser messageListIndex: 0. editSelection := browser editSelection. browser selectClass: Interval. self assert: browser editSelection = editSelection.! Item was changed: + ----- Method: BrowserTest>>testSelectClassEditSelectionWhenEditingClass (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassEditSelectionWhenEditingClass (in category 'as yet unclassified') ----- testSelectClassEditSelectionWhenEditingClass browser selectSystemCategory: Heap category. browser selectClass: Heap. browser metaClassIndicated: false. browser messageListIndex: 0. browser messageListIndex: 0. browser selectClass: Interval. self assert: browser editSelection = #editClass.! Item was changed: + ----- Method: BrowserTest>>testSelectClassEditSelectionWhenEditingMetaclass (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassEditSelectionWhenEditingMetaclass (in category 'as yet unclassified') ----- testSelectClassEditSelectionWhenEditingMetaclass browser selectSystemCategory: Heap category. browser selectClass: Heap. browser metaClassIndicated: true. browser messageListIndex: 0. browser messageListIndex: 0. browser selectClass: Interval. self assert: browser editSelection = #editClass.! Item was changed: + ----- Method: BrowserTest>>testSelectClassEditSelectionWhenMsgSelected (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassEditSelectionWhenMsgSelected (in category 'as yet unclassified') ----- testSelectClassEditSelectionWhenMsgSelected browser selectSystemCategory: Heap category. browser selectClass: Heap. browser selectMessageCategoryNamed: 'adding'. browser messageListIndex: (browser messageList indexOf: #add:). browser selectClass: Interval. self assert: browser editSelection = #editMessage.! Item was changed: + ----- Method: BrowserTest>>testSelectClassEditSelectionWhenNoMsgButCatSelected (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassEditSelectionWhenNoMsgButCatSelected (in category 'as yet unclassified') ----- testSelectClassEditSelectionWhenNoMsgButCatSelected browser selectSystemCategory: Heap category. browser selectClass: Heap. browser selectMessageCategoryNamed: 'adding'. browser messageListIndex: 0. browser selectClass: Interval. self assert: browser editSelection = #newMessage.! Item was changed: + ----- Method: BrowserTest>>testSelectClassNamed (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassNamed (in category 'as yet unclassified') ----- testSelectClassNamed browser selectSystemCategory: browser class category. browser selectClassNamed: browser class name. self assert: browser selectedClassName = browser class name. browser selectClassNamed: nil. self assert: browser selectedClassName isNil. browser selectClassNamed: browser class name asString. self assert: browser selectedClassName = browser class name.! Item was changed: + ----- Method: BrowserTest>>testSelectClassNamedPreservesPlace (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassNamedPreservesPlace (in category 'as yet unclassified') ----- testSelectClassNamedPreservesPlace | commonCategory commonSelector otherClass | browser selectSystemCategory: browser class category. otherClass := HierarchyBrowser. "Unlikely to move out of Browser's package!!" browser selectClassNamed: browser class name. commonCategory := (browser class organization categories intersection: otherClass organization categories) detect: [ :each | each == #'class list' ]. commonSelector := #classList. browser selectMessageCategoryNamed: commonCategory. browser selectMessageNamed: commonSelector. browser selectClass: otherClass. self assert: browser selectedClassName = otherClass name. self assert: browser selectedMessageCategoryName = commonCategory. self assert: browser selectedMessageName = commonSelector.! Item was changed: + ----- Method: BrowserTest>>testSelectClassReselectsMessage (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassReselectsMessage (in category 'as yet unclassified') ----- testSelectClassReselectsMessage "Colections-Sequences contains a number of classes with similar protocols. In particular, several classes have a method called #add: in a category 'adding'." | selectedMsgCat selectedMethod | selectedMsgCat := 'adding'. selectedMethod := #add:. browser selectSystemCategory: Heap category. browser selectClass: Heap. browser selectMessageCategoryNamed: selectedMsgCat. browser messageListIndex: (browser messageList indexOf: selectedMethod). browser selectClass: Interval. self assert: browser selectedMessageCategoryName = selectedMsgCat. self assert: browser selectedMessageName = selectedMethod.! Item was changed: + ----- Method: BrowserTest>>testSelectClassSelectsClass (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassSelectsClass (in category 'as yet unclassified') ----- testSelectClassSelectsClass browser selectSystemCategory: browser class category. browser selectClass: browser class. self assert: browser classListIndex ~= 0. self assert: browser selectedClass = browser class. self assert: browser selectedClassName = browser class name.! Item was changed: + ----- Method: BrowserTest>>testSelectClassWhenNothingSelected (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectClassWhenNothingSelected (in category 'as yet unclassified') ----- testSelectClassWhenNothingSelected self assert: browser editSelection = #none.! Item was changed: + ----- Method: BrowserTest>>testSelectMessageCategoryEditSelection (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectMessageCategoryEditSelection (in category 'as yet unclassified') ----- testSelectMessageCategoryEditSelection browser selectSystemCategory: browser class category. browser selectClass: browser class. browser selectMessageCategoryNamed: browser messageCategoryList first. self assert: browser editSelection = #newMessage.! Item was changed: + ----- Method: BrowserTest>>testSelectMessageCategoryEditSelectionNoMsgCat (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectMessageCategoryEditSelectionNoMsgCat (in category 'as yet unclassified') ----- testSelectMessageCategoryEditSelectionNoMsgCat browser selectSystemCategory: browser class category. browser selectClass: browser class. . browser messageCategoryListIndex: 0. self assert: browser editSelection = #editClass.! Item was changed: + ----- Method: BrowserTest>>testSelectMessageCategoryEditSelectionNoMsgCatNoClass (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectMessageCategoryEditSelectionNoMsgCatNoClass (in category 'as yet unclassified') ----- testSelectMessageCategoryEditSelectionNoMsgCatNoClass browser selectSystemCategory: browser class category. browser selectClass: nil. . browser messageCategoryListIndex: 0. self assert: browser editSelection = #newClass.! Item was changed: + ----- Method: BrowserTest>>testSelectMessageCategoryNamed (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectMessageCategoryNamed (in category 'as yet unclassified') ----- testSelectMessageCategoryNamed | catName | browser selectSystemCategory: browser class category. browser selectClass: browser class. catName := browser messageCategoryList anyOne. browser selectMessageCategoryNamed: catName. self assert: browser selectedMessageCategoryName = catName.! Item was changed: + ----- Method: BrowserTest>>testSelectMessageNamed (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectMessageNamed (in category 'as yet unclassified') ----- testSelectMessageNamed browser selectSystemCategory: browser class category. browser selectClass: browser class. browser messageCategoryListIndex: 1. browser selectMessageNamed: browser messageList first. self assert: browser selectedMessageName = browser messageList first. self assert: browser messageListIndex = 1. browser selectMessageNamed: nil. self assert: browser selectedMessageName isNil. self assert: browser messageListIndex = 0. browser selectMessageNamed: browser messageList second. self assert: browser selectedMessageName = browser messageList second. self assert: browser messageListIndex = 2. browser selectMessageNamed: browser messageList first asString. self assert: browser selectedMessageName = browser messageList first. self assert: browser messageListIndex = 1.! Item was changed: + ----- Method: BrowserTest>>testSelectedClass (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectedClass (in category 'as yet unclassified') ----- testSelectedClass browser selectSystemCategory: browser class category. browser classListIndex: 0. self assert: browser classListIndex = 0. self assert: browser selectedClass isNil. browser classListIndex: 1. self assert: browser classListIndex = 1. self assert: browser selectedClass notNil.! Item was changed: + ----- Method: BrowserTest>>testSelectedEnvironment (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectedEnvironment (in category 'as yet unclassified') ----- testSelectedEnvironment browser selectSystemCategory: browser class category. self assert: browser selectedEnvironment = Smalltalk globals. "browser selectSystemCategory: nil. self assert: browser selectedEnvironment isNil." "selectedClass would not work in a hierarchy browser that has to display classes from different environments (because the correct categories might be missing)"! Item was changed: + ----- Method: BrowserTest>>testSelectedSystemCategory (in category 'tests') ----- - ----- Method: BrowserTest>>testSelectedSystemCategory (in category 'as yet unclassified') ----- testSelectedSystemCategory | cat newCat | cat := browser systemCategoryList first. newCat := browser systemCategoryList second. browser selectSystemCategory: cat. self assert: browser selectedSystemCategory = cat. browser systemCategoryListIndex: 2. self assert: browser selectedSystemCategory = newCat.! Item was changed: + ----- Method: BrowserTest>>testShowHomeCategory (in category 'tests') ----- - ----- Method: BrowserTest>>testShowHomeCategory (in category 'as yet unclassified') ----- testShowHomeCategory browser selectSystemCategory: browser class category. browser selectClass: browser class. "Select '--all--'." browser selectMessageCategoryNamed: browser messageCategoryList first. browser selectMessageNamed: browser messageList first. browser showHomeCategory. self assert: browser messageCategoryListIndex > 1.! Item was changed: + ----- Method: BrowserTest>>testSpawnHierarchy (in category 'tests') ----- - ----- Method: BrowserTest>>testSpawnHierarchy (in category 'as yet unclassified') ----- testSpawnHierarchy | spawn | browser selectSystemCategory: browser class category. browser selectClass: browser class. browser selectMessageCategoryNamed: browser messageCategoryList last. browser messageListIndex: (browser messageList size). spawn := browser spawnHierarchy. [self assert: spawn selectedSystemCategory = browser selectedSystemCategory. self assert: spawn selectedClassName = browser selectedClassName. self assert: spawn selectedMessageCategoryName = browser selectedMessageCategoryName. self assert: spawn messageListIndex = browser messageListIndex.] ensure: [ ToolBuilder default close: spawn topView ].! Item was changed: + ----- Method: BrowserTest>>testSystemCategoryListIndex (in category 'tests') ----- - ----- Method: BrowserTest>>testSystemCategoryListIndex (in category 'as yet unclassified') ----- testSystemCategoryListIndex | oldCat | browser systemCategoryListIndex: 1. oldCat := browser selectedSystemCategory. self assert: browser selectedSystemCategory = browser systemCategoryList first. browser systemCategoryListIndex: 2. self deny: browser selectedSystemCategory = oldCat. self assert: browser selectedSystemCategory = browser systemCategoryList second.!

1 0

The Trunk: ToolsTests-eem.84.mcz
by commits＠source.squeak.org 24 Sep '18

24 Sep '18

Eliot Miranda uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-eem.84.mcz ==================== Summary ==================== Name: ToolsTests-eem.84 Author: eem Time: 24 September 2018, 3:18:21.652672 pm UUID: 249d8808-6c0c-4dd5-99fc-b2eb25d6fefe Ancestors: ToolsTests-eem.83 Fix testAlphabetizeMessageCategories; sorting now separates out extensions, non-private categories and private categories. =============== Diff against ToolsTests-eem.83 =============== Item was changed: ----- Method: BrowserTest>>testAlphabetizeMessageCategories (in category 'as yet unclassified') ----- testAlphabetizeMessageCategories + | categories | browser selectSystemCategory: browser class category. self deny: browser alphabetizeMessageCategories. browser selectClass: browser class. browser metaClassIndicated: false. self assert: browser alphabetizeMessageCategories. + categories := browser classOrMetaClassOrganizer categories. + self assert: (categories select: [:c| c first == $*]) isSorted. + self assert: (categories select: [:c| c beginsWith: 'private']) isSorted. + self assert: (categories reject: [:c| c first == $* or: [c beginsWith: 'private']]) isSorted. - self assert: browser classOrMetaClassOrganizer categories isSorted. browser metaClassIndicated: true. self assert: browser alphabetizeMessageCategories. self assert: browser classOrMetaClassOrganizer categories isSorted.!

1 0

The Trunk: Collections-eem.806.mcz
by commits＠source.squeak.org 18 Sep '18

18 Sep '18

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.806.mcz ==================== Summary ==================== Name: Collections-eem.806 Author: eem Time: 18 September 2018, 11:54:09.798435 am UUID: 300fdef5-d563-4e05-b16c-f82c15cc005f Ancestors: Collections-cmm.805 Fix String>>numArgs for _: keywords (to accompany Compiler-eem.394) =============== Diff against Collections-cmm.805 =============== Item was changed: ----- Method: String>>numArgs (in category 'accessing') ----- 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. It is intended mostly for the assistance of spelling correction." + | numColons index size c | - | numColons index size | (size := self size) = 0 ifTrue: [ ^-1 ]. index := 1. (self at: index) isSpecial ifTrue: [ 2 to: size do: [ :i | (self at: i) isSpecial ifFalse: [ ^-1 ] ]. ^1 ]. self canBeToken ifFalse: [ ^-1 ]. "Fast colon count" numColons := 0. [ + ((c := self at: index) isLetter + or: [ c = $_ and: [ Scanner prefAllowUnderscoreSelectors ] ]) ifFalse: + [ ^-1 ]. + (index := (self indexOf: $: startingAt: index) + 1) > 1 ifFalse: + [ numColons = 0 ifTrue: [ ^0 ]. + ^-1 ]. - (self at: index) isLetter ifFalse: [ ^-1 ]. - (index := (self indexOf: $: startingAt: index) + 1) > 1 ifFalse: [ - numColons = 0 ifTrue: [ ^0 ]. - ^-1 ]. numColons := numColons + 1. index <= size ] whileTrue. ^numColons!

1 0

The Trunk: Compiler-eem.394.mcz
by commits＠source.squeak.org 18 Sep '18

18 Sep '18

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.394.mcz ==================== Summary ==================== Name: Compiler-eem.394 Author: eem Time: 18 September 2018, 11:01:49.239937 am UUID: 446b4a31-2799-41fa-82d4-e503a94fb360 Ancestors: Compiler-bf.393 Fix a bug in Scanner>>xUnderscore that prevented parsing e.g. method: p _: q _: r ^'cool' =============== Diff against Compiler-bf.393 =============== Item was changed: ----- Method: Scanner>>xUnderscore (in category 'multi-character scans') ----- xUnderscore + self allowUnderscoreAssignments ifTrue: + "Figure out if x _foo (no space between _ and foo) should be a selector or assignment." + [(self allowUnderscoreSelectors + and: [#(xLetter xDigit xUnderscore xColon) includes: (self typeTableAt: aheadChar)]) + ifFalse: + [self step. + tokenType := #leftArrow. + ^token := #'_']]. + self allowUnderscoreSelectors ifTrue: + [^self xLetter]. - self allowUnderscoreAssignments ifTrue:[ | type | - "Figure out if x _foo (no space between _ and foo) - should be a selector or assignment" - (((type := self typeTableAt: aheadChar) == #xLetter - or:[type == #xDigit or:[type == #xUnderscore]]) - and:[self allowUnderscoreSelectors]) ifFalse:[ - self step. - tokenType := #leftArrow. - ^token := #'_' - ]. - ]. - self allowUnderscoreSelectors ifTrue:[^self xLetter]. ^self xIllegal!

1 0

The Trunk: WebClient-Core-pre.117.mcz
by commits＠source.squeak.org 17 Sep '18

17 Sep '18

Patrick Rein uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-pre.117.mcz ==================== Summary ==================== Name: WebClient-Core-pre.117 Author: pre Time: 17 September 2018, 4:01:07.501347 pm UUID: 7908aa6f-cf8c-dd40-b6f3-6efb2b8042d1 Ancestors: WebClient-Core-ul.116 Fixes an issue with chunked encoded WebMessages which resulted in already decoded content to be decoded again. While not perfect it is important to allow for larger GitHub repositories such as Metacello. =============== Diff against WebClient-Core-ul.116 =============== Item was added: + ----- Method: WebMessage>>streamDirectlyFrom:to:size:progress: (in category 'streaming') ----- + streamDirectlyFrom: srcStream to: dstStream size: sizeOrNil progress: progressBlock + "Stream the content of srcStream to dstStream. + If a size is given, stream that many elements, otherwise stream up to the end." + + | buffer remaining size totalRead | + sizeOrNil = 0 ifTrue:[^self]. + + buffer := (srcStream isBinary ifTrue:[ByteArray] ifFalse:[String]) new: 4096. + totalRead := 0. + size := sizeOrNil ifNil:[0]. + [(sizeOrNil == nil and:[srcStream atEnd not]) or:[totalRead < size]] whileTrue:[ + progressBlock ifNotNil:[progressBlock value: sizeOrNil value: totalRead]. + remaining := sizeOrNil ifNil:[99999] ifNotNil:[sizeOrNil - totalRead]. + remaining > buffer size ifTrue:[remaining := buffer size]. + buffer := srcStream next: remaining into: buffer startingAt: 1. + dstStream nextPutAll: (remaining < buffer size + ifTrue:[(buffer copyFrom: 1 to: remaining)] + ifFalse:[buffer]). + totalRead := totalRead + buffer size. + ]. + dstStream flush. + progressBlock ifNotNil:[progressBlock value: sizeOrNil value: totalRead].! Item was changed: ----- Method: WebMessage>>streamFrom:to:size:progress: (in category 'streaming') ----- streamFrom: srcStream to: dstStream size: sizeOrNil progress: progressBlock + "Stream the content of srcStream to dstStream applying any conversations necessary." - "Stream the content of srcStream to dstStream. - If a size is given, stream that many elements, otherwise stream up to the end." - | buffer totalRead remaining size | (self headerAt: 'transfer-encoding') ifNotEmpty:[:encoding| encoding = 'chunked' + ifTrue:[ + self flag: #todo. " Ideally this would use the WebChunkedStream --pre" + ^self chunkFrom: srcStream to: dstStream progress: progressBlock] - ifTrue:[^self chunkFrom: srcStream to: dstStream progress: progressBlock] ifFalse:[self error: 'Unknown transfer-encoding: ', encoding]]. + ^ self streamDirectlyFrom: srcStream to: dstStream size: sizeOrNil progress: progressBlock.! - sizeOrNil = 0 ifTrue:[^self]. - - buffer := (srcStream isBinary ifTrue:[ByteArray] ifFalse:[String]) new: 4096. - totalRead := 0. - size := sizeOrNil ifNil:[0]. - [(sizeOrNil == nil and:[stream atEnd not]) or:[totalRead < size]] whileTrue:[ - progressBlock ifNotNil:[progressBlock value: sizeOrNil value: totalRead]. - remaining := sizeOrNil ifNil:[99999] ifNotNil:[sizeOrNil - totalRead]. - remaining > buffer size ifTrue:[remaining := buffer size]. - buffer := srcStream next: remaining into: buffer startingAt: 1. - dstStream nextPutAll: (remaining < buffer size - ifTrue:[(buffer copyFrom: 1 to: remaining)] - ifFalse:[buffer]). - totalRead := totalRead + buffer size. - ]. - dstStream flush. - progressBlock ifNotNil:[progressBlock value: sizeOrNil value: totalRead].! Item was changed: ----- Method: WebMessage>>streamTo:size:progress: (in category 'streaming') ----- streamTo: dstStream size: size progress: aBlock "Stream from the receiver's socket stream to the given destination stream. Inbound. Can be used on both request/response depending on whether it is utilized by WebClient or WebServer." content ifNil:[ self streamFrom: stream to: dstStream size: size progress: aBlock ] ifNotNil:[ + self streamDirectlyFrom: content readStream to: dstStream size: size progress: aBlock - self streamFrom: content readStream to: dstStream size: size progress: aBlock ].!

1 0

The Trunk: Help-Squeak-Project-ul.59.mcz
by commits＠source.squeak.org 15 Sep '18

15 Sep '18

Levente Uzonyi uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-ul.59.mcz ==================== Summary ==================== Name: Help-Squeak-Project-ul.59 Author: ul Time: 8 September 2018, 11:15:24.834661 am UUID: c59c0086-a42d-402d-a785-47a10356d36e Ancestors: Help-Squeak-Project-cmm.58 - up-to-date OCompletition load script =============== Diff against Help-Squeak-Project-cmm.58 =============== Item was changed: ----- Method: SqueakProjectHelp class>>extendingTheSystem (in category 'pages') ----- extendingTheSystem "This method was automatically generated. Edit it using:" "SqueakProjectHelp edit: #extendingTheSystem" ^(HelpTopic title: 'Extending The System' contents: 'SqueakMap is an integrated catalog of external applications for Squeak. It is accessible from the "Apps" menu. This catalog does not host the projects, it merely documents the load scripts required to correctly bring them into the image. Many SqueakMap packages use Installer, which defines several packages in its package-definitions protocol. Any of these can be loaded with an expression like the following: Installer new merge: #openGL Change #openGL to the selector name of the package you want to load. The latest version of that package and all of its prerequisites will be merged into the image. Merging a package is no different from loading it unless the package is already loaded, in which case it is upgraded to the latest version in a way that preserves any local changes you may already have made. --------------- This remainder of this workspace documents load-scripts for packages that are not documented in either SqueakMap or Installer. OCompletion "Provides source code completion as you type" + (Installer ss project: ''OCompletion'') + addPackage: ''OcompletionSqueakCompatibility''; + addPackage: ''Ocompletion''; + install. - (Installer ss project: ''OCompletion'') install: ''Ocompletion''. (Smalltalk at: #ECToolSet) register. (Smalltalk at: #ToolSet) default: (Smalltalk at: #ECToolSet). Omnibrowser "Including Refactoring engine" (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfOmniBrowser''. ((Smalltalk at: #ConfigurationOfOmniBrowser) project perform: #lastVersion) load: #( Dev ). Pier CMS "Pier CMS: http://www.piercms.com" (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfPier2''. (Smalltalk at: #ConfigurationOfPier2) load. (Installer lukas project: ''pier2'') install: ''Pier-Blog''. (Installer lukas project: ''pier2'') install: ''Pier-Book''. (Installer lukas project: ''pier2addons'') install: ''Pier-Setup''. (Smalltalk at: #PRDistribution) new register. Open Cobalt "http://opencobalt.org (Best to run this from an image in an open cobalt directory)" Installer ss project: ''TweakCore''; install: ''update''. [Installer ss project: ''TweakExtras''; install: ''update''] on: (Smalltalk at: #CUnsynchronizedModification) do: [:ex | ex resume]. Installer cobalt project: ''Tweak''; answer: ''Would you like to conserve memory at all costs?'' with: true; answer: ''Password for interactive VNC connections?'' with: ''cobalt''; answer: ''Would you like to add the RFBServer to the World open menu?'' with: true; install: ''update'' !! + ]style[(9 309 19 252 6 126 8 237 11 270 11 210 8 386 11 547)Rcode://SMLoaderPlus open;,,Rcode://ToolSet browseClass: Installer category: ''package-definitions'';,,i,,u,,bu,,bu,,bu,,bu,!!' readStream nextChunkText) - ]style[(9 309 19 252 6 126 8 237 11 209 11 210 8 386 11 547)Rcode://SMLoaderPlus open;,,Rcode://ToolSet browseClass: Installer category: ''package-definitions'';,,i,,u,,bu,,bu,,bu,,bu,!!' readStream nextChunkText) key: #extendingTheSystem!

1 0

The Trunk: Collections-topa.807.mcz
by commits＠source.squeak.org 14 Sep '18

14 Sep '18

Tobias Pape uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-topa.807.mcz ==================== Summary ==================== Name: Collections-topa.807 Author: topa Time: 14 September 2018, 9:37:43.484317 am UUID: fae1c8b3-8396-4790-a491-4e51b047bc49 Ancestors: Collections-topa.806 Revert for consistency and, subsequently, speed. The correct fix is not as trivial and not fit in the beta phase. Sorry, Ron. =============== Diff against Collections-topa.806 =============== Item was changed: ----- Method: Character class>>separators (in category 'instance creation') ----- separators + "Answer a collection of the standard ASCII separator characters." - "Answer a collection of space-like separator characters. - Note that we do not consider spaces in >8bit code points yet. - " + ^ #(32 "space" - ^ #(9 "tab" - 10 "line feed" - 12 "form feed" 13 "cr" + 9 "tab" + 10 "line feed" + 12 "form feed") + collect: [:v | Character value: v] as: String! - 32 "space" - 160 "non-breaking space, see Unicode Z general category") - collect: [:v | Character value: v] as: String - " To be considered: - 16r1680 OGHAM SPACE MARK - 16r2000 EN QUAD - 16r2001 EM QUAD - 16r2002 EN SPACE - 16r2003 EM SPACE - 16r2004 THREE-PER-EM SPACE - 16r2005 FOUR-PER-EM SPACE - 16r2006 SIX-PER-EM SPACE - 16r2007 FIGURE SPACE - 16r2008 PUNCTUATION SPACE - 16r2009 THIN SPACE - 16r200A HAIR SPACE - 16r2028 LINE SEPARATOR - 16r2029 PARAGRAPH SEPARATOR - 16r202F NARROW NO-BREAK SPACE - 16r205F MEDIUM MATHEMATICAL SPACE - 16r3000 IDEOGRAPHIC SPACE - "!

1 0

The Trunk: Collections-topa.806.mcz
by commits＠source.squeak.org 12 Sep '18

12 Sep '18

Tobias Pape uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-topa.806.mcz ==================== Summary ==================== Name: Collections-topa.806 Author: topa Time: 12 September 2018, 3:28:40.687052 pm UUID: 46b95db5-a773-4113-92f0-5ee905404b49 Ancestors: Collections-cmm.805 Fix separators to include U+00A0 (no break space) Thanks Ron! =============== Diff against Collections-cmm.805 =============== Item was changed: ----- Method: Character class>>separators (in category 'instance creation') ----- separators + "Answer a collection of space-like separator characters. + Note that we do not consider spaces in >8bit code points yet. + " - "Answer a collection of the standard ASCII separator characters." + ^ #(9 "tab" - ^ #(32 "space" - 13 "cr" - 9 "tab" 10 "line feed" + 12 "form feed" + 13 "cr" + 32 "space" + 160 "non-breaking space, see Unicode Z general category") + collect: [:v | Character value: v] as: String + " To be considered: + 16r1680 OGHAM SPACE MARK + 16r2000 EN QUAD + 16r2001 EM QUAD + 16r2002 EN SPACE + 16r2003 EM SPACE + 16r2004 THREE-PER-EM SPACE + 16r2005 FOUR-PER-EM SPACE + 16r2006 SIX-PER-EM SPACE + 16r2007 FIGURE SPACE + 16r2008 PUNCTUATION SPACE + 16r2009 THIN SPACE + 16r200A HAIR SPACE + 16r2028 LINE SEPARATOR + 16r2029 PARAGRAPH SEPARATOR + 16r202F NARROW NO-BREAK SPACE + 16r205F MEDIUM MATHEMATICAL SPACE + 16r3000 IDEOGRAPHIC SPACE + "! - 12 "form feed") - collect: [:v | Character value: v] as: String! Item was changed: + (PackageInfo named: 'Collections') postscript: 'CharacterSet cleanUp: false.'! - (PackageInfo named: 'Collections') postscript: 'Character initializeClassificationTable'!

1 0

The Trunk: Multilingual-topa.239.mcz
by commits＠source.squeak.org 12 Sep '18

12 Sep '18

Tobias Pape uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-topa.239.mcz ==================== Summary ==================== Name: Multilingual-topa.239 Author: topa Time: 12 September 2018, 3:25:37.647469 pm UUID: 9a2616f0-677b-4d2b-9a60-4495a0fae606 Ancestors: Multilingual-ul.238 Fix and unify Unicode data downloading (old url was stable but newer is preferred). =============== Diff against Multilingual-ul.238 =============== Item was changed: + ----- Method: Unicode class>>caseFoldingData (in category 'unicode data') ----- - ----- Method: Unicode class>>caseFoldingData (in category 'casing') ----- caseFoldingData + ^ self fetch: 'CaseFolding Unicode data' fromUnicodeData: 'CaseFolding.txt' + ! - UIManager default informUserDuring: [ :bar | - | stream | - bar value: 'Downloading CaseFolding Unicode data'. - stream := HTTPClient httpGet: 'http://www.unicode.org/Public/UNIDATA/CaseFolding.txt'. - (stream isKindOf: RWBinaryOrTextStream) ifFalse: [ - ^self error: 'Download failed' ]. - ^stream reset; contents ]! Item was added: + ----- Method: Unicode class>>fetch:fromUnicodeData: (in category 'unicode data') ----- + fetch: what fromUnicodeData: fileName + | unicodeLocation | + unicodeLocation := 'https://www.unicode.org/Public/UCD/latest/ucd/'. + UIManager default informUser: 'Downloading ', what during: + [ | response| + response := WebClient httpGet: unicodeLocation, fileName. + ^ response isSuccess + ifFalse: [self error: 'Download failed'] + ifTrue: [response content]]. + + ! Item was changed: + ----- Method: Unicode class>>generalCategory (in category 'unicode data') ----- - ----- Method: Unicode class>>generalCategory (in category 'class methods') ----- generalCategory ^ GeneralCategory. ! Item was changed: + ----- Method: Unicode class>>generalCategoryComment (in category 'unicode data') ----- - ----- Method: Unicode class>>generalCategoryComment (in category 'class methods') ----- generalCategoryComment " Lu Letter, Uppercase Ll Letter, Lowercase Lt Letter, Titlecase Lm Letter, Modifier Lo Letter, Other Mn Mark, Non-Spacing Mc Mark, Spacing Combining Me Mark, Enclosing Nd Number, Decimal Nl Number, Letter No Number, Other Pc Punctuation, Connector Pd Punctuation, Dash Ps Punctuation, Open Pe Punctuation, Close Pi Punctuation, Initial quote (may behave like Ps or Pe depending on usage) Pf Punctuation, Final quote (may behave like Ps or Pe depending on usage) Po Punctuation, Other Sm Symbol, Math Sc Symbol, Currency Sk Symbol, Modifier So Symbol, Other Zs Separator, Space Zl Separator, Line Zp Separator, Paragraph Cc Other, Control Cf Other, Format Cs Other, Surrogate Co Other, Private Use Cn Other, Not Assigned (no characters in the file have this property) "! Item was changed: + ----- Method: Unicode class>>parseUnicodeDataFrom: (in category 'unicode data') ----- - ----- Method: Unicode class>>parseUnicodeDataFrom: (in category 'class methods') ----- parseUnicodeDataFrom: stream " self halt. self parseUnicodeDataFile " | line fieldEnd point fieldStart toNumber generalCategory decimalProperty | toNumber := [:quad | ('16r', quad) asNumber]. GeneralCategory := SparseLargeTable new: 16rE0080 chunkSize: 1024 arrayClass: Array base: 1 defaultValue: 'Cn'. DecimalProperty := SparseLargeTable new: 16rE0080 chunkSize: 32 arrayClass: Array base: 1 defaultValue: -1. 16r3400 to: 16r4DB5 do: [:i | GeneralCategory at: i+1 put: 'Lo']. 16r4E00 to: 16r9FA5 do: [:i | GeneralCategory at: i+1 put: 'Lo']. 16rAC00 to: 16rD7FF do: [:i | GeneralCategory at: i+1 put: 'Lo']. [(line := stream nextLine) size > 0] whileTrue: [ fieldEnd := line indexOf: $; startingAt: 1. point := toNumber value: (line copyFrom: 1 to: fieldEnd - 1). point > 16rE007F ifTrue: [ GeneralCategory zapDefaultOnlyEntries. DecimalProperty zapDefaultOnlyEntries. ^ self]. 2 to: 3 do: [:i | fieldStart := fieldEnd + 1. fieldEnd := line indexOf: $; startingAt: fieldStart. ]. generalCategory := line copyFrom: fieldStart to: fieldEnd - 1. GeneralCategory at: point+1 put: generalCategory. generalCategory = 'Nd' ifTrue: [ 4 to: 7 do: [:i | fieldStart := fieldEnd + 1. fieldEnd := line indexOf: $; startingAt: fieldStart. ]. decimalProperty := line copyFrom: fieldStart to: fieldEnd - 1. DecimalProperty at: point+1 put: decimalProperty asNumber. ]. ]. GeneralCategory zapDefaultOnlyEntries. DecimalProperty zapDefaultOnlyEntries. ! Item was changed: + ----- Method: Unicode class>>unicodeData (in category 'unicode data') ----- - ----- Method: Unicode class>>unicodeData (in category 'composing') ----- unicodeData + ^ self fetch: 'Unicode Data' fromUnicodeData: 'UnicodeData.txt' + ! - UIManager default informUserDuring: [ :bar | - | stream | - bar value: 'Downloading Unicode data'. - stream := HTTPClient httpGet: 'http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'. - (stream isKindOf: RWBinaryOrTextStream) ifFalse: [ - ^self error: 'Download failed' ]. - ^stream reset; contents ]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2018