Packages August 2017

packages@lists.squeakfoundation.org

1 participants
27 discussions

The Trunk: Kernel-tbn.1112.mcz
by commits＠source.squeak.org 30 Aug '17

30 Aug '17

Torsten Bergmann uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tbn.1112.mcz ==================== Summary ==================== Name: Kernel-tbn.1112 Author: tbn Time: 30 August 2017, 11:21:46.282311 pm UUID: a4399bb0-13e7-7a4f-a0a1-d78bfbd3012e Ancestors: Kernel-nice.1111 Cleanup pinning protocols - isPinned moves from "system primitive" to "pinning" - pin moves from "system primitive" to "pinning" - unpin moves from "system primitive" to "pinning" - setPinned: moves from "system primitive" to "private" (as this should not be part of the public API, people should use pin/unpin methods) (similar to https://github.com/pharo-project/pharo/pull/224 for Pharo) =============== Diff against Kernel-nice.1111 =============== Item was changed: + ----- Method: Object>>isPinned (in category 'pinning') ----- - ----- Method: Object>>isPinned (in category 'system primitives') ----- isPinned "Answer if the receiver is pinned. The VM's garbage collector routinely moves objects as it reclaims and compacts memory. But it can also pin an object so that it will not be moved, which can make it easier to pass objects out through the FFI." <primitive: 183 error: ec> ^self primitiveFailed! Item was changed: + ----- Method: Object>>pin (in category 'pinning') ----- - ----- Method: Object>>pin (in category 'system primitives') ----- pin "The VM's garbage collector routinely moves objects as it reclaims and compacts memory. But it can also pin an object so that it will not be moved, which can make it easier to pass objects out through the FFI. Objects are unpinnned when created. This method ensures an object is pinned, and answers whether it was already pinned." ^self setPinned: true! Item was changed: + ----- Method: Object>>setPinned: (in category 'private') ----- - ----- Method: Object>>setPinned: (in category 'system primitives') ----- setPinned: aBoolean "The VM's garbage collector routinely moves objects as it reclaims and compacts memory. But it can also pin an object so that it will not be moved, which can make it easier to pass objects out through the FFI. Objects are unpinnned when created. This primitive either pins or unpins an object, and answers if it was already pinned." <primitive: 184 error: ec> ^self primitiveFailed! Item was changed: + ----- Method: Object>>unpin (in category 'pinning') ----- - ----- Method: Object>>unpin (in category 'system primitives') ----- unpin "The VM's garbage collector routinely moves objects as it reclaims and compacts memory. But it can also pin an object so that it will not be moved, which can make it easier to pass objects out through the FFI. Objects are unpinnned when created. This method ensures an object is unpinned, and answers whether it was pinned." ^self setPinned: false!

1 0

The Trunk: Collections-pre.762.mcz
by commits＠source.squeak.org 29 Aug '17

29 Aug '17

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.762.mcz ==================== Summary ==================== Name: Collections-pre.762 Author: pre Time: 29 August 2017, 4:50:11.458834 pm UUID: d7838b91-7ce4-c34c-ac5a-c46cee281140 Ancestors: Collections-bf.761 Changes the HTMLReadWriter to deal correctly with nested tags and their mapping to text attributes. Also adds a comment to the class. =============== Diff against Collections-bf.761 =============== Item was changed: TextReadWriter subclass: #HtmlReadWriter instanceVariableNames: 'count offset runStack runArray string breakLines' classVariableNames: '' poolDictionaries: '' category: 'Collections-Text'! + + !HtmlReadWriter commentStamp: 'pre 8/29/2017 16:14' prior: 0! + A HtmlReadWriter is used to read a Text object from a string containing HTML or writing a Text object to a string with HTML tags representing the text attributes. + + It does two things currently: + 1) Setting text attributes on the beginning of tags, e.g. setting a bold text attribute when seeing a tag. + 2) Changing the resulting string, e.g. replacing a with a Character cr. + + The implementation works by pushing attributes on a stack on every opening tag. On the corresponding closing tag, the attribute is poped from the stack and stored in an array of attribute runs. From this array the final string is constructed. + + ## Notes on the implementation + - The final run array is completely constructed while parsing so it has to be correct with regard to the length of the runs. There is no consolidation except for merging neighboring runs which include the same attributes. + - The *count* variable is the position in the source string, the *offset* is the number of skipped characters, for example ones that denote a tag. + - The stack contains elements which are of the form: {text attributes. current start index. original start}! Item was added: + ----- Method: HtmlReadWriter>>addCharacter: (in category 'private') ----- + addCharacter: aCharacter + + string add: aCharacter. + count := count + 1.! Item was added: + ----- Method: HtmlReadWriter>>addString: (in category 'private') ----- + addString: aString + + string addAll: aString. + count := count + aString size.! Item was changed: ----- Method: HtmlReadWriter>>isTagIgnored: (in category 'testing') ----- isTagIgnored: aTag | space t | + t := aTag copyWithoutAll: '</>'. + space := t indexOf: Character space. - space := aTag indexOf: Character space. t := space > 0 + ifTrue: [t copyFrom: 1 to: space - 1] + ifFalse: [t]. - ifTrue: [aTag copyFrom: 2 to: space - 1] - ifFalse: [aTag copyFrom: 2 to: aTag size - 1]. ^ self ignoredTags includes: t! Item was changed: ----- Method: HtmlReadWriter>>mapCloseCodeTag (in category 'mapping') ----- mapCloseCodeTag | theDoIt | theDoIt := runStack top first detect: [:attribute | attribute isKindOf: TextDoIt] ifNone: [^ self "nothing found, ignore"]. + theDoIt evalString: (String withAll: (string copyFrom: runStack top third to: string size)).! - theDoIt evalString: (String withAll: (string copyFrom: runStack top second to: string size)).! Item was changed: + ----- Method: HtmlReadWriter>>nextPutText: (in category 'private') ----- - ----- Method: HtmlReadWriter>>nextPutText: (in category 'accessing') ----- nextPutText: aText | previous | previous := #(). self activateAttributesEnding: #() starting: previous. "for consistency" aText runs withStartStopAndValueDo: [:start :stop :attributes | self deactivateAttributesEnding: previous starting: attributes; activateAttributesEnding: previous starting: attributes; writeContent: (aText string copyFrom: start to: stop). previous := attributes]. self deactivateAttributesEnding: previous starting: #().! Item was changed: + ----- Method: HtmlReadWriter>>nextText (in category 'private') ----- - ----- Method: HtmlReadWriter>>nextText (in category 'accessing') ----- nextText count := 0. offset := 0. "To ignore characters in the input string that are used by tags." runStack := Stack new. runArray := RunArray new. string := OrderedCollection new. + "{text attributes. current start index. original start}" + runStack push: {OrderedCollection new. 1. 1}. - "{text attributes. start index. end index. number of open tags}" - runStack push: {OrderedCollection new. 1. nil. 0}. [stream atEnd] whileFalse: [self processNextTag]. self processRunStackTop. "Add last run." string := String withAll: string. runArray coalesce. ^ Text string: string runs: runArray! Item was changed: ----- Method: HtmlReadWriter>>processEmptyTag: (in category 'reading') ----- processEmptyTag: aTag (aTag beginsWith: '<br') ifTrue: [ + self addCharacter: Character cr. - string add: Character cr. - count := count + 1. ^ self]. + (self isTagIgnored: aTag) - (self ignoredTags includes: (aTag copyFrom: 2 to: aTag size - 3)) ifTrue: [^ self]. + "TODO... what?"! - "TODO..."! Item was changed: ----- Method: HtmlReadWriter>>processEndTag: (in category 'reading') ----- processEndTag: aTag | index tagName | index := count - offset. tagName := aTag copyFrom: 3 to: aTag size - 1. + (self isTagIgnored: tagName) ifTrue: [^ self]. + - (self ignoredTags includes: tagName) ifTrue: [^ self]. tagName = 'code' ifTrue: [self mapCloseCodeTag]. tagName = 'pre' ifTrue: [self breakLines: true]. - - "De-Accumulate adjacent tags." - runStack top at: 4 put: runStack top fourth - 1. - runStack top fourth > 0 - ifTrue: [^ self "not yet"]. self processRunStackTop. runStack pop. runStack top at: 2 put: index + 1.! Item was changed: ----- Method: HtmlReadWriter>>processHtmlEscape: (in category 'reading') ----- processHtmlEscape: aString | escapeSequence | escapeSequence := aString copyFrom: 2 to: aString size - 1. escapeSequence first = $# ifTrue: [^ self processHtmlEscapeNumber: escapeSequence allButFirst]. (String htmlEntities at: (aString copyFrom: 2 to: aString size - 1) ifAbsent: []) ifNotNil: [:char | + self addCharacter: char].! - string add: char. - count := count + 1].! Item was changed: + ----- Method: HtmlReadWriter>>processHtmlEscapeNumber: (in category 'private') ----- - ----- Method: HtmlReadWriter>>processHtmlEscapeNumber: (in category 'reading') ----- processHtmlEscapeNumber: aString | number | number := aString first = $x ifTrue: [ '16r', aString allButFirst ] ifFalse: [ aString ]. + self addCharacter: number asNumber asCharacter. + ! - string add: number asNumber asCharacter! Item was changed: ----- Method: HtmlReadWriter>>processNextTag (in category 'reading') ----- processNextTag | tag htmlEscape lookForNewTag lookForHtmlEscape tagFound valid inComment inTagString | lookForNewTag := true. lookForHtmlEscape := false. tagFound := false. tag := OrderedCollection new. htmlEscape := OrderedCollection new. inComment := false. inTagString := false. [stream atEnd not and: [tagFound not]] whileTrue: [ | character | character := stream next. valid := (#(10 13) includes: character asciiValue) not. count := count + 1. character = $< ifTrue: [lookForNewTag := false]. + character = $& ifTrue: [inComment ifFalse: [lookForHtmlEscape := true]]. - character = $& ifTrue: [ - inComment ifFalse: [lookForHtmlEscape := true]]. lookForNewTag ifTrue: [ lookForHtmlEscape ifFalse: [ (valid or: [self breakLines not]) ifTrue: [string add: character] ifFalse: [offset := offset + 1]] ifTrue: [valid ifTrue: [htmlEscape add: character]. offset := offset + 1]] ifFalse: [valid ifTrue: [tag add: character]. offset := offset + 1]. "Toggle within tag string/text." (character = $" and: [lookForNewTag not]) ifTrue: [inTagString := inTagString not]. inComment := ((lookForNewTag not and: [tag size >= 4]) and: [tag beginsWith: '<!!--']) and: [(tag endsWith: '-->') not]. (((character = $> and: [inComment not]) and: [lookForNewTag not]) and: [inTagString not]) ifTrue: [ lookForNewTag := true. (tag beginsWith: '<!!--') ifTrue: [self processComment: (String withAll: tag)] ifFalse: [tag second ~= $/ ifTrue: [ (tag atLast: 2) == $/ ifTrue: [self processEmptyTag: (String withAll: tag)] ifFalse: [self processStartTag: (String withAll: tag)]] ifFalse: [self processEndTag: (String withAll: tag)]]. tagFound := true]. (((character = $; and: [lookForNewTag]) and: [htmlEscape notEmpty]) and: [htmlEscape first = $&]) ifTrue: [ lookForHtmlEscape := false. self processHtmlEscape: (String withAll: htmlEscape). htmlEscape := OrderedCollection new]]. ! Item was changed: ----- Method: HtmlReadWriter>>processRunStackTop (in category 'reading') ----- processRunStackTop "Write accumulated attributes to run array." + | currentIndex start attrs | + currentIndex := count - offset. - | index start end attrs | - index := count - offset. - - "Set end index." - runStack top at: 3 put: index. - "Write to run array." start := runStack top second. - end := runStack top third. attrs := runStack top first. runArray addLast: attrs asArray + times: currentIndex - start + 1.! - times: end - start + 1.! Item was changed: ----- Method: HtmlReadWriter>>processStartTag: (in category 'reading') ----- processStartTag: aTag | index | (self isTagIgnored: aTag) ifTrue: [^ self]. index := count - offset. aTag = ' ' ifTrue: [ + self addCharacter: Character cr. - string add: Character cr. - count := count + 1. ^ self]. (aTag beginsWith: '<img') ifTrue: [ + self addString: '[image]'. - string addAll: '[image]'. - count := count + 7. ^ self]. + self processRunStackTop. "To add all attributes before the next tag adds some." - "Accumulate adjacent tags." - (runStack size > 1 and: [runStack top second = (index + 1) "= adjacent start tags"]) - ifTrue: [ - runStack top at: 1 put: (runStack top first copy addAll: (self mapTagToAttribute: aTag); yourself). - runStack top at: 4 put: (runStack top fourth + 1). "increase number of open tags" - ^self]. - - self processRunStackTop. - "Remove start/end info to reuse attributes later." - runStack top at: 2 put: nil. - runStack top at: 3 put: nil. "Copy attr list and add new attr." + runStack push: ({runStack top first copy addAll: (self mapTagToAttribute: aTag); yourself. index + 1 . index + 1}). + ! - runStack push: ({runStack top first copy addAll: (self mapTagToAttribute: aTag); yourself. index + 1. nil. 1}).!

1 0

The Trunk: CollectionsTests-pre.281.mcz
by commits＠source.squeak.org 29 Aug '17

29 Aug '17

Patrick Rein uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-pre.281.mcz ==================== Summary ==================== Name: CollectionsTests-pre.281 Author: pre Time: 29 August 2017, 4:48:41.041834 pm UUID: af95c7d9-1681-c941-81a5-d74691576b20 Ancestors: CollectionsTests-eem.280 Adds and modifies tests for the HTMLReadWriter to cater for nested attributes =============== Diff against CollectionsTests-eem.280 =============== Item was changed: ----- Method: HtmlReadWriterTest>>test02Mixed (in category 'tests') ----- test02Mixed "At the moment, the html code generation is kind of verbose..." { + 'Hello, World!!!!'. + 'Hello, World!!!!' asText + addAttribute: TextEmphasis bold from: 1 to: 13; - 'Hello, World!!'. - 'Hello, World!!' asText - addAttribute: TextEmphasis bold; addAttribute: TextEmphasis italic from: 8 to: 13. } pairsDo: [:expectedHtml :expectedText | self convertHtml: expectedHtml. self assert: expectedText string equals: text string. self assert: expectedText runs equals: text runs. self convertText: expectedText. self assert: expectedHtml equals: html].! Item was changed: ----- Method: HtmlReadWriterTest>>test08MultilineCode (in category 'tests') ----- test08MultilineCode { '<code> <pre>3 + 7. 3 > 4.</pre></code>' . Text string: '3 + 7. + 3 > 4.' runs: (RunArray runs: #(13) values: { {TextDoIt evalString: '3 + 7. - 3 > 4.' runs: (RunArray runs: #(13 ) values: { {TextDoIt evalString: '3 + 7. 3 > 4.' } } ) } pairsDo: [:expectedHtml :expectedText | self convertHtml: expectedHtml. self assert: expectedText string equals: text string. self assert: expectedText runs equals: text runs. self convertText: expectedText. self assert: expectedHtml equals: html].! Item was added: + ----- Method: HtmlReadWriterTest>>test15NestedTagsStillEndBefore (in category 'tests') ----- + test15NestedTagsStillEndBefore + + { + 'Hallo welt'. + 'Hallo welt' asText + addAttribute: TextEmphasis italic from: 1 to: 5. + } pairsDo: [:expectedHtml :expectedText | + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + self assert: expectedText runs equals: text runs]!

1 0

The Trunk: Kernel-nice.1111.mcz
by commits＠source.squeak.org 14 Aug '17

14 Aug '17

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1111.mcz ==================== Summary ==================== Name: Kernel-nice.1111 Author: nice Time: 14 August 2017, 12:02:46.695166 am UUID: 280f8152-036b-48e1-b3f3-038fa2611ea7 Ancestors: Kernel-tpr.1110 Avoid costly and useless LargeInteger arithmetics when evaluating: (2009/2000) raisedTo: (3958333/100000) These large integer operations were helping to find the nearest Float approximation to the #nthRoot: but 1) they do not scale when the radical increases, 2) we then spoil the accuracy by raising the root to an Integer power naively and inacurately. Instead, if the result is inexact, fall back to a ln/exp formulation which is a few ulp off but at least fast. =============== Diff against Kernel-tpr.1110 =============== Item was changed: ----- Method: Fraction>>nthRoot: (in category 'mathematical functions') ----- nthRoot: aPositiveInteger "Answer the nth root of the receiver." + | guess | + guess := (numerator nthRootTruncated: aPositiveInteger) / (denominator nthRootTruncated: aPositiveInteger). + (guess raisedTo: aPositiveInteger) = self ifTrue: [^guess]. + "There is no exact nth root, so answer a Float approximation" + ^(self abs ln / aPositiveInteger) exp * self sign! - | d n | - n := numerator nthRoot: aPositiveInteger. - d := denominator nthRoot: aPositiveInteger. - "The #sqrt method in integer will only answer a Float if there's no exact square root. - So, we need a float anyway." - (n isInfinite or: [ d isInfinite ]) ifTrue: [ - ^self asFloat nthRoot: aPositiveInteger ]. - ^n / d! Item was added: + ----- Method: Fraction>>raisedToFraction: (in category 'mathematical functions') ----- + raisedToFraction: aFraction + | root | + root := (self numerator nthRootTruncated: aFraction denominator) / (self denominator nthRootTruncated: aFraction denominator). + (root raisedToInteger: aFraction denominator) = self ifTrue: [^root raisedToInteger: aFraction numerator]. + ^super raisedToFraction: aFraction! Item was added: + ----- Method: Integer>>raisedToFraction: (in category 'mathematical functions') ----- + raisedToFraction: aFraction + | root | + root := self nthRootTruncated: aFraction denominator. + (root raisedToInteger: aFraction denominator) = self ifTrue: [^root raisedToInteger: aFraction numerator]. + ^super raisedToFraction: aFraction! Item was changed: ----- Method: Number>>raisedTo: (in category 'mathematical functions') ----- raisedTo: aNumber "Answer the receiver raised to aNumber." aNumber isInteger ifTrue: [ "Do the special case of integer power" ^ self raisedToInteger: aNumber]. aNumber isFraction ifTrue: [ "Special case for fraction power" + ^ self raisedToFraction: aNumber]. - ^ (self nthRoot: aNumber denominator) raisedToInteger: aNumber numerator ]. self negative ifTrue: [ ^ ArithmeticError signal: 'Negative numbers can''t be raised to float powers.' ]. aNumber isZero ifTrue: [^ self class one]. "Special case of exponent=0" 1 = aNumber ifTrue: [^ self]. "Special case of exponent=1" self isZero ifTrue: [ "Special case of self = 0" aNumber negative ifTrue: [^ (ZeroDivide dividend: 1) signal] ifFalse: [^ self]]. ^ (aNumber * self ln) exp "Otherwise use logarithms"! Item was added: + ----- Method: Number>>raisedToFraction: (in category 'mathematical functions') ----- + raisedToFraction: aFraction + self isZero + ifTrue: + [aFraction negative ifTrue: [^ (ZeroDivide dividend: 1) signal]. + ^self]. + self negative ifFalse: [^(self ln * aFraction) exp]. + aFraction denominator even + ifTrue: [^ ArithmeticError signal: 'nth root only defined for positive Integer n.']. + ^(self negated ln * aFraction) exp negated! Item was added: + ----- Method: ScaledDecimal>>raisedToFraction: (in category 'mathematical functions') ----- + raisedToFraction: aFraction + | result | + result := self asFraction raisedToFraction: aFraction. + ^result isFloat + ifTrue: [result] + ifFalse: [result asScaledDecimal: scale]!

1 0

The Trunk: ToolBuilder-Kernel-eem.113.mcz
by commits＠source.squeak.org 11 Aug '17

11 Aug '17

Eliot Miranda uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-eem.113.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-eem.113 Author: eem Time: 11 August 2017, 10:36:57.824967 am UUID: f594fcf4-ca8e-4fbe-a9b9-3e5abdacf467 Ancestors: ToolBuilder-Kernel-eem.112 chooseFont:for:setSelector:getSelector: should be subclassResponsibility (both MorphicUIManager and MVCUIManager implement it). =============== Diff against ToolBuilder-Kernel-eem.112 =============== Item was changed: ----- Method: UIManager>>chooseFont:for:setSelector:getSelector: (in category 'ui requests') ----- chooseFont: titleString for: aModel setSelector: setSelector getSelector: getSelector + "Open a font-chooser for the given model" + ^self subclassResponsibility! - "Open a font-chooser for the given model"!

1 0

The Trunk: ToolBuilder-Kernel-eem.112.mcz
by commits＠source.squeak.org 11 Aug '17

11 Aug '17

Eliot Miranda uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-eem.112.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-eem.112 Author: eem Time: 11 August 2017, 10:30:08.686663 am UUID: b38646b5-66a2-44ad-a70e-145a77054677 Ancestors: ToolBuilder-Kernel-nice.111 chooseFromOrAddTo:lines:title: should use self, not UIManager default, since self is already a UIManager. =============== Diff against ToolBuilder-Kernel-nice.111 =============== Item was changed: ----- Method: UIManager>>chooseFromOrAddTo:lines:title: (in category 'ui requests') ----- chooseFromOrAddTo: aList lines: linesArray title: aString - | index | + index := self chooseFrom: {'new...'}, aList lines: linesArray title: aString. - index := (UIManager default chooseFrom: {'new...'}, aList lines: linesArray title: aString). index = 0 ifTrue: [^ nil]. + index = 1 ifTrue: + [^ self request: 'Please type new value' initialAnswer: '']. - index = 1 ifTrue: [ - ^ self request: 'Please type new value' initialAnswer: '']. ^ aList at: index - 1!

1 0

The Trunk: Tests-eem.381.mcz
by commits＠source.squeak.org 09 Aug '17

09 Aug '17

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.381.mcz ==================== Summary ==================== Name: Tests-eem.381 Author: eem Time: 9 August 2017, 10:09:11.49354 am UUID: b1c7febe-4a63-4f32-895a-e2aae2e8972c Ancestors: Tests-dtl.380 No longer hard-code the typeOfClass for compiled code MCClassDefinitions. Instead trust the typeSymbol argument. Assumes Monticello-eem.673 =============== Diff against Tests-dtl.380 =============== Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledBlock (in category 'testing - class type') ----- testKindOfSubclassForCompiledBlock "CompiledCode and its subclasses are a special case." | classDef | "CompiledBlock should be like CompiledMethod, both now are subclassed from CompiledCode" + classDef := self mockClass: #CompiledBlock super: #CompiledCode. - classDef := self mockClass: #CompiledBlock super: #CompiledCode type: #bytes. self assert: #compiledMethod equals: classDef type. + self assert: CompiledBlock typeOfClass equals: classDef type! - self assert: CompiledBlock typeOfClass equals: classDef type. - ! Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledCode (in category 'testing - class type') ----- testKindOfSubclassForCompiledCode "CompiledCode and its subclasses are a special case." | classDef | "CompiledMethod is now a subclass of CompiledCode, which is also of type #compiledMethod" + classDef := self mockClass: #CompiledCode super: #ByteArray. - classDef := self mockClass: #CompiledCode super: #ByteArray type: #bytes. self assert: #compiledMethod equals: classDef type. + self assert: CompiledCode typeOfClass equals: classDef type! - self assert: CompiledCode typeOfClass equals: classDef type. - - ! Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledMethod (in category 'testing - class type') ----- testKindOfSubclassForCompiledMethod "CompiledCode and its subclasses are a special case." | classDef | + classDef := self mockClass: #CompiledMethod super: #CompiledCode. - classDef := self mockClass: #CompiledMethod super: #CompiledCode type: #bytes. self assert: #compiledMethod equals: classDef type. + self assert: CompiledMethod typeOfClass equals: classDef type! - self assert: CompiledMethod typeOfClass equals: classDef type. - ! Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForSocketAddress (in category 'testing - class type') ----- testKindOfSubclassForSocketAddress "A subclass of ByteArray that is not treated specially" | classDef | + classDef := self mockClass: #SocketAddress super: #ByteArray. - classDef := self mockClass: #SocketAddress super: #ByteArray type: #bytes. self assert: #bytes equals: classDef type. + self assert: SocketAddress typeOfClass equals: classDef type! - self assert: SocketAddress typeOfClass equals: classDef type. - - ! Item was changed: ----- Method: MCTestCase>>mockClass:super: (in category 'mocks') ----- mockClass: className super: superclassName + ^ MCClassDefinition + name: className + superclassName: superclassName + category: self mockCategoryName + instVarNames: #() + classVarNames: #() + poolDictionaryNames: #() + classInstVarNames: #() + type: ((Smalltalk classNamed: className asSymbol) + ifNil: [#normal] + ifNotNil: [:class| class typeOfClass]) + comment: (self commentForClass: className) + commentStamp: (self commentStampForClass: className)! - ^ self mockClass: className super: superclassName type: #normal - ! Item was removed: - ----- Method: MCTestCase>>mockClass:super:type: (in category 'mocks') ----- - mockClass: className super: superclassName type: typeSymbol - ^ MCClassDefinition - name: className - superclassName: superclassName - category: self mockCategoryName - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - type: typeSymbol - comment: (self commentForClass: className) - commentStamp: (self commentStampForClass: className)!

1 0

The Trunk: Monticello-eem.673.mcz
by commits＠source.squeak.org 09 Aug '17

09 Aug '17

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.673.mcz ==================== Summary ==================== Name: Monticello-eem.673 Author: eem Time: 9 August 2017, 10:07:15.978716 am UUID: 38e0acab-e610-4613-8483-63a2b9c34a12 Ancestors: Monticello-dtl.672 No longer hard-code the typeOfClass for compiled code MCClassDefinitions. Instead trust the typeSymbol argument. =============== Diff against Monticello-dtl.672 =============== Item was changed: ----- Method: MCClassDefinition>>initializeWithName:superclassName:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: (in category 'initializing') ----- initializeWithName: nameString superclassName: superclassString category: categoryString instVarNames: ivarArray classVarNames: cvarArray poolDictionaryNames: poolArray classInstVarNames: civarArray type: typeSymbol comment: commentString commentStamp: stampStringOrNil name := nameString asSymbol. superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol]. category := categoryString. + type := typeSymbol. - (self isCompiledCode: name) ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. comment := commentString withSqueakLineEndings. commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp]. variables := OrderedCollection new. self addVariables: ivarArray ofType: MCInstanceVariableDefinition. self addVariables: cvarArray sorted ofType: MCClassVariableDefinition. self addVariables: poolArray sorted ofType: MCPoolImportDefinition. + self addVariables: civarArray ofType: MCClassInstanceVariableDefinition! - self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.! Item was changed: ----- Method: MCClassDefinition>>initializeWithName:superclassName:traitComposition:classTraitComposition:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: (in category 'initializing') ----- initializeWithName: nameString superclassName: superclassString traitComposition: traitCompositionString classTraitComposition: classTraitCompositionString category: categoryString instVarNames: ivarArray classVarNames: cvarArray poolDictionaryNames: poolArray classInstVarNames: civarArray type: typeSymbol comment: commentString commentStamp: stampStringOrNil name := nameString asSymbol. superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol]. traitComposition := traitCompositionString. classTraitComposition := classTraitCompositionString. category := categoryString. + type := typeSymbol. - (self isCompiledCode: name) ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. comment := commentString withSqueakLineEndings. commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp]. variables := OrderedCollection new. self addVariables: ivarArray ofType: MCInstanceVariableDefinition. self addVariables: cvarArray sorted ofType: MCClassVariableDefinition. self addVariables: poolArray sorted ofType: MCPoolImportDefinition. + self addVariables: civarArray ofType: MCClassInstanceVariableDefinition! - self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.! Item was removed: - ----- Method: MCClassDefinition>>isCompiledCode: (in category 'initializing') ----- - isCompiledCode: className - "Classes of type #compiledMethod are treated specially. CompiledCode - and all of its subclasses, including CompiledMethod, should have this - special type." - - CompiledCode - withAllSubclassesDo: [ :cls | (className = cls name) - ifTrue: [ ^true ]]. - ^ false - !

1 0

The Trunk: Nebraska-tpr.50.mcz
by commits＠source.squeak.org 08 Aug '17

08 Aug '17

tim Rowledge uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-tpr.50.mcz ==================== Summary ==================== Name: Nebraska-tpr.50 Author: tpr Time: 7 August 2017, 6:38:27.598699 pm UUID: 633f7da3-da1d-44ee-8bdc-3f417d8db1ec Ancestors: Nebraska-tpr.49 Fix a dumb-thumb in the prior update =============== Diff against Nebraska-tpr.49 =============== Item was changed: ----- Method: NebraskaCommunicatorMorph>>textEntryFieldNamed:with:help: (in category 'as yet unclassified') ----- textEntryFieldNamed: aSymbol with: aString help: helpString | f col | f := (StringMorph new contents: aString; font: Preferences standardEToysFont; yourself) setBalloonText: helpString; on: #mouseUp send: #editEvent:for: to: self. self field: aSymbol is: f. + col := (self inAColumn: {f}) color: Color white; hResizing: #shrinkWrap. - col _ (self inAColumn: {f}) color: Color white; hResizing: #shrinkWrap. ^col!

1 0

The Trunk: Nebraska-tpr.49.mcz
by commits＠source.squeak.org 08 Aug '17

08 Aug '17

tim Rowledge uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-tpr.49.mcz ==================== Summary ==================== Name: Nebraska-tpr.49 Author: tpr Time: 7 August 2017, 4:42:46.935605 pm UUID: 867ebd6a-962c-4bee-be61-21636ad6c4b4 Ancestors: Nebraska-ul.48 Correct an ancient underscore assignment =============== Diff against Nebraska-ul.48 =============== Item was changed: ----- Method: NebraskaCommunicatorMorph>>textEntryFieldNamed:with:help: (in category 'as yet unclassified') ----- textEntryFieldNamed: aSymbol with: aString help: helpString | f col | + f := (StringMorph new contents: aString; font: Preferences standardEToysFont; yourself) - f _ (StringMorph new contents: aString; font: Preferences standardEToysFont; yourself) setBalloonText: helpString; on: #mouseUp send: #editEvent:for: to: self. self field: aSymbol is: f. col _ (self inAColumn: {f}) color: Color white; hResizing: #shrinkWrap. ^col! Item was changed: ----- Method: NebraskaListenerMorph class>>removeAllFromGlobalIncomingQueue (in category 'as yet unclassified') ----- removeAllFromGlobalIncomingQueue self critical: [ + GlobalIncomingQueue := OrderedCollection new. - GlobalIncomingQueue _ OrderedCollection new. self bumpUpdateCounter. ].!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2017