Squeak-dev April 2016

squeak-dev@lists.squeakfoundation.org

39 participants
244 discussions

The Trunk: ST80-dtl.204.mcz
by commits＠source.squeak.org 30 Apr '16

30 Apr '16

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.204.mcz ==================== Summary ==================== Name: ST80-dtl.204 Author: dtl Time: 30 April 2016, 3:19:53.457686 pm UUID: acbcf1f1-f922-49b2-a551-cc7bcec09d61 Ancestors: ST80-mt.203 Simplify unloading and reloading MVC. Originally described circa Squeak 4.1: http://lists.squeakfoundation.org/pipermail/squeak-dev/2010-February/144305… The original SystemImage>>zapMVCProjects method is reimplemented as MVCProject class>>removeProjectsFromSystem. To completely remove MVC: "MVCProject unloadMVC". To reinstall MVC, load packages ST80, ST880Tools, ST80Tests, and ToolBuild-MVC from the trunk repository. Note - unloading MVC when the current project is MVC should work, but does not. =============== Diff against ST80-mt.203 =============== Item was added: + ----- Method: MVCProject class>>removeProjectsFromSystem (in category 'shrinking') ----- + removeProjectsFromSystem + "Remove all MVC projects from the system, reorganizing the project hierarchy as needed. + This method was originally implemented as SmalltalkImage>>zapMVCProjects in earlier + versions of Squeak." + + "MVCProject removeProjectsFromSystem" + + Smalltalk garbageCollect. "So allInstances is precise" + Project + allSubInstancesDo: [:proj | | window | proj isTopProject + ifTrue: [(proj isKindOf: self) + ifTrue: ["Root project is MVC -- we must become the root" + Project current setParent: Project current.]] + ifFalse: [(proj parent isKindOf: self) + ifTrue: [(proj isKindOf: self) + ifFalse: ["Remove Morphic projects from MVC views " + "... and add them back here." + window := (SystemWindow labelled: proj name) + model: proj. + window + addMorph: (ProjectViewMorph on: proj) + frame: (0 @ 0 corner: 1.0 @ 1.0). + window openInWorld. + proj setParent: Project current]]. + (proj isKindOf: self) + ifTrue: ["Remove MVC projects from Morphic views" + Project deletingProject: proj]]]! Item was added: + ----- Method: MVCProject class>>unloadMVC (in category 'shrinking') ----- + unloadMVC + "Completely remove MVC from the system. All MVC projects will be destroyed. + To reinstall MVC, load all of the ST80 and MVCToolbuilder packages." + + "MVCProject unloadMVC" + + self removeProjectsFromSystem. + ScheduledControllers := nil. + { 'ToolBuilder-MVC' . 'ST80Tests' . 'ST80Tools' . 'ST80' } + do: [ :package | (MCPackage named: package) unload ]. + + !

1 0

CODE GLADIATORS 2016 competition
by askoh 30 Apr '16

30 Apr '16

This competition is a good place for Smalltalk to shine. Although held in India it is fast drawing international participation. Go Smalltalk. Be the best out there. http://www.prnewswire.co.in/news-releases/indias-biggest-coding-arena-is-ba… http://www.techgig.com/codegladiators -- View this message in context: http://forum.world.st/CODE-GLADIATORS-2016-competition-tp4893064.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

The Trunk: Morphic-mt.1125.mcz
by commits＠source.squeak.org 30 Apr '16

30 Apr '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1125.mcz ==================== Summary ==================== Name: Morphic-mt.1125 Author: mt Time: 30 April 2016, 1:25:26.55802 pm UUID: a37cda7d-4db4-b844-a7d1-5efc7a252908 Ancestors: Morphic-mt.1124 We can directly return at:put: because it returns the stored value. No additional lookup necessary. =============== Diff against Morphic-mt.1124 =============== Item was changed: ----- Method: IndentingListItemMorph>>widthOfColumn: (in category 'accessing - columns') ----- widthOfColumn: columnIndex | widthOrSpec | container columns ifNil: [ ^ self width ]. (container columnsCache at: columnIndex) ifNotNil: [ :cachedWidth | ^ cachedWidth ]. widthOrSpec := container columns at: columnIndex. + ^ container columnsCache at: columnIndex put: (widthOrSpec isNumber - container columnsCache at: columnIndex put: (widthOrSpec isNumber ifTrue: [ widthOrSpec ] ifFalse: [ widthOrSpec isBlock ifTrue: [ widthOrSpec cull: container cull: self ] ifFalse: [ widthOrSpec ifNil: [ self width ] ifNotNil: [ "Fall back" + 50 ] ] ])! - 50 ] ] ]). - ^ container columnsCache at: columnIndex!

1 0

Re: [squeak-dev] The Trunk: Morphic-mt.1124.mcz
by Levente Uzonyi 30 Apr '16

30 Apr '16

On Fri, 29 Apr 2016, commits(a)source.squeak.org wrote: > Marcel Taeumel uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-mt.1124.mcz > > ==================== Summary ==================== > > Name: Morphic-mt.1124 > Author: mt > Time: 29 April 2016, 1:04:05.656719 pm > UUID: 20b80e2e-df90-fa43-bf17-339878efb46a > Ancestors: Morphic-cmm.1123 > > Speeds up drawing of large tree morphs by introducing a cache for the width of each column. Invalidate that cache each time the nodes in the tree are re-layouted. > > Try out "CompiledMethod allInstances explore" before and after this change. Have "PluggableListMorph highlightHoveredRow: true". > > Why? Computation of largest item in a column is O(n) at the moment. Drawing code needs width of column to position the strings in each row. Each row is a (string) morph and the columns are "faked". > > =============== Diff against Morphic-cmm.1123 =============== > > Item was changed: > ----- Method: IndentingListItemMorph>>widthOfColumn: (in category 'accessing - columns') ----- > widthOfColumn: columnIndex > | widthOrSpec | > container columns ifNil: [ ^ self width ]. > + (container columnsCache at: columnIndex) > + ifNotNil: [ :cachedWidth | ^ cachedWidth ]. > widthOrSpec := container columns at: columnIndex. > + container columnsCache at: columnIndex put: (widthOrSpec isNumber > - ^ widthOrSpec isNumber > ifTrue: [ widthOrSpec ] > ifFalse: > [ widthOrSpec isBlock > ifTrue: > [ widthOrSpec > cull: container > cull: self ] > ifFalse: > [ widthOrSpec > ifNil: [ self width ] > ifNotNil: [ "Fall back" > + 50 ] ] ]). > + ^ container columnsCache at: columnIndex! Why do a lookup when the previous expression returns the same value? Levente

3 3

Cog's Date today = 8 January 1608?
by Tim Johnson 29 Apr '16

29 Apr '16

Hello Squeakers, I have seen a few cases now where I load up an older Squeak image with a newer Cog VM, and "Date today" returns a date like '8 January 1608'. I used to regularly (and safely, I thought) use newer VMs to open older images, but that was more in the days when the Carbon VM was still being updated. This has happened to me on both Windows and OS X. A Cog version which still works is #3390. A Cog version which does not is #3663. Should I not use any Squeak image version below a certain cutoff when using new Cog VMs? Is that documented anywhere? (Q: "Why would you want to use older images anyway?" A: "They were laying around from older projects" or A: "I take them from inside older 'All-in-one' packages so I can quickly have a functioning Seaside/WAKom-or-WebClient setup") Thanks! Tim

1 1

The Trunk: Morphic-mt.1124.mcz
by commits＠source.squeak.org 29 Apr '16

29 Apr '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1124.mcz ==================== Summary ==================== Name: Morphic-mt.1124 Author: mt Time: 29 April 2016, 1:04:05.656719 pm UUID: 20b80e2e-df90-fa43-bf17-339878efb46a Ancestors: Morphic-cmm.1123 Speeds up drawing of large tree morphs by introducing a cache for the width of each column. Invalidate that cache each time the nodes in the tree are re-layouted. Try out "CompiledMethod allInstances explore" before and after this change. Have "PluggableListMorph highlightHoveredRow: true". Why? Computation of largest item in a column is O(n) at the moment. Drawing code needs width of column to position the strings in each row. Each row is a (string) morph and the columns are "faked". =============== Diff against Morphic-cmm.1123 =============== Item was changed: ----- Method: IndentingListItemMorph>>widthOfColumn: (in category 'accessing - columns') ----- widthOfColumn: columnIndex | widthOrSpec | container columns ifNil: [ ^ self width ]. + (container columnsCache at: columnIndex) + ifNotNil: [ :cachedWidth | ^ cachedWidth ]. widthOrSpec := container columns at: columnIndex. + container columnsCache at: columnIndex put: (widthOrSpec isNumber - ^ widthOrSpec isNumber ifTrue: [ widthOrSpec ] ifFalse: [ widthOrSpec isBlock ifTrue: [ widthOrSpec cull: container cull: self ] ifFalse: [ widthOrSpec ifNil: [ self width ] ifNotNil: [ "Fall back" + 50 ] ] ]). + ^ container columnsCache at: columnIndex! - 50 ] ] ]! Item was changed: ScrollPane subclass: #SimpleHierarchicalListMorph + instanceVariableNames: 'selectedMorph hoveredMorph getListSelector keystrokeActionSelector autoDeselect columns columnsCache sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor' - instanceVariableNames: 'selectedMorph hoveredMorph getListSelector keystrokeActionSelector autoDeselect columns sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor' classVariableNames: 'WrappedNavigation' poolDictionaries: '' category: 'Morphic-Explorer'! SimpleHierarchicalListMorph class instanceVariableNames: 'expandedForm notExpandedForm'! !SimpleHierarchicalListMorph commentStamp: 'ls 3/1/2004 12:15' prior: 0! Display a hierarchical list of items. Each item should be wrapped with a ListItemWrapper. For a simple example, look at submorphsExample. For beefier examples, look at ObjectExplorer or FileList2.! SimpleHierarchicalListMorph class instanceVariableNames: 'expandedForm notExpandedForm'! Item was changed: ----- Method: SimpleHierarchicalListMorph>>adjustSubmorphPositions (in category 'private') ----- adjustSubmorphPositions | p | p := 0@0. scroller submorphsDo: [ :each | | h | each visible ifTrue: [ h := each height. each privateBounds: (p extent: self preferredSubmorphWidth@h). p := p + (0@h) ]]. self + clearColumnsCache; changed; layoutChanged; setScrollDeltas. ! Item was added: + ----- Method: SimpleHierarchicalListMorph>>clearColumnsCache (in category 'private - caching') ----- + clearColumnsCache + + columnsCache := self columns + ifNil: [Array empty] + ifNotNil: [:c | Array new: c size].! Item was added: + ----- Method: SimpleHierarchicalListMorph>>columnsCache (in category 'private - caching') ----- + columnsCache + columnsCache ifNil: [self clearColumnsCache]. + ^ columnsCache! Item was changed: ----- Method: SimpleHierarchicalListMorph>>drawLinesOn: (in category 'drawing') ----- drawLinesOn: aCanvas | lColor | lColor := self lineColor. aCanvas transformBy: scroller transform clippingTo: scroller innerBounds during:[:clippedCanvas | + scroller submorphsDo: [ :submorph | + (submorph visible and: [(submorph isExpanded + or: [clippedCanvas isVisible: submorph fullBounds] ) + or: [ submorph nextSibling notNil and: [clippedCanvas isVisible: submorph nextSibling fullBounds]]]) + ifTrue: [submorph drawLinesOn: clippedCanvas lineColor: lColor indentThreshold: 0] ] ] - scroller submorphs - select: [:submorph | submorph visible] - thenDo: [ :submorph | - ((submorph isExpanded - or: [clippedCanvas isVisible: submorph fullBounds] ) - or: [ submorph nextSibling notNil and: [clippedCanvas isVisible: submorph nextSibling bounds]]) - ifTrue: [submorph drawLinesOn: clippedCanvas lineColor: lColor indentThreshold: 0] ] ] smoothing: scroller smoothing. !

1 0

Explorer colors question
by Chris Muller 29 Apr '16

29 Apr '16

Smalltalk explore "do it" Explorer appears, the selection is on the top line. Now press up arrow. The selection turns yellow / blue. What does it mean?

4 4

Re: The Trunk: Tools-cmm.694.mcz
by marcel.taeumel 29 Apr '16

29 Apr '16

+1 We might also want to update the help text in the debugger-inspectors at the bottom. For consistency. :-) Best, Marcel -- View this message in context: http://forum.world.st/The-Trunk-Tools-cmm-694-mcz-tp4892438p4892864.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

regarding the updated SpurTrunkImage
by Eliot Miranda 29 Apr '16

29 Apr '16

Hi All, concerning http://build.squeak.org/job/Trunk/default/lastSuccessfulBuild/artifact/targ… Is it possible a) that the original Squeak windows (Welcome workspace, et al) are /not/ deleted? b) that the artefact be tagged with the update number, e.g. SpurTrunk-15857 c) that at least we drop "Image" from the name; SpurTrunk.image is ok; SpurTrunkImage.image is redundant. ? And thanks very much for the artifact; it will save a lot of effort in the VMMasker image building scripts once I get round to using it. _,,,^..^,,,_ best, Eliot

2 1

The Trunk: Kernel-mt.1016.mcz
by commits＠source.squeak.org 28 Apr '16

28 Apr '16

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1016.mcz ==================== Summary ==================== Name: Kernel-mt.1016 Author: mt Time: 28 April 2016, 6:17:59.607373 pm UUID: 9f54ad71-44a3-d248-8811-44bd57be0327 Ancestors: Kernel-nice.1015 Fixes a bug in weak message sends where the internal weak array structure for arguments was not put into a real array and hence made the perform-primitive fail. I suspect an old copy-paste mistake because MessageSend and WeakMessageSend share some code. =============== Diff against Kernel-nice.1015 =============== Item was changed: ----- Method: WeakMessageSend>>collectArguments: (in category 'private') ----- collectArguments: anArgArray "Private" | staticArgs | staticArgs := self arguments. ^(anArgArray size = staticArgs size) ifTrue: [anArgArray] ifFalse: [(staticArgs isEmpty ifTrue: [ staticArgs := Array new: selector numArgs] + ifFalse: [Array withAll: staticArgs] ) - ifFalse: [staticArgs copy] ) replaceFrom: 1 to: (anArgArray size min: staticArgs size) with: anArgArray startingAt: 1] !

1 0

Jump to page: