Packages May 2018

packages@lists.squeakfoundation.org

1 participants
110 discussions

The Trunk: Collections-mt.795.mcz
by commits＠source.squeak.org 17 May '18

17 May '18

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.795.mcz ==================== Summary ==================== Name: Collections-mt.795 Author: mt Time: 17 May 2018, 8:08:41.389712 am UUID: ce581475-faa1-3446-978c-84ef85a10d63 Ancestors: Collections-nice.794 Fixes an endless-loop bug as well as adds support for hrefs without quotes in the HtmlReadWriter. =============== Diff against Collections-nice.794 =============== Item was changed: ----- Method: HtmlReadWriter>>mapATag: (in category 'mapping') ----- mapATag: aTag | result startIndex stopIndex attribute | result := OrderedCollection new. "<a href=""http://google.de"">" attribute := 'href'. startIndex := aTag findString: attribute. startIndex > 0 ifTrue: [ startIndex := aTag findString: '"' startingAt: startIndex+attribute size. + startIndex > 0 + ifTrue: [stopIndex := aTag findString: '"' startingAt: startIndex+1] + ifFalse: [ + "URLs without quotes..." + startIndex := aTag findString: '=' startingAt: startIndex+attribute size. + stopIndex := aTag findString: '>' startingAt: startIndex+1]. - stopIndex := aTag findString: '"' startingAt: startIndex+1. result add: (TextURL new url: (aTag copyFrom: startIndex+1 to: stopIndex-1))]. ^ result!

1 0

The Trunk: Morphic-cmm.1432.mcz
by commits＠source.squeak.org 15 May '18

15 May '18

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1432.mcz ==================== Summary ==================== Name: Morphic-cmm.1432 Author: cmm Time: 15 May 2018, 4:02:47.931373 pm UUID: a046716c-635d-4c98-b1d8-0b45b7a084c8 Ancestors: Morphic-mt.1431 Fix regression with splitter widths. =============== Diff against Morphic-mt.1431 =============== Item was changed: ----- Method: ProportionalSplitterMorph>>balanceOffsets (in category 'layout') ----- balanceOffsets - (self valueOfProperty: #fullDelta) ifNil: [self setProperty: #fullDelta toValue: (0@0)] . + (self hasProperty: #fullDelta) ifFalse: [^ self]. + self layoutFrame hasFixedHeight ifTrue: [ | otop obot ctop cbot topf | otop := (owner submorphs detect: [:m | m layoutFrame topFraction isZero] ifNone: [^ self]) in: [:tm | tm top - (tm layoutFrame topOffset ifNil: [0])]. obot := (owner submorphs detect: [:m | m layoutFrame bottomFraction = 1] ifNone: [^ self]) in: [:tm | tm bottom - (tm layoutFrame bottomOffset ifNil: [0])]. ctop := (self layoutFrame topFraction * (obot - otop)) rounded + otop + (self layoutFrame topOffset ifNil: [0]). cbot := (self layoutFrame bottomFraction * (obot - otop)) rounded + otop + (self layoutFrame bottomOffset ifNil: [0]). topf := self layoutFrame topFraction. self layoutFrame topFraction: ((ctop + cbot) * 0.5 - otop) / (obot - otop) asFloat. self layoutFrame bottomFraction: self layoutFrame topFraction. self layoutFrame topOffset: ctop - + (self layoutFrame topFraction * (obot - otop) + otop) truncated. - (self layoutFrame topFraction * (obot - otop) + otop) rounded. self layoutFrame bottomOffset: cbot - + (self layoutFrame bottomFraction * (obot - otop) + otop) rounded. - (self layoutFrame bottomFraction * (obot - otop) + otop) rounded.. (leftOrTop copy union: rightOrBottom) do: [:m | (m layoutFrame topFraction closeTo: topf) ifTrue: [ m layoutFrame topFraction: self layoutFrame topFraction. m layoutFrame topOffset: m layoutFrame topOffset - (self valueOfProperty: #fullDelta) y]. (m layoutFrame bottomFraction closeTo: topf) ifTrue: [ m layoutFrame bottomFraction: self layoutFrame topFraction. m layoutFrame bottomOffset: m layoutFrame bottomOffset - (self valueOfProperty: #fullDelta) y.]]] . self layoutFrame hasFixedWidth ifTrue: [ | oleft oright cleft cright leftf | oleft := (owner submorphs detect: [:m | m layoutFrame leftFraction isZero] ifNone: [^ self]) in: [:tm | tm left - (tm layoutFrame leftOffset ifNil: [0])]. oright := (owner submorphs detect: [:m | m layoutFrame rightFraction = 1] ifNone: [^ self]) in: [:tm | tm right - (tm layoutFrame rightOffset ifNil: [0])]. cleft := (self layoutFrame leftFraction * (oright - oleft)) rounded + oleft + (self layoutFrame leftOffset ifNil: [0]). cright := (self layoutFrame rightFraction * (oright - oleft)) rounded + oleft + (self layoutFrame rightOffset ifNil: [0]). leftf := self layoutFrame leftFraction. self layoutFrame leftFraction: ((cleft + cright) * 0.5 - oleft) / (oright - oleft) asFloat. self layoutFrame rightFraction: self layoutFrame leftFraction. self layoutFrame leftOffset: cleft - + (self layoutFrame leftFraction * (oright - oleft) + oleft) truncated. - (self layoutFrame leftFraction * (oright - oleft) + oleft) rounded. self layoutFrame rightOffset: cright - (self layoutFrame rightFraction * (oright - oleft) + oleft) rounded. (leftOrTop copy union: rightOrBottom) do: [:m | (m layoutFrame leftFraction closeTo: leftf) ifTrue: [ m layoutFrame leftFraction: self layoutFrame leftFraction. m layoutFrame leftOffset: m layoutFrame leftOffset - (self valueOfProperty: #fullDelta) x]. (m layoutFrame rightFraction closeTo: leftf) ifTrue: [ m layoutFrame rightFraction: self layoutFrame leftFraction. m layoutFrame rightOffset: m layoutFrame rightOffset - (self valueOfProperty: #fullDelta) x.]]] . self removeProperty: #fullDelta. owner layoutChanged !

1 0

The Trunk: Morphic-mt.1431.mcz
by commits＠source.squeak.org 15 May '18

15 May '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1431.mcz ==================== Summary ==================== Name: Morphic-mt.1431 Author: mt Time: 15 May 2018, 6:28:31.290184 pm UUID: 5d3be43c-b155-8547-93f7-23d355c228be Ancestors: Morphic-kfr.1430 Fixes a regression with "aBorderedMorph borderColor: nil"... which used to work fine... ;-) =============== Diff against Morphic-kfr.1430 =============== Item was changed: ----- Method: BorderedMorph>>borderStyle: (in category 'accessing') ----- borderStyle: aBorderStyle super borderStyle: aBorderStyle. self flag: #compatibility. "mt: For older code, update the instance variables. Should be removed in the future." + borderWidth := self borderStyle width. + borderColor := self borderStyle color.! - borderWidth := aBorderStyle width. - borderColor := aBorderStyle color.!

1 0

The Trunk: Morphic-kfr.1430.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1430.mcz ==================== Summary ==================== Name: Morphic-kfr.1430 Author: kfr Time: 14 May 2018, 9:23:18.673904 pm UUID: 53373b40-3e6a-234e-81f5-c00f692bde25 Ancestors: Morphic-mt.1429 Conversion for older ScrollPanes =============== Diff against Morphic-mt.1429 =============== Item was added: + ----- Method: ScrollPane>>convertToCurrentVersion:refStream: (in category 'objects from disk') ----- + convertToCurrentVersion: varDict refStream: smartRefStrm + scrollBarThickness + ifNil: [scrollBarThickness := self class scrollBarThickness]. + hScrollBarPolicy + ifNil: [hScrollBarPolicy := #whenNeeded]. + vScrollBarPolicy + ifNil: [vScrollBarPolicy := #whenNeeded]. + hScrollBar + ifNil: [(hScrollBar := ScrollBar on: self getValue: nil setValue: #hScrollBarValue:) + menuSelector: #hScrollBarMenuButtonPressed:; + orientation: #horizontal; + extent: 1 @ 1]. + ^ super convertToCurrentVersion: varDict refStream: smartRefStrm!

1 0

The Trunk: Morphic-mt.1429.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1429.mcz ==================== Summary ==================== Name: Morphic-mt.1429 Author: mt Time: 14 May 2018, 9:24:54.700483 am UUID: 2b19986c-dd7d-174c-9e03-4869894dbed8 Ancestors: Morphic-mt.1428 Fixes representation of Text instances in Object Explorer. =============== Diff against Morphic-mt.1428 =============== Item was added: + ----- Method: Text>>explorerContents (in category '*Morphic-Explorer') ----- + explorerContents + + ^ (self class allInstVarNames asOrderedCollection withIndexCollect: [:each :index | + ObjectExplorerWrapper + with: (self instVarAt: index) + name: each + model: self])!

1 0

The Trunk: Monticello-dtl.683.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.683.mcz ==================== Summary ==================== Name: Monticello-dtl.683 Author: dtl Time: 13 May 2018, 9:26:12.696956 pm UUID: 03d28d79-4c73-496f-903d-324e4425c61f Ancestors: Monticello-dtl.682 Revert last update, which was based on bad assumptions about how a proxy should behave (thanks Levente). If a proxy doesn't want to forward a message, it can just implement the method. If you want direct access to the proxy object, you can use the mirror primitives. =============== Diff against Monticello-dtl.682 =============== Item was removed: - ----- Method: MCPackageInEnvironment>>perform:with: (in category 'delegating') ----- - perform: aSymbol with: anObject - "If aSymbol is #== then the sender is trying to perform an identity comparison. - This cannot be delegated, because the delegate will be a different object. - Implement perform:with: here to protect for this case. An important example - is the case of PluggableDictionary, which relies on perform:with: to implement - comparisons for an identity dictionary." - - aSymbol == #== - ifTrue: [ ^self privatePerform: aSymbol with: anObject ] - ifFalse: [ ^package perform: aSymbol with: anObject "as per doesNotUnderStand:" ] - ! Item was removed: - ----- Method: MCPackageInEnvironment>>privatePerform:with: (in category 'delegating') ----- - privatePerform: aSymbol with: anObject - "aSymbol is #== and the sender is trying to perform an identity comparison. - Invoke primitivePerform." - - <primitive: 83> - ^ self primitiveFailed!

1 0

The Trunk: Tests-dtl.396.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-dtl.396.mcz ==================== Summary ==================== Name: Tests-dtl.396 Author: dtl Time: 13 May 2018, 9:25:11.98605 pm UUID: 5caece86-0310-4cd3-8e10-9e80d1d28c49 Ancestors: Tests-dtl.395 Revert last update, which was based on bad assumptions about how a proxy should behave (thanks Levente). If a proxy doesn't want to forward a message, it can just implement the method. If you want direct access to the proxy object, you can use the mirror primitives. =============== Diff against Tests-dtl.395 =============== Item was removed: - MCTestCase subclass: #MCPackageInEnvironmentTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Monticello'! Item was removed: - ----- Method: MCPackageInEnvironmentTest>>testPerformIdentityEquals (in category 'testing') ----- - testPerformIdentityEquals - "Verify that #perform:with: can be used to send #== for identity test. Required - for identity test in PluggableDictionary. Delegation to the MCPackage does not - work in that case because the package is a different object." - - | aProtoObj | - aProtoObj :=MCPackageInEnvironment - decorating: (MCPackage new name: 'No Name Yet') - in: Environment default. - self assert: [aProtoObj == aProtoObj] - description: 'Direct test for identity does not invoke delegation'. - - "Normal perform:with: delegation with any selector other than #==" - aProtoObj perform: #name: with: #FOO. - self assert: #FOO equals: aProtoObj name - description: 'name of the MCPackage should have been set to #FOO'. - - "Selector #== must refer to aProtoObj, not to the MCPackage to which it delegates" - self assert: [aProtoObj perform: #== with: aProtoObj] - description: 'If aProtoObj delegates to the MCPackage the identity test will fail'. - !

1 0

The Trunk: Monticello-dtl.682.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.682.mcz ==================== Summary ==================== Name: Monticello-dtl.682 Author: dtl Time: 13 May 2018, 7:14:27.068827 pm UUID: 76fc84e6-7e2b-4a6a-af6b-2d02d11c38eb Ancestors: Monticello-nice.681 Sending perform: #== with: anObject to an instance of MCPackageInEnvironment should test identity of the actual instance, not the MCPackage to which it refers. If this is not so, a PluggableDictionary will fail when doing identity checks on its keys, as is the case for a SystemTracer adding all objects to its oop dictionary. Implement MCPackageInEnvironment>>perform:with: such that performing #== will call primitivePerform, and all other selectors are delegated to the MCPackage as before. =============== Diff against Monticello-nice.681 =============== Item was added: + ----- Method: MCPackageInEnvironment>>perform:with: (in category 'delegating') ----- + perform: aSymbol with: anObject + "If aSymbol is #== then the sender is trying to perform an identity comparison. + This cannot be delegated, because the delegate will be a different object. + Implement perform:with: here to protect for this case. An important example + is the case of PluggableDictionary, which relies on perform:with: to implement + comparisons for an identity dictionary." + + aSymbol == #== + ifTrue: [ ^self privatePerform: aSymbol with: anObject ] + ifFalse: [ ^package perform: aSymbol with: anObject "as per doesNotUnderStand:" ] + ! Item was added: + ----- Method: MCPackageInEnvironment>>privatePerform:with: (in category 'delegating') ----- + privatePerform: aSymbol with: anObject + "aSymbol is #== and the sender is trying to perform an identity comparison. + Invoke primitivePerform." + + <primitive: 83> + ^ self primitiveFailed!

1 0

The Trunk: Tests-dtl.395.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-dtl.395.mcz ==================== Summary ==================== Name: Tests-dtl.395 Author: dtl Time: 13 May 2018, 7:12:22.626004 pm UUID: da0200e6-5c03-4bf3-9f9f-60f6f92beeee Ancestors: Tests-mt.394 Sending perform: #== with: anObject to an instance of MCPackageInEnvironment should test identity of the actual instance, not the MCPackage to which it refers. If this is not so, a PluggableDictionary will fail when doing identity checks on its keys, as is the case for a SystemTracer adding all objects to its oop dictionary. Add MCPackageInEnvironmentTest to document the issue. =============== Diff against Tests-mt.394 =============== Item was added: + MCTestCase subclass: #MCPackageInEnvironmentTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Monticello'! Item was added: + ----- Method: MCPackageInEnvironmentTest>>testPerformIdentityEquals (in category 'testing') ----- + testPerformIdentityEquals + "Verify that #perform:with: can be used to send #== for identity test. Required + for identity test in PluggableDictionary. Delegation to the MCPackage does not + work in that case because the package is a different object." + + | aProtoObj | + aProtoObj :=MCPackageInEnvironment + decorating: (MCPackage new name: 'No Name Yet') + in: Environment default. + self assert: [aProtoObj == aProtoObj] + description: 'Direct test for identity does not invoke delegation'. + + "Normal perform:with: delegation with any selector other than #==" + aProtoObj perform: #name: with: #FOO. + self assert: #FOO equals: aProtoObj name + description: 'name of the MCPackage should have been set to #FOO'. + + "Selector #== must refer to aProtoObj, not to the MCPackage to which it delegates" + self assert: [aProtoObj perform: #== with: aProtoObj] + description: 'If aProtoObj delegates to the MCPackage the identity test will fail'. + !

1 0

The Trunk: Installer-Core-ul.421.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

Levente Uzonyi uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-ul.421.mcz ==================== Summary ==================== Name: Installer-Core-ul.421 Author: ul Time: 13 May 2018, 10:38:47.570893 pm UUID: 5116baf0-5442-4586-87b5-ca08a9708de4 Ancestors: Installer-Core-mt.420 Updated the way #ensureRecentMetacello tests the network connection and ssl support: - use github.com instead of google.de - use HEAD instead of GET - use #classNamed: to look up classes - use symbols for class names, so these uses will appear along with real class references while browsing senders =============== Diff against Installer-Core-mt.420 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" + | metacello | + ((Smalltalk classNamed: #WebClient) + ifNil: [ false ] + ifNotNil: [ :webClient | + [ (webClient httpHead: 'https://github.com') isSuccess ] + on: Error + do: [ false ] ]) + ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. - ([((Smalltalk classNamed: 'WebClient') httpGet: 'https://www.google.de') isSuccess] on: Error do: [:err | false]) - ifFalse: [^ self inform: 'Could not resolve "https://www.google.de".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs]. + metacello := (Smalltalk classNamed: #Metacello) ifNil: [ - (Smalltalk hasClassNamed: 'Metacello') ifFalse: [ "Get the Metacello configuration (for Squeak users)" Installer gemsource + project: 'metacello'; + addPackage: 'ConfigurationOfMetacello'; + install. - project: 'metacello'; - addPackage: 'ConfigurationOfMetacello'; - install. "Bootstrap Metacello Preview, using mcz files (#'previewBootstrap' symbolic version" + ((Smalltalk classNamed: #ConfigurationOfMetacello) project + version: #'previewBootstrap') load. - ((Smalltalk at: #ConfigurationOfMetacello) project - version: #'previewBootstrap') load. "Load the Preview version of Metacello from GitHub" + (Smalltalk classNamed: #Metacello) new + configuration: 'MetacelloPreview'; + version: #stable; + repository: 'github://Metacello/metacello:configuration'; + load. - (Smalltalk at: #Metacello) new - configuration: 'MetacelloPreview'; - version: #stable; - repository: 'github://Metacello/metacello:configuration'; - load]. + Smalltalk classNamed: #Metacello ]. + "Now load latest version of Metacello" + metacello new + baseline: 'Metacello'; + repository: 'github://Metacello/metacello:master/repository'; + get. + metacello new + baseline: 'Metacello'; + repository: 'github://Metacello/metacello:master/repository'; + load.! - (Smalltalk at: #Metacello) new - baseline: 'Metacello'; - repository: 'github://Metacello/metacello:master/repository'; - get. - (Smalltalk at: #Metacello) new - baseline: 'Metacello'; - repository: 'github://Metacello/metacello:master/repository'; - load.!

1 0

← Newer
1
...
4
5
6
7
8
9
10
11
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2018