Packages May 2019

packages@lists.squeakfoundation.org

1 participants
73 discussions

The Trunk: Network-pre.233.mcz
by commits＠source.squeak.org 09 May '19

09 May '19

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.233.mcz ==================== Summary ==================== Name: Network-pre.233 Author: pre Time: 9 May 2019, 4:32:56.848225 pm UUID: bac3997e-f06a-074d-90cc-12fdca08da2d Ancestors: Network-pre.232 Deprecates classes and methods related to executing Squeak in a web browser through a browser plugin. They can be loaded through the 60Deprecated-NSPlugin-System-Support package. =============== Diff against Network-pre.232 =============== Item was removed: - ----- Method: FileStream class>>httpPostDocument:args: (in category '*network') ----- - httpPostDocument: url args: argsDict - | argString | - argString := argsDict - ifNotNil: [argString := HTTPSocket argString: argsDict] - ifNil: ['']. - ^self post: argString url: url , argString ifError: [self halt]! Item was removed: - ----- Method: FileStream class>>httpPostMultipart:args: (in category '*network') ----- - httpPostMultipart: url args: argsDict - | mimeBorder argsStream crLf resultStream result | - " do multipart/form-data encoding rather than x-www-urlencoded " - - crLf := String crlf. - mimeBorder := '----squeak-', Time millisecondClockValue printString, '-stuff-----'. - "encode the arguments dictionary" - argsStream := WriteStream on: String new. - argsDict associationsDo: [:assoc | - assoc value do: [ :value | | fieldValue | - "print the boundary" - argsStream nextPutAll: '--', mimeBorder, crLf. - " check if it's a non-text field " - argsStream nextPutAll: 'Content-disposition: form-data; name="', assoc key, '"'. - (value isKindOf: MIMEDocument) - ifFalse: [fieldValue := value] - ifTrue: [argsStream nextPutAll: ' filename="', value url pathForFile, '"', crLf, 'Content-Type: ', value contentType. - fieldValue := (value content - ifNil: [(FileStream fileNamed: value url pathForFile) contentsOfEntireFile] - ifNotNil: [value content]) asString]. - " Transcript show: 'field=', key, '; value=', fieldValue; cr. " - argsStream nextPutAll: crLf, crLf, fieldValue, crLf. - ]]. - argsStream nextPutAll: '--', mimeBorder, '--'. - - resultStream := self - post: - ('Content-type: multipart/form-data; boundary=', mimeBorder, crLf, - 'Content-length: ', argsStream contents size printString, crLf, crLf, - argsStream contents) - url: url ifError: [^'Error in post ' url asString]. - "get the header of the reply" - result := resultStream upToEnd. - ^MIMEDocument content: result! Item was removed: - ----- Method: FileStream class>>post:target:url:ifError: (in category '*network') ----- - post: data target: target url: url ifError: errorBlock - ^self concreteStream new post: data target: target url: url ifError: errorBlock! Item was removed: - ----- Method: FileStream class>>post:url:ifError: (in category '*network') ----- - post: data url: url ifError: errorBlock - ^self post: data target: nil url: url ifError: errorBlock! Item was removed: - ----- Method: FileStream class>>requestURL:target: (in category '*network') ----- - requestURL: url target: target - "FileStream requestURL:'http://isgwww.cs.uni-magdeburg.de/~raab' target: ':=blank' " - ^self concreteStream new requestURL: url target: target! Item was removed: - ----- Method: FileStream class>>requestURLStream: (in category '*network') ----- - requestURLStream: url - "FileStream requestURLStream:'http://isgwww.cs.uni-magdeburg.de/~raab'" - ^self concreteStream new requestURLStream: url! Item was removed: - ----- Method: FileStream class>>requestURLStream:ifError: (in category '*network') ----- - requestURLStream: url ifError: errorBlock - "FileStream requestURLStream:'http://isgwww.cs.uni-magdeburg.de/~raab'" - ^self concreteStream new requestURLStream: url ifError: errorBlock!

1 0

The Trunk: Files-pre.183.mcz
by commits＠source.squeak.org 09 May '19

09 May '19

Patrick Rein uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-pre.183.mcz ==================== Summary ==================== Name: Files-pre.183 Author: pre Time: 9 May 2019, 4:31:38.857225 pm UUID: c7d0c859-2531-464e-87d8-3b580249731b Ancestors: Files-pre.182 Deprecates classes and methods related to executing Squeak in a web browser through a browser plugin. They can be loaded through the 60Deprecated-NSPlugin-System-Support package. =============== Diff against Files-pre.182 =============== Item was removed: - ----- Method: StandardFileStream class>>isRunningAsBrowserPlugin (in category 'browser requests') ----- - isRunningAsBrowserPlugin - self new waitBrowserReadyFor: 1000 ifFail: [^false]. - ^true! Item was removed: - ----- Method: StandardFileStream class>>privateCheckForBrowserPrimitives (in category 'browser requests') ----- - privateCheckForBrowserPrimitives - <primitive:'primitivePluginBrowserReady'> - ^false! Item was removed: - ----- Method: StandardFileStream>>defaultBrowserReadyWait (in category 'browser requests') ----- - defaultBrowserReadyWait - ^5000! Item was removed: - ----- Method: StandardFileStream>>post:target:url:ifError: (in category 'browser requests') ----- - post: data target: target url: url ifError: errorBlock - "Post data to the given URL. The returned file stream contains the reply of the server. - If Squeak is not running in a browser evaluate errorBlock" - - self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value]. - Smalltalk newExternalSemaphoreDo: [ :semaphore :index | - | request result | - request := self primURLPost: url target: target data: data semaIndex: index. - request ifNil: [ - Smalltalk unregisterExternalObject: semaphore. - ^errorBlock value ]. - [ semaphore wait. "until something happens" - result := self primURLRequestState: request. - result == nil ] whileTrue. - result ifTrue: [ fileID := self primURLRequestFileHandle: request ]. - self primURLRequestDestroy: request. - Smalltalk unregisterExternalObject: semaphore ]. - fileID ifNil: [ ^nil ]. - self register. - name := url. - rwmode := false. - buffer1 := String new: 1. - self enableReadBuffering! Item was removed: - ----- Method: StandardFileStream>>post:url:ifError: (in category 'browser requests') ----- - post: data url: url ifError: errorBlock - - self post: data target: nil url: url ifError: errorBlock! Item was removed: - ----- Method: StandardFileStream>>primBrowserReady (in category 'browser requests') ----- - primBrowserReady - <primitive:'primitivePluginBrowserReady'> - ^nil! Item was removed: - ----- Method: StandardFileStream>>primURLPost:data:semaIndex: (in category 'browser requests') ----- - primURLPost: url data: contents semaIndex: index - ^self primURLPost: url target: nil data: contents semaIndex: index! Item was removed: - ----- Method: StandardFileStream>>primURLPost:target:data:semaIndex: (in category 'browser requests') ----- - primURLPost: url target: target data: contents semaIndex: index - "Post the data (url might be 'mailto:' etc)" - <primitive:'primitivePluginPostURL'> - ^nil - ! Item was removed: - ----- Method: StandardFileStream>>primURLRequest:semaIndex: (in category 'browser requests') ----- - primURLRequest: url semaIndex: index - <primitive:'primitivePluginRequestURLStream'> - ^nil! Item was removed: - ----- Method: StandardFileStream>>primURLRequest:target:semaIndex: (in category 'browser requests') ----- - primURLRequest: url target: target semaIndex: index - "target - String (frame, also ':=top', ':=parent' etc)" - <primitive:'primitivePluginRequestURL'> - ^nil - ! Item was removed: - ----- Method: StandardFileStream>>primURLRequestDestroy: (in category 'browser requests') ----- - primURLRequestDestroy: request - <primitive:'primitivePluginDestroyRequest'> - ^nil! Item was removed: - ----- Method: StandardFileStream>>primURLRequestFileHandle: (in category 'browser requests') ----- - primURLRequestFileHandle: request - <primitive: 'primitivePluginRequestFileHandle'> - ^nil! Item was removed: - ----- Method: StandardFileStream>>primURLRequestState: (in category 'browser requests') ----- - primURLRequestState: request - <primitive:'primitivePluginRequestState'> - ^false! Item was removed: - ----- Method: StandardFileStream>>requestURL:target: (in category 'browser requests') ----- - requestURL: url target: target - ^self requestURL: url target: target ifError: [nil]! Item was removed: - ----- Method: StandardFileStream>>requestURL:target:ifError: (in category 'browser requests') ----- - requestURL: url target: target ifError: errorBlock - "Request to go to the target for the given URL. - If Squeak is not running in a browser evaluate errorBlock" - - self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value]. - Smalltalk newExternalSemaphoreDo: [ :semaphore :index | - | request result | - request := self primURLRequest: url target: target semaIndex: index. - request ifNil: [ - Smalltalk unregisterExternalObject: semaphore. - ^errorBlock value ]. - [ semaphore wait. "until something happens" - result := self primURLRequestState: request. - result == nil ] whileTrue. - self primURLRequestDestroy: request. - Smalltalk unregisterExternalObject: semaphore ]. - fileID ifNil: [ ^nil ]. - self register. - name := url. - rwmode := false. - buffer1 := String new: 1. - self enableReadBuffering! Item was removed: - ----- Method: StandardFileStream>>requestURLStream: (in category 'browser requests') ----- - requestURLStream: url - "FileStream requestURLStream:'http://www.squeak.org'" - ^self requestURLStream: url ifError:[nil]! Item was removed: - ----- Method: StandardFileStream>>requestURLStream:ifError: (in category 'browser requests') ----- - requestURLStream: url ifError: errorBlock - "Request a FileStream for the given URL. - If Squeak is not running in a browser evaluate errorBlock" - "FileStream requestURLStream:'http://www.squeak.org'" - - self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value]. - Smalltalk newExternalSemaphoreDo: [ :semaphore :index | - | request result | - request := self primURLRequest: url semaIndex: index. - request ifNil: [ - Smalltalk unregisterExternalObject: semaphore. - ^errorBlock value ]. - [ semaphore wait. "until something happens" - result := self primURLRequestState: request. - result == nil ] whileTrue. - result ifTrue: [ fileID := self primURLRequestFileHandle: request ]. - self primURLRequestDestroy: request. - Smalltalk unregisterExternalObject: semaphore ]. - fileID ifNil: [ ^nil ]. - self register. - name := url. - rwmode := false. - buffer1 := String new: 1. - self enableReadBuffering! Item was removed: - ----- Method: StandardFileStream>>waitBrowserReadyFor:ifFail: (in category 'browser requests') ----- - waitBrowserReadyFor: timeout ifFail: errorBlock - | startTime delay okay | - okay := self primBrowserReady. - okay ifNil:[^errorBlock value]. - okay ifTrue: [^true]. - startTime := Time millisecondClockValue. - delay := Delay forMilliseconds: 100. - [(Time millisecondsSince: startTime) < timeout] - whileTrue: [ - delay wait. - okay := self primBrowserReady. - okay ifNil:[^errorBlock value]. - okay ifTrue: [^true]]. - ^errorBlock value!

1 0

The Trunk: Kernel-nice.1229.mcz
by commits＠source.squeak.org 09 May '19

09 May '19

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1229.mcz ==================== Summary ==================== Name: Kernel-nice.1229 Author: nice Time: 9 May 2019, 9:10:10.673329 am UUID: 4836a3a9-d962-4d8f-9180-5285b8e7c96a Ancestors: Kernel-cmm.1228 Fix (0 bitShift: 100) is not normalized (0 bitShift: 100) class = LargePositiveInteger. Why is it not normalized? First, primitiveBitShift (17) fails because shift is longer than SmallInteger bit length (maybe it should not?), then bitShiftMagnitude: (primDigitBitShiftMagnitude:) does not normalize a left shift result, assuming that primitive 17 already did the trivial work if result were a SmallInteger. Why is normalization important? because non normalized Integers do not behave like SmallInteger and can cause all sort of undefined behavior (I had an infinite loop because of that) How to fix? just handle the case in primitive fallback code While at it: Do not use bitShiftMagnitude: when we do not need to (case of left shift are equivalent to bitShift:), because playing with not normalized results may lead to undefined behavior. =============== Diff against Kernel-cmm.1228 =============== Item was changed: ----- Method: LargePositiveInteger>>digitMul22: (in category 'private') ----- digitMul22: anInteger "Multiply after decomposing each operand in two parts, using Karatsuba algorithm. Karatsuba perform only 3 multiplications, leading to a cost O(n^3 log2) asymptotically better than super O(n^2) for large number of digits n. See https://en.wikipedia.org/wiki/Karatsuba_algorithm" | half xLow xHigh yLow yHigh low mid high | "Divide each integer in two halves" half := (anInteger digitLength + 1 bitShift: -1) bitClear: 2r11. xLow := self lowestNDigits: half. xHigh := self butLowestNDigits: half. yLow := anInteger lowestNDigits: half. yHigh := anInteger butLowestNDigits: half. "Karatsuba trick: perform with 3 multiplications instead of 4" low := xLow multiplyByInteger: yLow. high := xHigh multiplyByInteger: yHigh. mid := high + low + (xHigh - xLow multiplyByInteger: yLow - yHigh). "Sum the parts of decomposition" ^(high isZero ifTrue: [low] + ifFalse: [(high bitShift: 16*half) - ifFalse: [(high bitShiftMagnitude: 16*half) inplaceAddNonOverlapping: low digitShiftBy: 0]) + + (mid bitShift: 8*half)! - + (mid bitShiftMagnitude: 8*half)! Item was changed: ----- Method: LargePositiveInteger>>squaredByHalf (in category 'private') ----- squaredByHalf "Use a divide and conquer algorithm to perform the multiplication. Split in two parts like Karatsuba, but economize 2 additions by using asymetrical product." | half xHigh xLow low high mid | "Divide digits in two halves" half := self digitLength + 1 // 2 bitClear: 2r11. xLow := self lowestNDigits: half. xHigh := self butLowestNDigits: half. "eventually use karatsuba" low := xLow squared. high := xHigh squared. mid := xLow multiplyByInteger: xHigh. "Sum the parts of decomposition" + ^(high bitShift: 16*half) - ^(high bitShiftMagnitude: 16*half) inplaceAddNonOverlapping: low digitShiftBy: 0; + + (mid bitShift: 8*half+1) - + (mid bitShiftMagnitude: 8*half+1) " | a | a := 440 factorial-1. a digitLength. self assert: a * a - a squaredKaratsuba = 0. [Smalltalk garbageCollect. [2000 timesRepeat: [a squaredKaratsuba]] timeToRun] value / [Smalltalk garbageCollect. [2000 timesRepeat: [a * a]] timeToRun] value asFloat "! Item was changed: ----- Method: SmallInteger>>bitShift: (in category 'bit manipulation') ----- bitShift: arg "Primitive. Answer an Integer whose value is the receiver's value shifted left by the number of bits indicated by the argument. Negative arguments shift right. The receiver is interpreted as having 2's-complement representation. Essential. See Object documentation whatIsAPrimitive." <primitive: 17> + self = 0 ifTrue: [^self]. + self > 0 ifTrue: [^ super bitShift: arg]. - self >= 0 ifTrue: [^ super bitShift: arg]. ^ arg >= 0 ifTrue: [(self negated bitShift: arg) negated] ifFalse: [(self bitInvert bitShift: arg) bitInvert]!

1 0

The Trunk: EToys-cmm.342.mcz
by commits＠source.squeak.org 09 May '19

09 May '19

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-cmm.342.mcz ==================== Summary ==================== Name: EToys-cmm.342 Author: cmm Time: 7 May 2019, 6:34:48.519808 pm UUID: da78bdd2-19c3-446e-aec2-be2dab3a21eb Ancestors: EToys-kfr.341 Ask whether a Parameter and Phrase tiles whether they're #isBooleanType, to allow proper distinction of the actual instances of Boolean. =============== Diff against EToys-kfr.341 =============== Item was changed: ----- Method: CategoryViewer>>booleanPhraseFromPhrase: (in category 'support') ----- booleanPhraseFromPhrase: phrase "Answer, if possible, a boolean-valued phrase derived from the phrase provided" | retrieverOp retrieverTile | (phrase isKindOf: ParameterTile orOf: FunctionTile) ifTrue: [^ phrase booleanComparatorPhrase]. + phrase isBooleanType ifTrue: [^ phrase]. - phrase isBoolean ifTrue: [^ phrase]. ((scriptedPlayer respondsTo: #costume) and:[scriptedPlayer costume isInWorld not]) ifTrue: [^ Array new]. ((phrase isMemberOf: PhraseTileMorph) and: [phrase submorphs size > 1] and: [#(bearingTo: distanceToPlayer:) includes: phrase submorphs second operatorOrExpression]) ifTrue: [^ self booleanPhraseFromNumericGetterWithArgument: phrase]. ((retrieverTile := phrase submorphs last) isKindOf: TileMorph) ifFalse: [^ phrase]. retrieverOp := retrieverTile operatorOrExpression. (Vocabulary vocabularyForType: phrase resultType) affordsCoercionToBoolean ifTrue: [ retrieverOp = #getPatchValueIn: ifTrue: [ ^ self booleanPhraseForGetPatchValueOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject. ]. retrieverOp = #getRedComponentIn: ifTrue: [ ^ self booleanPhraseForGetColorComponentOfType: phrase resultType componentName: #red retrieverOp: retrieverOp player: phrase actualObject. ]. retrieverOp = #getGreenComponentIn: ifTrue: [ ^ self booleanPhraseForGetColorComponentOfType: phrase resultType componentName: #green retrieverOp: retrieverOp player: phrase actualObject. ]. retrieverOp = #getBlueComponentIn: ifTrue: [ ^ self booleanPhraseForGetColorComponentOfType: phrase resultType componentName: #blue retrieverOp: retrieverOp player: phrase actualObject. ]. retrieverOp = #getUphillIn: ifTrue: [ ^ self booleanPhraseForGetUpHillOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject. ]. retrieverOp = #getDistanceTo: ifTrue: [ ^ self booleanPhraseForGetDistanceToOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject. ]. retrieverOp = #getAngleTo: ifTrue: [ ^ self booleanPhraseForGetAngleToOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject. ]. retrieverOp = #bounceOn: ifTrue: [ ^ self booleanPhraseForBounceOnOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject. ]. " (retrieverOp = #bounceOn:color: or: [retrieverOp = #bounceOnColor:]) ifTrue: [ ^ self booleanPhraseForBounceOnColorOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject. ]." "retrieverOp = #getTurtleAt: ifTrue: [ ^ self booleanPhraseForGetTurtleAtOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject. ]." retrieverOp = #getTurtleOf: ifTrue: [ ^ self booleanPhraseForGetTurtleOfOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject. ]. ^ self booleanPhraseForRetrieverOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject. ]. ^ phrase! Item was removed: - ----- Method: ParameterTile>>isBoolean (in category 'access') ----- - isBoolean - "Answer whether the receiver's type is inherently boolean" - - ^ self scriptEditor typeForParameter == #Boolean! Item was added: + ----- Method: ParameterTile>>isBooleanType (in category 'access') ----- + isBooleanType + "Answer whether the receiver's type is inherently boolean" + + ^ self scriptEditor typeForParameter == #Boolean! Item was removed: - ----- Method: PhraseTileMorph>>isBoolean (in category 'queries') ----- - isBoolean - "Answer whether the receiver has a boolean type" - - ^ self resultType = #Boolean! Item was added: + ----- Method: PhraseTileMorph>>isBooleanType (in category 'queries') ----- + isBooleanType + "Answer whether the receiver has a boolean type" + + ^ self resultType = #Boolean! Item was changed: ----- Method: PhraseTileMorph>>rowOfRightTypeFor:forActor: (in category 'all') ----- rowOfRightTypeFor: aLayoutMorph forActor: aPlayer "Answer a phrase of the right type for the putative container" | aTemporaryViewer aPhrase | aLayoutMorph demandsBoolean ifTrue: + [self isBooleanType ifTrue: [^ self]. - [self isBoolean ifTrue: [^ self]. aTemporaryViewer := CategoryViewer new invisiblySetPlayer: aPlayer. aPhrase := aTemporaryViewer booleanPhraseFromPhrase: self. aPhrase justGrabbedFromViewer: false. ^ aPhrase]. ^ self! Item was removed: - ----- Method: SystemQueryPhrase>>isBoolean (in category 'access') ----- - isBoolean - ^ true! Item was added: + ----- Method: SystemQueryPhrase>>isBooleanType (in category 'access') ----- + isBooleanType + ^ true!

1 0

The Trunk: Kernel-cmm.1228.mcz
by commits＠source.squeak.org 09 May '19

09 May '19

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.1228.mcz ==================== Summary ==================== Name: Kernel-cmm.1228 Author: cmm Time: 7 May 2019, 6:36:01.955169 pm UUID: 2fad2a41-3aec-4e22-b9e8-cce50f7f6808 Ancestors: Kernel-nice.1227 Allow identification of instances of Boolean via #isBoolean. =============== Diff against Kernel-nice.1227 =============== Item was added: + ----- Method: Boolean>>isBoolean (in category 'testing') ----- + isBoolean + ^ true! Item was added: + ----- Method: Object>>isBoolean (in category 'testing') ----- + isBoolean + ^ false!

1 0

The Trunk: Protocols-pre.62.mcz
by commits＠source.squeak.org 07 May '19

07 May '19

Patrick Rein uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-pre.62.mcz ==================== Summary ==================== Name: Protocols-pre.62 Author: pre Time: 7 May 2019, 12:09:35.44983 pm UUID: db63a735-b9ea-6442-9048-022830af513e Ancestors: Protocols-cmm.61 Replaces calls to the deprecated #upTo: with #copyUpTo: in the lexicon browser =============== Diff against Protocols-cmm.61 =============== Item was changed: ----- Method: Lexicon>>displaySelector: (in category 'basic operation') ----- displaySelector: aSelector "Set aSelector to be the one whose source shows in the browser. If there is a category list, make it highlight a suitable category" | detectedItem messageIndex | self chooseCategory: (self categoryDefiningSelector: aSelector). detectedItem := messageList detect: + [:anItem | (anItem asString copyUpTo: Character space) asSymbol == aSelector] ifNone: [^ Beeper beep]. - [:anItem | (anItem asString upTo: $ ) asSymbol == aSelector] ifNone: [^ Beeper beep]. messageIndex := messageList indexOf: detectedItem. self messageListIndex: messageIndex! Item was changed: ----- Method: Lexicon>>selectSelectorItsNaturalCategory: (in category 'selection') ----- selectSelectorItsNaturalCategory: aSelector "Make aSelector be the current selection of the receiver, with the category being its home category." | cat catIndex detectedItem | cat := self categoryOfSelector: aSelector. catIndex := categoryList indexOf: cat ifAbsent: ["The method's own category is not seen in this browser; the method probably occurs in some other category not known directly to the class, but for now, we'll just use the all category" 1]. self categoryListIndex: catIndex. detectedItem := messageList detect: + [:anItem | (anItem asString copyUpTo: Character space) asSymbol == aSelector] ifNone: [^ self]. - [:anItem | (anItem asString upTo: $ ) asSymbol == aSelector] ifNone: [^ self]. self messageListIndex: (messageList indexOf: detectedItem ifAbsent: [^ self])! Item was changed: ----- Method: Lexicon>>selectWithinCurrentCategory: (in category 'selection') ----- selectWithinCurrentCategory: aSelector "If aSelector is one of the selectors seen in the current category, select it" | detectedItem | detectedItem := self messageList detect: + [:anItem | (anItem asString copyUpTo: Character space) asSymbol == aSelector] ifNone: [^ self]. - [:anItem | (anItem asString upTo: $ ) asSymbol == aSelector] ifNone: [^ self]. self messageListIndex: (messageList indexOf: detectedItem ifAbsent: [^ self])! Item was changed: ----- Method: Lexicon>>selectorsSendingSelectedSelector (in category 'senders') ----- selectorsSendingSelectedSelector "Assumes lastSendersSearchSelector is already set" | selectorSet | + autoSelectString := (self lastSendersSearchSelector copyUpTo: $:) asString. - autoSelectString := (self lastSendersSearchSelector upTo: $:) asString. selectorSet := Set new. (self systemNavigation allCallsOn: self lastSendersSearchSelector) do: [:anItem | | sel cl | sel := anItem methodSymbol. cl := anItem actualClass. ((currentVocabulary includesSelector: sel forInstance: self targetObject ofClass: targetClass limitClass: limitClass) and: [targetClass includesBehavior: cl]) ifTrue: [selectorSet add: sel]]. ^ selectorSet sorted! Item was changed: ----- Method: Lexicon>>setToShowSelector:selectCategory: (in category 'selection') ----- setToShowSelector: selectorString selectCategory: aBoolean "Set up the receiver so that it will show the given selector" | catName catIndex messageIndex aList | catName := aBoolean ifTrue: [ (aList := currentVocabulary categoriesContaining: selectorString forClass: targetClass) at: 1 ifAbsent: [ self class allCategoryName ] ] ifFalse: [ self class allCategoryName ]. catIndex := categoryList indexOf: catName ifAbsent: [ 1 ]. self categoryListIndex: catIndex. messageList detect: + [ : anItem | (anItem copyUpTo: Character space) asString asSymbol == selectorString ] - [ : anItem | (anItem upTo: Character space) asString asSymbol == selectorString ] ifFound: [ : detectedItem | messageIndex := messageList indexOf: detectedItem. self messageListIndex: messageIndex ] ifNone: [ ^ self ]!

1 0

The Trunk: Tools-nice.847.mcz
by commits＠source.squeak.org 07 May '19

07 May '19

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.847.mcz ==================== Summary ==================== Name: Tools-nice.847 Author: nice Time: 7 May 2019, 9:38:06.649253 am UUID: 58b94b2d-3cc1-42fc-ace2-c702f38295c8 Ancestors: Tools-dtl.846 Don't propose addLast:times: in MethodFinder, it's been deprecated =============== Diff against Tools-dtl.846 =============== Item was changed: ----- Method: MethodFinder>>initialize2 (in category 'initialize') ----- (excessive size, no diff calculated)

1 0

The Trunk: Collections-nice.831.mcz
by commits＠source.squeak.org 07 May '19

07 May '19

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.831.mcz ==================== Summary ==================== Name: Collections-nice.831 Author: nice Time: 7 May 2019, 9:33:06.030048 am UUID: f1eda889-8e88-4e90-aca1-96620127ab63 Ancestors: Collections-nice.830 Fix two occurrences of addLast:times: that crept in since I proposed the deprecation. =============== Diff against Collections-nice.830 =============== Item was changed: ----- Method: HtmlReadWriter>>processRunStackTop (in category 'reading') ----- processRunStackTop "Write accumulated attributes to run array." | currentIndex start attrs | currentIndex := count - offset. start := runStack top second. attrs := runStack top first. runArray + add: attrs asArray + withOccurrences: currentIndex - start + 1.! - addLast: attrs asArray - times: currentIndex - start + 1.! Item was changed: ----- Method: Text>>setString:setRunsChecking: (in category 'private') ----- setString: aString setRunsChecking: aRunArray | stringSize runsSize | string := aString. aRunArray ifNil: [^ aString asText]. "Check runs and do the best you can to make them fit..." aRunArray runs size = aRunArray values size ifFalse: [^ aString asText]. "raise error here?" runsSize := aRunArray size. stringSize := string size. runs := stringSize = runsSize ifTrue: [aRunArray] ifFalse: [ stringSize > runsSize + ifTrue: [aRunArray add: {} withOccurrences: stringSize - runsSize] - ifTrue: [aRunArray addLast: {} times: stringSize - runsSize] ifFalse: [aRunArray copyFrom: 1 to: stringSize]].!

1 0

The Trunk: CollectionsTests-nice.308.mcz
by commits＠source.squeak.org 07 May '19

07 May '19

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.308.mcz ==================== Summary ==================== Name: CollectionsTests-nice.308 Author: nice Time: 7 May 2019, 9:28:47.605099 am UUID: 682eef1e-7191-404d-b11a-4078704d76f3 Ancestors: CollectionsTests-pre.307, CollectionsTests-nice.195 Merge CollectionsTests-pre.307, CollectionsTests-nice.195 Let's use add:withOccurrences: now that addLast:times: is deprecated =============== Diff against CollectionsTests-pre.307 =============== Item was changed: ----- Method: TextAndTextStreamTest>>testRunArrayAdjacentMerge (in category 'tests') ----- testRunArrayAdjacentMerge "this demonstrates that adjancent runs with equal attributes are merged. " | runArray | runArray := RunArray new. runArray + add: TextEmphasis normal withOccurrences: 5; + add: TextEmphasis bold withOccurrences: 5; + add: TextEmphasis bold withOccurrences: 5. - addLast: TextEmphasis normal times: 5; - addLast: TextEmphasis bold times: 5; - addLast: TextEmphasis bold times: 5. self assert: (runArray runs size = 2). ! Item was changed: ----- Method: TextAndTextStreamTest>>testRunArrayInvariant (in category 'tests') ----- testRunArrayInvariant "this verifies that the fundamental invariant of a RunArray is always satisfied. " "see comment below" | runArray | runArray := RunArray new. runArray + add: TextEmphasis normal withOccurrences: 5; + add: TextEmphasis bold withOccurrences: 5; + add: TextEmphasis normal withOccurrences: 5. - addLast: TextEmphasis normal times: 5; - addLast: TextEmphasis bold times: 5; - addLast: TextEmphasis normal times: 5. self assert: ((1 to: runArray size) allSatisfy: [:idx | | lastIndex lastOffset lastRun lengthOfPreviousRuns | runArray at: idx. " updates the cached values " lastIndex := runArray instVarNamed: 'lastIndex'. lastRun := runArray instVarNamed: 'lastRun'. lastOffset := runArray instVarNamed: 'lastOffset'. lengthOfPreviousRuns := (1 to: lastRun - 1) inject: 0 into: [:sum :idx2 | sum + (runArray runs at: idx2)]. lastIndex = (lastOffset + lengthOfPreviousRuns + 1) ] ). " This method is a bit tricky. First, it uses Object>>instVarNamed: to access instance variables for which no accessors are defined. The same method is used by the debuggers and by various inspectors. The assertion itself explains the meaning of the cached values."! Item was changed: ----- Method: TextAndTextStreamTest>>testRunArrayReversal (in category 'tests') ----- testRunArrayReversal "this tests the reversal of a RunArray " | runArray | runArray := RunArray new. runArray + add: TextEmphasis normal withOccurrences: 5; + add: TextEmphasis bold withOccurrences: 5; + add: TextEmphasis normal withOccurrences: 5. - addLast: TextEmphasis normal times: 5; - addLast: TextEmphasis bold times: 5; - addLast: TextEmphasis normal times: 5. self assert: (runArray reversed runs size = 3). ! Item was changed: ----- Method: TextAndTextStreamTest>>testRunArrayRunsAreNotMerged (in category 'tests') ----- testRunArrayRunsAreNotMerged " this demonstrates that different runs are not merged " | runArray | runArray := RunArray new. runArray + add: TextEmphasis normal withOccurrences: 5; + add: TextEmphasis bold withOccurrences: 5; + add: TextEmphasis normal withOccurrences: 5. - addLast: TextEmphasis normal times: 5; - addLast: TextEmphasis bold times: 5; - addLast: TextEmphasis normal times: 5. self assert: (runArray runs size = 3). ! Item was changed: ----- Method: TextAndTextStreamTest>>testRunArrayRunsSize (in category 'tests') ----- testRunArrayRunsSize "this demonstrates that the size of a run array is the sum of the sizes of its runs. " | runArray | runArray := RunArray new. runArray + add: TextEmphasis normal withOccurrences: 5; + add: TextEmphasis bold withOccurrences: 5; + add: TextEmphasis normal withOccurrences: 5. - addLast: TextEmphasis normal times: 5; - addLast: TextEmphasis bold times: 5; - addLast: TextEmphasis normal times: 5. self assert: (runArray size = 15). !

1 0

The Trunk: 60Deprecated-nice.34.mcz
by commits＠source.squeak.org 07 May '19

07 May '19

Nicolas Cellier uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-nice.34.mcz ==================== Summary ==================== Name: 60Deprecated-nice.34 Author: nice Time: 7 May 2019, 9:26:52.899828 am UUID: 882e9027-6b0f-4ef4-9ab6-02e2dff2df3b Ancestors: 60Deprecated-tpr.33 Deprecate RunArray>>addLast:times: Companion change to Collections-nice.830/Collections-nice.499 =============== Diff against 60Deprecated-tpr.33 =============== Item was added: + ----- Method: RunArray>>addLast:times: (in category '*60Deprecated') ----- + addLast: value times: times + "Add value as the last element of the receiver, the given number of times" + self deprecated: 'use add:withOccurrences:'. + ^self add: value withOccurrences: times!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2019