Squeak-dev September 2018

squeak-dev@lists.squeakfoundation.org

23 participants
56 discussions

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

_: in selectors
by Eliot Miranda 18 Sep '18

18 Sep '18

Hi All, Pharo accepts method: p _: q _: r ^'cool' Squeak does not. I have an urgent compelling use case in VMMaker. Would there be any strong objections to me modifying the Squeak compiler to accept the above when the allowUnderscoresInSelectors preference is in effect? _,,,^..^,,,_ best, Eliot

3 3

The Inbox: Collections-nice.807.mcz
by commits＠source.squeak.org 18 Sep '18

18 Sep '18

Nicolas Cellier uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-nice.807.mcz ==================== Summary ==================== Name: Collections-nice.807 Author: nice Time: 13 September 2018, 9:29:57.057799 pm UUID: f4686e6e-1820-4c3f-841d-c1904914c147 Ancestors: Collections-topa.806 Let isSeparator be consistent with Character separators after introduction of nbsp. The performance cost should be marginal. Note: some (CharacterSet cleanUp: false) might be necessary in postscript, unless this is included in the release process... =============== Diff against Collections-topa.806 =============== Item was changed: ----- Method: Character>>isSeparator (in category 'testing') ----- isSeparator "Answer whether the receiver is one of the separator characters--space, + cr, tab, line feed, or form feed and nbsp." - cr, tab, line feed, or form feed." | integerValue | + (integerValue := self asInteger) > 32 ifTrue: [ ^integerValue = 160 "non breaking space" ]. - (integerValue := self asInteger) > 32 ifTrue: [ ^false ]. integerValue caseOf: { [ 32 "space" ] -> [ ^true ]. [ 9 "tab" ] -> [ ^true ]. [ 13 "cr"] -> [ ^true ]. [ 10 "line feed" ] -> [ ^true ]. [ 12 "form feed"] -> [ ^true ] } otherwise: [ ^false ]!

6 9

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

18 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 ].!

5 5

opentalk or equivalent?
by tim Rowledge 18 Sep '18

18 Sep '18

I could have sworn I saw some references to a squeak package for opentalk, but right now my googlising simply finds nothing. Am I hallucinating? Is there an equivalent? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim dilate - live long

1 0

swiki edit requiring https and log in?
by tim Rowledge 18 Sep '18

18 Sep '18

When did the swiki get TLS'd? I was just trying to update the page on my MQTT package. Hitting 'edit' raises a login dialogue and jumps to an https URL. That doesn't ring any bells. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful Latin Phrases:- Die dulci fruere = Have a nice day

2 5

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

16 Sep '18

Chris Muller uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/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'!

5 6

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: Morphic-cmm.1463.mcz
by commits＠source.squeak.org 14 Sep '18

14 Sep '18

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1463.mcz ==================== Summary ==================== Name: Morphic-cmm.1463 Author: cmm Time: 7 September 2018, 2:37:21.377647 pm UUID: c11ac7b7-0b5b-4814-87d3-9c8eb2b62bce Ancestors: Morphic-cmm.1462 - Fix halo-invocation on a rotated Morph when halos are on the World. - Provide access to the TextIndent attribute on the alignment menu. - Fix a NonBooleanReceiver error that appeared when pressing backspace on a read-only text field. =============== Diff against Morphic-cmm.1462 =============== Item was changed: ----- Method: PasteUpMorph>>tryInvokeHalo: (in category 'events-processing') ----- tryInvokeHalo: aUserInputEvent "Invoke halos around the top-most world container at aUserInputEvent's #position. If it was already halo'd, zero-in on its next inward component morph at that position. Holding Shift during the click reverses this traversal order." | stack innermost haloTarget | Preferences noviceMode ifTrue: [ ^ self ]. Morph haloForAll ifFalse: [ ^ self ]. "the stack is the top-most morph to bottom-most." stack := (self morphsAt: aUserInputEvent position unlocked: true) select: [ : each | each wantsHaloFromClick or: [ each handlesMouseDown: aUserInputEvent ] ]. innermost := aUserInputEvent hand halo ifNil: [ stack first ] ifNotNil: [ : existingHalo | stack allButFirst "existingHalo is first on the stack, not a target" detect: [ : each | each owner == self ] ifFound: [ : worldContainer | "Is existingHalo's target part of the same worldContainer as the morph clicked?" (existingHalo target withAllOwners includes: worldContainer) + ifTrue: [ "same hierarchy, let #transferHalo: continue to handle it for now." ^self ] - ifTrue: [ "same hierarchy, let #transferHalo: continue to handle it for now." ^ self ] ifFalse: [ "different hierarchy, remove + add." aUserInputEvent hand removeHalo. aUserInputEvent shiftPressed ifTrue: [ stack second "first is still the just removed halo" ] ifFalse: [ worldContainer ] ] ] + ifNone: [ "existingHalo is on the World, defer to #transferHalo: for now." ^self ] ]. - ifNone: [ "Shouldn't get here, but defensive code." self ] ]. "If modifier key is pressed, start at innermost (the target), otherwise the outermost (direct child of the world (self))." haloTarget := (innermost == self or: [aUserInputEvent shiftPressed]) ifTrue: [ innermost ] ifFalse: [ "Find the outermost owner that wants it." innermost withAllOwners reversed allButFirst detect: [ : each | each wantsHaloFromClick ] ifNone: [ "haloTarget has its own mouseDown handler, don't halo." ^ self ] ]. "Now that we have the haloTarget, show the halo." aUserInputEvent hand newMouseFocus: haloTarget event: aUserInputEvent. haloTarget invokeHaloOrMove: aUserInputEvent. "aUserInputEvent has been consumed, don't let it cause any further side-effects." aUserInputEvent ignore! Item was changed: ----- Method: TextEditor>>backTo: (in category 'typing support') ----- backTo: startIndex "During typing, backspace to startIndex. If there already is a selection, just delete that selection. Otherwise, check if we did something else than backward-deletion and start a new command if so." + morph readOnly ifTrue: [^ false]. - morph readOnly ifTrue: [^ self]. self hasSelection ifTrue: [ "Add checkpoint in undo history." self replaceSelectionWith: self nullText. ^ true]. startIndex > self text size ifTrue: [^ false]. self selectInvisiblyFrom: startIndex to: self stopIndex-1. self isTypingIn ifTrue: [ self history current type = #backward ifFalse: [self closeTypeIn] ifTrue: [ "Accumulate all deleted characters in current undo command." self history current contentsBefore replaceFrom: 1 to: 0 with: self selection. self history current intervalBefore in: [:i | self history current intervalBefore: (startIndex to: i last)]]]. self openTypeInFor: #backward. self zapSelectionWith: self nullText. ^ false! Item was changed: ----- Method: TextEditor>>changeAlignment (in category 'menu messages') ----- changeAlignment + | options reply | + options := self existingIndentation + caseOf: + {[0]-> [ #('leftFlush' 'indented' 'centered' 'justified' 'rightFlush') ]. + [1] -> [ #('leftFlush' 'indented more' 'centered' 'justified' 'rightFlush') ]} + otherwise: [ #('leftFlush' 'indented less' 'indented more' 'centered' 'justified' 'rightFlush') ]. + reply := UIManager default chooseFrom: options values: options. + reply ifNil: [ ^ self ]. - | aList reply | - aList := #(leftFlush centered justified rightFlush). - reply := UIManager default chooseFrom: aList values: aList. - reply ifNil:[^self]. self setAlignment: reply. paragraph composeAll. self recomputeSelection. ^ true! Item was added: + ----- Method: TextEditor>>existingIndentation (in category 'private') ----- + existingIndentation + ^ paragraph text indentationAmountAt: (self encompassLine: self selectionInterval)! Item was changed: ----- Method: TextEditor>>setAlignment: (in category 'menu messages') ----- + setAlignment: selectionString + | attr interval | + attr := selectionString + caseOf: + { [ 'indented' ] -> [ TextIndent amount: 1 ]. + [ 'indented more' ] -> [ TextIndent amount: self existingIndentation+1 ]. + [ 'indented less' ] -> [ TextIndent amount: (self existingIndentation-1 max: 0) ]} + otherwise: + [ TextAlignment perform: selectionString asSymbol ]. - setAlignment: aSymbol - | attr interval | - attr := TextAlignment perform: aSymbol. interval := self encompassLine: self selectionInterval. + paragraph - paragraph replaceFrom: interval first to: interval last with: ((paragraph text copyFrom: interval first to: interval last) addAttribute: attr)!

2 1

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 - "!

2 1