Squeak-dev April 2019

squeak-dev@lists.squeakfoundation.org

36 participants
122 discussions

The Trunk: ShoutTests-nice.27.mcz
by commits＠source.squeak.org 07 Apr '19

07 Apr '19

Nicolas Cellier uploaded a new version of ShoutTests to project The Trunk: http://source.squeak.org/trunk/ShoutTests-nice.27.mcz ==================== Summary ==================== Name: ShoutTests-nice.27 Author: nice Time: 7 April 2019, 2:43:38.674687 pm UUID: 3f8b54af-406e-40fe-9666-d3101106a25f Ancestors: ShoutTests-ul.26 Expression like 1to:-1 are valid Smalltalk syntax, even without spaces. Document that with a shout test. Note that Shout currently refuses this syntax. This works with a space after the colon 1to: -1 =============== Diff against ShoutTests-ul.26 =============== Item was added: + ----- Method: SHParserST80Test>>testNegativeNumberWithoutSpace (in category 'tests') ----- + testNegativeNumberWithoutSpace + | types tokens s | + s := 'x 1to:-1'. + types := self tokenTypesIn: s. + tokens := self tokensIn: s. + self assert: types = #(#patternUnary #number #keyword #- #number). + self assert: tokens = #('x' '1' 'to:' '-' '1').!

1 0

The Trunk: Tools-dtl.846.mcz
by commits＠source.squeak.org 07 Apr '19

07 Apr '19

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-dtl.846.mcz ==================== Summary ==================== Name: Tools-dtl.846 Author: dtl Time: 6 April 2019, 7:02:48.955673 pm UUID: 32d1a183-ed6d-48f4-bdb8-2441a3811295 Ancestors: Tools-kks.845 MethodFinder raises a deprecation warning when evaluating this: 'abcdef' . $e . 'abcd' Suppress the warning by proceding though the Deprecation. The deprecated SequenceableCollection>>#upTo: will still be included in the search results. =============== Diff against Tools-kks.845 =============== Item was changed: ----- Method: MethodFinder>>testPerfect: (in category 'search') ----- testPerfect: aSelector "Try this selector!! Return true if it answers every example perfectly. Take the args in the order they are. Do not permute them. Survive errors. later cache arg lists." | sz argList val rec activeSel perform | "Transcript cr; show: aSelector. debug" perform := aSelector beginsWith: 'perform:'. sz := argMap size. 1 to: thisData size do: [:ii | "each example set of args" argList := (thisData at: ii) copyFrom: 2 to: sz. perform ifFalse: [activeSel := aSelector] ifTrue: [activeSel := argList first. "what will be performed" ((Approved includes: activeSel) or: [AddAndRemove includes: activeSel]) ifFalse: [^ false]. "not approved" aSelector == #perform:withArguments: ifTrue: [activeSel numArgs = (argList at: 2) basicSize "avoid error" ifFalse: [^ false]] ifFalse: [activeSel numArgs = (aSelector numArgs - 1) ifFalse: [^ false]]]. 1 to: sz do: [:num | (Blocks includes: (Array with: activeSel with: num)) ifTrue: [ (argList at: num) isBlock ifFalse: [^ false]]]. rec := (AddAndRemove includes: activeSel) ifTrue: [(thisData at: ii) first isSymbol ifTrue: [^ false]. "vulnerable to modification" (thisData at: ii) first copyTwoLevel] "protect from damage" ifFalse: [(thisData at: ii) first]. + val := [[rec perform: aSelector withArguments: argList] + on: Deprecation do: [ :ex | ex resume ]] + ifError: [:aString :aReceiver | - val := [rec perform: aSelector withArguments: argList] - ifError: [:aString :aReceiver | "self test3." "self test2: (thisData at: ii)." ^ false]. "self test3." "self test2: (thisData at: ii)." ((answers at: ii) closeTo: val) ifFalse: [^ false]. ]. ^ true!

1 0

The Trunk: CollectionsTests-nice.304.mcz
by commits＠source.squeak.org 06 Apr '19

06 Apr '19

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.304.mcz ==================== Summary ==================== Name: CollectionsTests-nice.304 Author: nice Time: 6 April 2019, 3:55:40.624272 pm UUID: e6dfc4bf-906d-4e7d-8bb4-1fc6fc5bbe4b Ancestors: CollectionsTests-ul.303 More and less Interval tests - Once upon a time, I changed reversed to answer an Interval, which is a good thing... Err, except for Interval of floats (which are generally not well behaved objects)... I don't know if we must revert reversed, or hack special case of Float Intervals (I have some idea), but we should at least document the behavior. - Once upon a time, I fixed implementation of fuzzy inclusion in Interval. But I don't really approve the feature. Fuzzy inclusion produce several unconsistencies in Interval behavior which goes against a principle of least astonishment. As we say, you can cheat as long as you don't get caught... Gotcha! - Remove testNumericTypes which does not assert anything, which seems to ignore the basics of Smalltalk selector precedence, and which would rely on abandoned equality between Interval and Array. =============== Diff against CollectionsTests-ul.303 =============== Item was added: + ----- Method: IntervalTest>>testIntervalOfFloatReversed (in category 'tests') ----- + testIntervalOfFloatReversed + self assert: (-16.3 to: 20.1 by: 1.3) reversed size + equals: (-16.3 to: 20.1 by: 1.3) size + description: 'reversed should preserve the size of a collection'. + self assert: (0.1 to: 0.9 by: 0.1) reversed asArray + equals: (0.1 to: 0.9 by: 0.1) asArray reversed + description: 'reversed should preserve the elements of a collection'.! Item was removed: - ----- Method: IntervalTest>>testNumericTypes (in category 'tests') ----- - testNumericTypes - - (3 asNumber) to: 5 = #(3 4 5). - - 3.0 to: 5.0 = #(3.0 4.0 5.0). - 3.0 to: 5.0 by: 0.5 = #(3.0 3.5 4.0 4.5 5.0). - - 3/1 to: 5/1 = #(3 4 5). - 1/2 to: 5/2 by: 1/2 = #(1/2 1 3/2 2 5/2).! Item was added: + ----- Method: IntervalTest>>testSurprisingFuzzyInclusionBehavior (in category 'tests') ----- + testSurprisingFuzzyInclusionBehavior + "If ever Interval implement fuzzy inclusion, then we can expect weird logic..." + self assert: ((0.1 to: 0.9 by: 0.1) asArray includes: 0.3) + ==> (((0.1 to: 0.9 by: 0.1) occurrencesOf: 0.3) > 0) + description: 'A Collection that includes something has at least one occurrence of something'. + self assert: ((0.1 to: 0.9 by: 0.1) lastIndexOf: 0.3) + >= ((0.1 to: 0.9 by: 0.1) indexOf: 0.3) + description: 'If the last index of an object in a SequenceableCollection should be greater or equal to the first index'.!

2 1

The Trunk: System-cmm.1061.mcz
by commits＠source.squeak.org 05 Apr '19

05 Apr '19

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.1061.mcz ==================== Summary ==================== Name: System-cmm.1061 Author: cmm Time: 4 April 2019, 6:30:34.295865 pm UUID: d55f8c82-4dea-4d11-be0c-ff63c61b7e04 Ancestors: System-eem.1058 Metacello and GitInfrastructure tools are currently the best way to load projects hosted by github.com. Promote installation of these tools to the Tools menu. While in there, make a couple of improvements to the Do menu. =============== Diff against System-eem.1058 =============== Item was changed: ----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') ----- initializeCommonRequestStrings "Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu." CommonRequestStrings := StringHolder new contents: + 'Utilities emergencyCollapse. - 'Installer ensureRecentMetacello. - Installer installGitInfrastructure. - - - Utilities emergencyCollapse. Utilities closeAllDebuggers. - + MCFileBasedRepository flushAllCaches + - Sensor keyboard. ParagraphEditor abandonChangeText. Cursor normal show. - CommandHistory resetAllHistory. Project allInstancesDo: [:p | p displayDepth: 16]. ScriptingSystem inspectFormDictionary. Form fromUser bitEdit. Display border: (0@0 extent: 640@480) width: 2. - Undeclared inspect. Undeclared removeUnreferencedKeys; inspect. Transcript clear. Utilities grabScreenAndSaveOnDisk. FrameRateMorph new openInHand. - Utilities reconstructTextWindowsFromFileNamed: ''TW''. Utilities storeTextWindowContentsToFileNamed: ''TW''. ChangeSorter removeEmptyUnnamedChangeSets. ChangeSorter reorderChangeSets. - ActiveWorld installVectorVocabulary. + ActiveWorld abandonVocabularyPreference.' - ActiveWorld abandonVocabularyPreference. - Smalltalk saveAsNewVersion.' "Utilities initializeCommonRequestStrings"! Item was changed: + (PackageInfo named: 'System') postscript: 'Utilities initializeCommonRequestStrings'! - (PackageInfo named: 'System') postscript: '"Update user interface themes." - UserInterfaceTheme cleanUpAndReset.'!

1 0

The Inbox: System-dtl.1059.mcz
by commits＠source.squeak.org 05 Apr '19

05 Apr '19

David T. Lewis uploaded a new version of System to project The Inbox: http://source.squeak.org/inbox/System-dtl.1059.mcz ==================== Summary ==================== Name: System-dtl.1059 Author: dtl Time: 4 April 2019, 6:51:23.984741 pm UUID: 7c74270f-ee6f-4dd4-8668-e55a6f9071c5 Ancestors: System-eem.1058 Update the Do menu in the world docking bar. Move the ensureRecentMetacello and installGitInfrastructure entries down one category to allow emergencyCollapse and closeAllDebuggers to be in their expected position in the menu for the benefit of keyboard navigation. If Monticello is present in the image, add "MCFileBasedRepository flushAllCaches", an obscure but frequently needed memory cleanup. Update menus in the package postscript. =============== Diff against System-eem.1058 =============== Item was changed: ----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') ----- initializeCommonRequestStrings "Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu." + "Utilities initializeCommonRequestStrings" + + | flushMC | + flushMC := (Smalltalk hasClassNamed:#MCFileBasedRepository) + ifTrue: ['MCFileBasedRepository flushAllCaches.' , String cr , '-' , String cr] + ifFalse: ['']. + CommonRequestStrings := StringHolder new contents: + 'Utilities emergencyCollapse. - 'Installer ensureRecentMetacello. - Installer installGitInfrastructure. - - - Utilities emergencyCollapse. Utilities closeAllDebuggers. - + Installer ensureRecentMetacello. + Installer installGitInfrastructure. + - + ' , flushMC, + 'Sensor keyboard. - Sensor keyboard. ParagraphEditor abandonChangeText. Cursor normal show. - CommandHistory resetAllHistory. Project allInstancesDo: [:p | p displayDepth: 16]. ScriptingSystem inspectFormDictionary. Form fromUser bitEdit. Display border: (0@0 extent: 640@480) width: 2. - Undeclared inspect. Undeclared removeUnreferencedKeys; inspect. Transcript clear. Utilities grabScreenAndSaveOnDisk. FrameRateMorph new openInHand. - Utilities reconstructTextWindowsFromFileNamed: ''TW''. Utilities storeTextWindowContentsToFileNamed: ''TW''. ChangeSorter removeEmptyUnnamedChangeSets. ChangeSorter reorderChangeSets. - ActiveWorld installVectorVocabulary. ActiveWorld abandonVocabularyPreference. Smalltalk saveAsNewVersion.' + ! - - "Utilities initializeCommonRequestStrings"! Item was changed: + (PackageInfo named: 'System') postscript: '"Update commonRequestStrings for the Do menu in world docking bar." + + (Utilities commonRequestStrings contents includesSubstring: ''MCFileBasedRepository'') + ifFalse: [ Utilities cleanUp: true ]. + '! - (PackageInfo named: 'System') postscript: '"Update user interface themes." - UserInterfaceTheme cleanUpAndReset.'!

2 1

The Trunk: System-cmm.1060.mcz
by commits＠source.squeak.org 05 Apr '19

05 Apr '19

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.1060.mcz ==================== Summary ==================== Name: System-cmm.1060 Author: cmm Time: 4 April 2019, 6:02:52.466778 pm UUID: 61645132-b95b-43f7-9a75-1567ae167599 Ancestors: System-eem.1058 Metacello and GitInfrastructure tools are currently the best way to load projects hosted by github.com. Promote installation of these tools to the Tools menu. =============== Diff against System-eem.1058 =============== Item was changed: ----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') ----- initializeCommonRequestStrings "Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu." CommonRequestStrings := StringHolder new contents: + 'Utilities emergencyCollapse. - 'Installer ensureRecentMetacello. - Installer installGitInfrastructure. - - - Utilities emergencyCollapse. Utilities closeAllDebuggers. - Sensor keyboard. ParagraphEditor abandonChangeText. Cursor normal show. - CommandHistory resetAllHistory. Project allInstancesDo: [:p | p displayDepth: 16]. ScriptingSystem inspectFormDictionary. Form fromUser bitEdit. Display border: (0@0 extent: 640@480) width: 2. - Undeclared inspect. Undeclared removeUnreferencedKeys; inspect. Transcript clear. Utilities grabScreenAndSaveOnDisk. FrameRateMorph new openInHand. - Utilities reconstructTextWindowsFromFileNamed: ''TW''. Utilities storeTextWindowContentsToFileNamed: ''TW''. ChangeSorter removeEmptyUnnamedChangeSets. ChangeSorter reorderChangeSets. - ActiveWorld installVectorVocabulary. + ActiveWorld abandonVocabularyPreference.' - ActiveWorld abandonVocabularyPreference. - Smalltalk saveAsNewVersion.' "Utilities initializeCommonRequestStrings"! Item was changed: + (PackageInfo named: 'System') postscript: 'Utilities initializeCommonRequestStrings'! - (PackageInfo named: 'System') postscript: '"Update user interface themes." - UserInterfaceTheme cleanUpAndReset.'!

1 0

The Trunk: Morphic-LB.1465.mcz
by commits＠source.squeak.org 04 Apr '19

04 Apr '19

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-LB.1465.mcz ==================== Summary ==================== Name: Morphic-LB.1465 Author: LB Time: 21 March 2019, 10:29:53.207601 am UUID: 771444aa-6f73-e64a-8111-6af3e69e9525 Ancestors: Morphic-eem.1464 SystemWindow#replacePane:with: had an unexpected side effect changing the color of the pane put in place to transparent. This limited it's use as it is unwanted. =============== Diff against Morphic-eem.1464 =============== Item was changed: ----- Method: SystemWindow>>replacePane:with: (in category 'panes') ----- replacePane: oldPane with: newPane "Make newPane exactly occupy the position and extent of oldPane" | aLayoutFrame hadDep | hadDep := model dependents includes: oldPane. oldPane owner replaceSubmorph: oldPane by: newPane. newPane position: oldPane position; extent: oldPane extent. aLayoutFrame := oldPane layoutFrame. paneMorphs := paneMorphs collect: [:each | each == oldPane ifTrue: [newPane] ifFalse: [each]]. aLayoutFrame ifNotNil: [newPane layoutFrame: aLayoutFrame]. - newPane color: Color transparent. hadDep ifTrue: [model removeDependent: oldPane. model addDependent: newPane]. self changed !

1 0

The Trunk: Morphic-cmm.1483.mcz
by commits＠source.squeak.org 04 Apr '19

04 Apr '19

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1483.mcz ==================== Summary ==================== Name: Morphic-cmm.1483 Author: cmm Time: 4 April 2019, 4:58:11.118673 pm UUID: 207cfe08-49dd-43a1-ba28-00dca6128fc0 Ancestors: Morphic-kfr.1482, Morphic-LB.1465 - Guard from image lockup when a list filtering event is processed prior to checking for #balloonText. Suspect PluggableListMorph>>#hoverRow: is the culprit. - Merge fix from Morphic-LB.1465. =============== Diff against Morphic-kfr.1482 =============== Item was changed: ----- Method: PluggableListMorph>>modelIndexFor: (in category 'selection') ----- modelIndexFor: selectionIndex "The model does not know anything about the receiver's filtering, so if I am filtered, we must determine the correct index by scanning the full list in the model." ^ (selectionIndex > 0 and: [ self hasFilter ]) ifTrue: + [ selectionIndex > list size + ifTrue: [ 0 ] + ifFalse: [ self getFullList indexOf: (self getListItem: selectionIndex) ] ] - [ list - ifEmpty: [ 0 ] - ifNotEmpty: [ self getFullList indexOf: (self getListItem: selectionIndex) ] ] ifFalse: [ selectionIndex ]! Item was changed: ----- Method: SystemWindow>>replacePane:with: (in category 'panes') ----- replacePane: oldPane with: newPane "Make newPane exactly occupy the position and extent of oldPane" | aLayoutFrame hadDep | hadDep := model dependents includes: oldPane. oldPane owner replaceSubmorph: oldPane by: newPane. newPane position: oldPane position; extent: oldPane extent. aLayoutFrame := oldPane layoutFrame. paneMorphs := paneMorphs collect: [:each | each == oldPane ifTrue: [newPane] ifFalse: [each]]. aLayoutFrame ifNotNil: [newPane layoutFrame: aLayoutFrame]. - newPane color: Color transparent. hadDep ifTrue: [model removeDependent: oldPane. model addDependent: newPane]. self changed !

1 0

High language to express low level code
by pierre misse 02 Apr '19

02 Apr '19

Hello, I'm currently trying to create a "high" level language to that aims to express low level concepts through transpilation to C. I have a limited experience building such programs, and thought people who build virtual machines would be the right group of people to ask what they need in low level programing! I've also made some research, and stumbled Slang, on which i found little documentation (probably because i didn't find the right combination of words). So if you have a bit of time to share, i'd love to know: * What you kind of concepts you need * What's not required, but interesting * What you'd wish to hide from C to be taken care of by the transpiler Thank you in advance. Regards, Pierre Misse.

3 2

Modern way to load a picture from the web?
by H. Hirzel 02 Apr '19

02 Apr '19

Hello What is a good modern way in Squeak to load a picture from the web? I am looking for an equivalent of | pngPicURL aStream | pngPicURL := 'https://upload.wikimedia.org/wikipedia/commons/thumb/1/11/Squeak-x11.png/61…'. aStream := HTTPSocket httpGet: pngPicURL. (ImageReadWriter formFromStream: aStream) asMorph openInHand And answer or just comments are welcome. Thank you. Kind regards Hannes

5 10