Packages April 2020

packages@lists.squeakfoundation.org

1 participants
67 discussions

The Trunk: KernelTests-nice.378.mcz
by commits＠source.squeak.org 25 Apr '20

25 Apr '20

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.378.mcz ==================== Summary ==================== Name: KernelTests-nice.378 Author: nice Time: 25 April 2020, 3:19:51.367541 pm UUID: c233a5e2-d02d-4010-a59a-441c4e1f9c25 Ancestors: KernelTests-eem.377 Assert that we can use once more than once. #once is using startpc as a key to register the value of first evaluation. This works well for old block closure whose bytecode lie in homeMethod at different startpc. But the startpc of FullBlockClosure might all be equal... So it's far from obvious that once is going to work for Full blocks. But #once is using startpc the inst.var. rather than #startpc the message send. And the startpc inst. var. contains the CompiledBlock which is misleading. Since I've been bitten more than once, I prefer to document it. There is a little flaw though: two equal blocks will register at same key... Maybe there's no real use case, but we might want to use an IdentityDictionary as cache. =============== Diff against KernelTests-eem.377 =============== Item was added: + ----- Method: BlockClosureTest>>testMoreThanOnce (in category 'tests - evaluating') ----- + testMoreThanOnce + "Make sure that we can use once more than once" + | moreThanOnce | + moreThanOnce := (1 to: 3) collect: [:e | [String new] once -> [Array new] once]. + self assert: (moreThanOnce allSatisfy: [:each | each key isString]). + self assert: (moreThanOnce allSatisfy: [:each | each value isArray]). + self assert: (moreThanOnce allSatisfy: [:each | each key == moreThanOnce first key]). + self assert: (moreThanOnce allSatisfy: [:each | each value == moreThanOnce first value]).! Item was added: + ----- Method: BlockClosureTest>>testMoreThanOnceForEqualBlocks (in category 'tests - evaluating') ----- + testMoreThanOnceForEqualBlocks + "Make sure that we can use once more than once" + | moreThanOnce | + moreThanOnce := (1 to: 3) collect: [:e | [Object new] once -> [Object new] once]. + self assert: (moreThanOnce allSatisfy: [:each | each key == moreThanOnce first key]). + self assert: (moreThanOnce allSatisfy: [:each | each value == moreThanOnce first value]). + self assert: (moreThanOnce noneSatisfy: [:each | each key == each value]).!

1 0

The Trunk: Tools-ct.963.mcz
by commits＠source.squeak.org 22 Apr '20

22 Apr '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.963.mcz ==================== Summary ==================== Name: Tools-ct.963 Author: ct Time: 9 April 2020, 4:27:49.889949 pm UUID: 3f89993a-5c98-044d-8628-61d3815b5937 Ancestors: Tools-mt.957 Fixes a bug in FileList2 >> #endingSpecs, caused by introduction of read-only literals (see Kernel-eem.1318). Fixes MorphicUIManagerTest >> #testShowAllBinParts. Also contains some refactoring of related stuff. =============== Diff against Tools-mt.957 =============== Item was changed: ----- Method: FileList2 class>>endingSpecs (in category 'blue ui') ----- endingSpecs "Answer a collection of specs to build the selective 'find anything' tool called by the Navigator. This version uses the services registry to do so." + "FileList2 morphicViewGeneralLoaderInWorld: Project current world" + | specs rejects | - "FileList2 morphicViewGeneralLoaderInWorld: World" - | categories specs rejects | rejects := #(addFileToNewZip: compressFile: openInZipViewer: extractAllFrom: openOn:). - categories := #( - ('Art' ('bmp' 'gif' 'jpg' 'jpeg' 'form' 'png' 'pcx' 'xbm' 'xpm' 'ppm' 'pbm')) - ('Morphs' ('morph' 'morphs' 'sp')) - ('Projects' ('extseg' 'project' 'pr')) - ('MIDI' ('mid' 'midi')) - ('Music' ('mp3')) - ('Movies' ('movie' 'mpg' 'mpeg' 'qt' 'mov')) - ('Flash' ('swf')) - ). - - "('Books' ('bo'))" - "('Code' ('st' 'cs'))" - "('TrueType' ('ttf'))" - "('3ds' ('3ds'))" - "('Tape' ('tape'))" - "('Wonderland' ('wrl'))" - "('HTML' ('htm' 'html'))" - - categories first at: 2 put: ImageReadWriter allTypicalFileExtensions. specs := OrderedCollection new. + self fileExtensionsByCategory keysAndValuesDo: [:category :extensions | + | services okExtensions | - categories do: [ :cat | | catSpecs catServices okExtensions services | services := Dictionary new. - catSpecs := Array new: 3. - catServices := OrderedCollection new. okExtensions := Set new. + + extensions do: [:ext | + (FileServices itemsForFile: (FileDirectory default fullPathFor: 'fred.' , ext)) + reject: [:service | rejects includes: service selector] + thenDo: [:service | + services at: service label put: service. + okExtensions add: ext]]. - - cat second do: [ :ext | (FileServices itemsForFile: (FileDirectory default fullPathFor: ('fred.',ext))) do: [ :i | - (rejects includes: i selector) ifFalse: [ - okExtensions add: ext. - services at: i label put: i ]]]. - services do: [ :svc | catServices add: svc ]. services isEmpty ifFalse: [ + specs add: { + category. + okExtensions. + services values }]]. + ^ specs! - catSpecs at: 1 put: cat first; - at: 2 put: okExtensions; - at: 3 put: catServices. - specs add: catSpecs ] - ]. - ^specs - ! Item was added: + ----- Method: FileList2 class>>fileExtensionsByCategory (in category 'blue ui') ----- + fileExtensionsByCategory + + ^ OrderedDictionary new + at: 'Art' put: ImageReadWriter allTypicalFileExtensions; + at: 'Morphs' put: #('morph' 'morphs' 'sp'); + at: 'Projects' put: #('extseg' 'project' 'pr'); + at: 'MIDI' put: #('mid' 'midi'); + at: 'Music' put: #('mp3'); + at: 'Movies' put: #('movie' 'mpg' 'mpeg' 'qt' 'mov'); + at: 'Flash' put: #('swf'); + "at: 'Books' put: #('bo'); + at: 'Code' put: #('st' 'cs'); + at: 'TrueType' put: #('ttf'); + at: '3ds' put: #('3ds'); + at: 'Tape' put: #('tape'); + at: 'Wonderland' put: #('wrl'); + at: 'HTML' put: #('htm' 'html');" + yourself! Item was changed: ----- Method: FileList2 class>>update:in:fileTypeRow:morphUp: (in category 'morphic ui') ----- update: actionRow in: window fileTypeRow: fileTypeRow morphUp: morph | fileTypeInfo info2 buttons textColor1 fileSuffixes fileActions aFileList fileTypeString | + (morph notNil and: [(morph valueOfProperty: #enabled) not]) ifTrue: [^ self]. + + fileTypeRow submorphsDo: [:sub | - - (morph notNil and:[(morph valueOfProperty: #enabled) not]) ifTrue: [^self]. - fileTypeRow submorphsDo: [ :sub | sub color: ( sub == morph ifTrue: [Color white] ifFalse: [(sub valueOfProperty: #enabled) + ifTrue: [Color transparent] + ifFalse: [Color gray]])]. + fileTypeString := morph isNil + ifTrue: ['xxxx'] + ifFalse: [morph valueOfProperty: #buttonText]. + - ifTrue: [Color transparent] ifFalse: [Color gray]] - ). - ]. - fileTypeString := morph isNil ifTrue:['xxxx'] ifFalse:[morph valueOfProperty: #buttonText]. - aFileList := window valueOfProperty: #FileList. textColor1 := Color r: 0.742 g: 0.839 b: 1.0. actionRow removeAllMorphs. fileTypeInfo := self endingSpecs. + info2 := fileTypeInfo + detect: [:each | each first = fileTypeString] + ifNone: [nil]. + info2 + ifNil: [ + buttons := OrderedCollection new] + ifNotNil: [ - info2 := fileTypeInfo detect: [ :each | each first = fileTypeString] ifNone: [ nil ]. - info2 isNil - ifTrue:[ - buttons := OrderedCollection new - ] - ifFalse:[ fileSuffixes := info2 second. fileActions := info2 third. + buttons := fileActions + collect: [ :each | aFileList blueButtonForService: each textColor: textColor1 inWindow: window ] + as: OrderedCollection. - buttons := fileActions collect: [ :each | aFileList blueButtonForService: each textColor: textColor1 inWindow: window ]. buttons do: [ :each | + each fillWithRamp: Color lightGreen oriented: (0.75 @ 0)]]. - each fillWithRamp: Color lightGreen oriented: (0.75 @ 0). - ]. - ]. buttons addLast: (self + blueButtonText: 'Cancel' + textColor: textColor1 + color: Color lightRed + inWindow: window + balloonText: 'Cancel this search' + selector: #cancelHit + recipient: aFileList). + buttons do: [:each | actionRow addMorphBack: each]. - blueButtonText: 'Cancel' - textColor: textColor1 - color: Color lightRed - inWindow: window - balloonText: 'Cancel this search' selector: #cancelHit recipient: aFileList). - buttons do: [ :each | actionRow addMorphBack: each]. window fullBounds. + fileSuffixes ifNotNil: [ - fileSuffixes isNil ifFalse:[ aFileList fileSelectionBlock: ( + self selectionBlockForSuffixes: (fileSuffixes collect: [ :each | '*.',each]))]. - self selectionBlockForSuffixes: (fileSuffixes collect: [ :each | '*.',each]) - ). - ]. aFileList updateFileList.!

1 0

The Trunk: Tools-mt.964.mcz
by commits＠source.squeak.org 22 Apr '20

22 Apr '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.964.mcz ==================== Summary ==================== Name: Tools-mt.964 Author: mt Time: 22 April 2020, 12:28:47.761571 pm UUID: 493a55d7-8d01-e448-9400-c1ef8b25abee Ancestors: Tools-eem.959, Tools-ct.963 Merges Christoph's fix for FileList2 concerning the ModificationForbidden "error". =============== Diff against Tools-eem.959 =============== Item was changed: ----- Method: FileList2 class>>endingSpecs (in category 'blue ui') ----- endingSpecs "Answer a collection of specs to build the selective 'find anything' tool called by the Navigator. This version uses the services registry to do so." + "FileList2 morphicViewGeneralLoaderInWorld: Project current world" + | specs rejects | - "FileList2 morphicViewGeneralLoaderInWorld: World" - | categories specs rejects | rejects := #(addFileToNewZip: compressFile: openInZipViewer: extractAllFrom: openOn:). - categories := #( - ('Art' ('bmp' 'gif' 'jpg' 'jpeg' 'form' 'png' 'pcx' 'xbm' 'xpm' 'ppm' 'pbm')) - ('Morphs' ('morph' 'morphs' 'sp')) - ('Projects' ('extseg' 'project' 'pr')) - ('MIDI' ('mid' 'midi')) - ('Music' ('mp3')) - ('Movies' ('movie' 'mpg' 'mpeg' 'qt' 'mov')) - ('Flash' ('swf')) - ). - - "('Books' ('bo'))" - "('Code' ('st' 'cs'))" - "('TrueType' ('ttf'))" - "('3ds' ('3ds'))" - "('Tape' ('tape'))" - "('Wonderland' ('wrl'))" - "('HTML' ('htm' 'html'))" - - categories first at: 2 put: ImageReadWriter allTypicalFileExtensions. specs := OrderedCollection new. + self fileExtensionsByCategory keysAndValuesDo: [:category :extensions | + | services okExtensions | - categories do: [ :cat | | catSpecs catServices okExtensions services | services := Dictionary new. - catSpecs := Array new: 3. - catServices := OrderedCollection new. okExtensions := Set new. + + extensions do: [:ext | + (FileServices itemsForFile: (FileDirectory default fullPathFor: 'fred.' , ext)) + reject: [:service | rejects includes: service selector] + thenDo: [:service | + services at: service label put: service. + okExtensions add: ext]]. - - cat second do: [ :ext | (FileServices itemsForFile: (FileDirectory default fullPathFor: ('fred.',ext))) do: [ :i | - (rejects includes: i selector) ifFalse: [ - okExtensions add: ext. - services at: i label put: i ]]]. - services do: [ :svc | catServices add: svc ]. services isEmpty ifFalse: [ + specs add: { + category. + okExtensions. + services values }]]. + ^ specs! - catSpecs at: 1 put: cat first; - at: 2 put: okExtensions; - at: 3 put: catServices. - specs add: catSpecs ] - ]. - ^specs - ! Item was added: + ----- Method: FileList2 class>>fileExtensionsByCategory (in category 'blue ui') ----- + fileExtensionsByCategory + + ^ OrderedDictionary new + at: 'Art' put: ImageReadWriter allTypicalFileExtensions; + at: 'Morphs' put: #('morph' 'morphs' 'sp'); + at: 'Projects' put: #('extseg' 'project' 'pr'); + at: 'MIDI' put: #('mid' 'midi'); + at: 'Music' put: #('mp3'); + at: 'Movies' put: #('movie' 'mpg' 'mpeg' 'qt' 'mov'); + at: 'Flash' put: #('swf'); + "at: 'Books' put: #('bo'); + at: 'Code' put: #('st' 'cs'); + at: 'TrueType' put: #('ttf'); + at: '3ds' put: #('3ds'); + at: 'Tape' put: #('tape'); + at: 'Wonderland' put: #('wrl'); + at: 'HTML' put: #('htm' 'html');" + yourself! Item was changed: ----- Method: FileList2 class>>update:in:fileTypeRow:morphUp: (in category 'morphic ui') ----- update: actionRow in: window fileTypeRow: fileTypeRow morphUp: morph | fileTypeInfo info2 buttons textColor1 fileSuffixes fileActions aFileList fileTypeString | + (morph notNil and: [(morph valueOfProperty: #enabled) not]) ifTrue: [^ self]. + + fileTypeRow submorphsDo: [:sub | - - (morph notNil and:[(morph valueOfProperty: #enabled) not]) ifTrue: [^self]. - fileTypeRow submorphsDo: [ :sub | sub color: ( sub == morph ifTrue: [Color white] ifFalse: [(sub valueOfProperty: #enabled) + ifTrue: [Color transparent] + ifFalse: [Color gray]])]. + fileTypeString := morph isNil + ifTrue: ['xxxx'] + ifFalse: [morph valueOfProperty: #buttonText]. + - ifTrue: [Color transparent] ifFalse: [Color gray]] - ). - ]. - fileTypeString := morph isNil ifTrue:['xxxx'] ifFalse:[morph valueOfProperty: #buttonText]. - aFileList := window valueOfProperty: #FileList. textColor1 := Color r: 0.742 g: 0.839 b: 1.0. actionRow removeAllMorphs. fileTypeInfo := self endingSpecs. + info2 := fileTypeInfo + detect: [:each | each first = fileTypeString] + ifNone: [nil]. + info2 + ifNil: [ + buttons := OrderedCollection new] + ifNotNil: [ - info2 := fileTypeInfo detect: [ :each | each first = fileTypeString] ifNone: [ nil ]. - info2 isNil - ifTrue:[ - buttons := OrderedCollection new - ] - ifFalse:[ fileSuffixes := info2 second. fileActions := info2 third. + buttons := fileActions + collect: [ :each | aFileList blueButtonForService: each textColor: textColor1 inWindow: window ] + as: OrderedCollection. - buttons := fileActions collect: [ :each | aFileList blueButtonForService: each textColor: textColor1 inWindow: window ]. buttons do: [ :each | + each fillWithRamp: Color lightGreen oriented: (0.75 @ 0)]]. - each fillWithRamp: Color lightGreen oriented: (0.75 @ 0). - ]. - ]. buttons addLast: (self + blueButtonText: 'Cancel' + textColor: textColor1 + color: Color lightRed + inWindow: window + balloonText: 'Cancel this search' + selector: #cancelHit + recipient: aFileList). + buttons do: [:each | actionRow addMorphBack: each]. - blueButtonText: 'Cancel' - textColor: textColor1 - color: Color lightRed - inWindow: window - balloonText: 'Cancel this search' selector: #cancelHit recipient: aFileList). - buttons do: [ :each | actionRow addMorphBack: each]. window fullBounds. + fileSuffixes ifNotNil: [ - fileSuffixes isNil ifFalse:[ aFileList fileSelectionBlock: ( + self selectionBlockForSuffixes: (fileSuffixes collect: [ :each | '*.',each]))]. - self selectionBlockForSuffixes: (fileSuffixes collect: [ :each | '*.',each]) - ). - ]. aFileList updateFileList.!

1 0

The Trunk: Morphic-mt.1649.mcz
by commits＠source.squeak.org 22 Apr '20

22 Apr '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1649.mcz ==================== Summary ==================== Name: Morphic-mt.1649 Author: mt Time: 22 April 2020, 10:46:13.027214 am UUID: 6b61e640-ba14-0d47-80af-c926334d4b82 Ancestors: Morphic-mt.1648 Fixes small glitch in text editor's #implementorsOfIt to behave like #sendersOfIt. =============== Diff against Morphic-mt.1648 =============== Item was changed: ----- Method: TextEditor>>implementorsOfIt (in category 'menu messages') ----- implementorsOfIt "Open an implementors browser on the selected selector" + - | aSelector | self lineSelectAndEmptyCheck: [^ self]. + self selectedSelector ifNotNil: + [:aSelector| ^self systemNavigation browseAllImplementorsOf: aSelector]. + self selectedLiteral ifNotNil: + [:aLiteral| ^self systemNavigation browseAllImplementorsOf: aLiteral]. + morph flash.! - (aSelector := self selectedSelector) == nil ifTrue: [^ morph flash]. - model browseAllImplementorsOf: aSelector!

1 0

The Trunk: Morphic-mt.1648.mcz
by commits＠source.squeak.org 20 Apr '20

20 Apr '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1648.mcz ==================== Summary ==================== Name: Morphic-mt.1648 Author: mt Time: 20 April 2020, 6:45:09.736142 pm UUID: 5665e297-144e-5644-9799-492dcdef4e32 Ancestors: Morphic-mt.1647 Fixes some visual glitches that happened when using the text morph's public interface to change text selection. Note that this selection interface transcends from the inner text editor, through the text morph, up to the pluggable text morph. Yay. =============== Diff against Morphic-mt.1647 =============== Item was changed: ----- Method: PluggableTextMorph>>mouseLeave: (in category 'event handling') ----- mouseLeave: event "Save the selection interval for later." + self rememberSelectionInterval. - self flag: #fixIntervalCache. "mt: We should find a better design for discarding unused text editors in text morphs and restoring them on demand." - selectionInterval := textMorph editor markIndex to: textMorph editor pointIndex -1. super mouseLeave: event. Preferences mouseOverForKeyboardFocus ifTrue: [event hand releaseKeyboardFocus: self]! Item was added: + ----- Method: PluggableTextMorph>>rememberSelectionInterval (in category 'private') ----- + rememberSelectionInterval + + self flag: #fixIntervalCache. "mt: We should find a better design for discarding unused text editors in text morphs and restoring them on demand." + selectionInterval := textMorph editor markIndex to: textMorph editor pointIndex - 1.! Item was changed: ----- Method: PluggableTextMorph>>scrollSelectionIntoView: (in category 'editor access') ----- scrollSelectionIntoView: event "Scroll my text into view. Due to line composition mechanism, we must never use the right of a character block because the lines last character block right value always comes from a global container and is *not* line specific." + self rememberSelectionInterval. - self flag: #fixIntervalCache. "mt: We should find a better design for discarding unused text editors in text morphs and restoring them on demand." - selectionInterval := textMorph editor markIndex to: textMorph editor pointIndex - 1. textMorph editor hasSelection ifFalse: [self scrollToShow: (textMorph editor startBlock withWidth: 1)] ifTrue: [ self scrollToShow: (textMorph editor startBlock topLeft corner: textMorph editor stopBlock bottomLeft). self scrollToShow: (textMorph editor pointBlock withWidth: 1). "Ensure text cursor visibility."]. ^ true! Item was changed: ----- Method: PluggableTextMorph>>selectAll (in category 'editor access') ----- selectAll - "Tell my textMorph to select all" + textMorph selectAll. + self rememberSelectionInterval.! - textMorph selectAll.! Item was changed: ----- Method: PluggableTextMorph>>selectFrom:to: (in category 'interactive error protocol') ----- selectFrom: start to: stop + + textMorph selectFrom: start to: stop. + self rememberSelectionInterval.! - ^ textMorph editor selectFrom: start to: stop! Item was added: + ----- Method: PluggableTextMorph>>selectInterval: (in category 'editor access') ----- + selectInterval: anInterval + + textMorph selectInterval: anInterval. + self rememberSelectionInterval.! Item was changed: ----- Method: PluggableTextMorph>>selectionInterval (in category 'editor access') ----- selectionInterval + + ^ textMorph selectionInterval! - ^ textMorph editor selectionInterval! Item was changed: ----- Method: PluggableTextMorph>>selectionInterval: (in category 'editor access') ----- + selectionInterval: anInterval + + textMorph selectionInterval: anInterval. + self rememberSelectionInterval.! - selectionInterval: sel - textMorph editor selectInterval: sel.! Item was changed: ----- Method: TextMorph>>selectFrom:to: (in category 'accessing') ----- + selectFrom: start to: stop + + self selectionChanged. + self editor selectFrom: start to: stop. + self selectionChanged. + ! - selectFrom: a to: b - self editor selectFrom: a to: b! Item was added: + ----- Method: TextMorph>>selectInterval: (in category 'accessing') ----- + selectInterval: anInterval + + self selectionChanged. + self editor selectInterval: anInterval. + self selectionChanged. + ! Item was added: + ----- Method: TextMorph>>selectionInterval (in category 'accessing') ----- + selectionInterval + + ^ self editor selectionInterval! Item was added: + ----- Method: TextMorph>>selectionInterval: (in category 'accessing') ----- + selectionInterval: anInterval + + self selectInterval: anInterval.!

1 0

The Trunk: Collections-mt.888.mcz
by commits＠source.squeak.org 20 Apr '20

20 Apr '20

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.888.mcz ==================== Summary ==================== Name: Collections-mt.888 Author: mt Time: 20 April 2020, 10:16:10.896894 am UUID: ecc786d1-496b-0e4d-8f51-3abcff1823db Ancestors: Collections-mt.887 Fixes mistake in previous commit. Sorry, it's Monday. --- Complements CollectionsTests-mt.337, which found the mistake. =============== Diff against Collections-mt.887 =============== Item was changed: ----- Method: HtmlReadWriter>>mapImgTag: (in category 'mapping') ----- mapImgTag: aTag + | result startIndex stopIndex attribute src form scaleFactor | - | result startIndex stopIndex attribute src form | result := OrderedCollection new. "<img src=""https://squeak.org/img/downloads/image.png"">" attribute := 'src'. 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]. src := aTag copyFrom: startIndex+1 to: stopIndex-1. form := (self httpGetImage: src) ifNil: [(Form dotOfSize: 12 color: Color veryLightGray)]. + (scaleFactor := RealEstateAgent scaleFactor) = 1.0 + ifFalse: [form := form scaledToSize: form extent * scaleFactor]. result + add: form asTextAnchor; - add: form scaleIconToDisplay asTextAnchor; add: (TextColor color: Color transparent)]. ^ result!

1 0

The Trunk: CollectionsTests-mt.337.mcz
by commits＠source.squeak.org 20 Apr '20

20 Apr '20

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.337.mcz ==================== Summary ==================== Name: CollectionsTests-mt.337 Author: mt Time: 20 April 2020, 10:15:02.740894 am UUID: 53856441-2b5a-6842-9bba-a931ac2fb9b9 Ancestors: CollectionsTests-mt.336 Refine test for <img> tag to consider scaling. So, this test should pass in Demo/HiDPI mode and in regular mode. -- I suppose that the structure of this test could be improved. :-) =============== Diff against CollectionsTests-mt.336 =============== Item was changed: ----- Method: HtmlReadWriterTest>>test16ImgTag (in category 'tests') ----- test16ImgTag <timeout: 10> | imgUrl imgExpression formFromUrl formFromExpression | imgUrl := 'https://squeak.org/img/downloads/image.png'. imgExpression := 'Form dotOfSize: 12@12 color: Color green'. self ensureSecureInternetConnection. formFromUrl := (Smalltalk classNamed: 'WebClient') ifNotNil: [:client | Form fromBinaryStream: (client httpGet: imgUrl) content asByteArray readStream]. formFromExpression := Compiler evaluate: imgExpression. + RealEstateAgent scaleFactor = 1.0 ifFalse: [ + formFromUrl := formFromUrl scaledToSize: (formFromUrl extent * RealEstateAgent scaleFactor). + formFromExpression := formFromExpression scaledToSize: (formFromExpression extent * RealEstateAgent scaleFactor)]. + { 'Hello <img src="{1}"> World' format: { imgUrl }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: formFromUrl asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. 'Hello <img src="code://{1}"> World' format: { imgExpression }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: formFromExpression asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. } pairsDo: [:expectedHtml :expectedText | self convertHtml: expectedHtml. self assert: expectedText string equals: text string. expectedText runs with: text runs do: [:expectedAttributes :actualAttributes | expectedAttributes with: actualAttributes do: [:expectedAttribute :actualAttribute | self assert: (expectedAttribute = actualAttribute or: [ ((expectedAttribute respondsTo: #anchoredMorph) and: [actualAttribute respondsTo: #anchoredMorph]) and: [(expectedAttribute anchoredMorph "aForm" unhibernate; bits) = (actualAttribute anchoredMorph "aForm" unhibernate; bits)] ]) ]]].!

1 0

The Trunk: Collections-mt.887.mcz
by commits＠source.squeak.org 20 Apr '20

20 Apr '20

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.887.mcz ==================== Summary ==================== Name: Collections-mt.887 Author: mt Time: 20 April 2020, 9:41:19.032697 am UUID: d0621830-e616-8342-9667-54921523e5a9 Ancestors: Collections-mt.886 Let <img> tags honor Squeak's "High DPI" setting. =============== Diff against Collections-mt.886 =============== Item was changed: ----- Method: HtmlReadWriter>>mapImgTag: (in category 'mapping') ----- mapImgTag: aTag | result startIndex stopIndex attribute src form | result := OrderedCollection new. "<img src=""https://squeak.org/img/downloads/image.png"">" attribute := 'src'. 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]. src := aTag copyFrom: startIndex+1 to: stopIndex-1. form := (self httpGetImage: src) ifNil: [(Form dotOfSize: 12 color: Color veryLightGray)]. result + add: form scaleIconToDisplay asTextAnchor; - add: form asTextAnchor; add: (TextColor color: Color transparent)]. ^ result!

1 0

The Trunk: System-eem.1154.mcz
by commits＠source.squeak.org 18 Apr '20

18 Apr '20

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1154.mcz ==================== Summary ==================== Name: System-eem.1154 Author: eem Time: 19 January 586155, 1:08:16.564616 am UUID: 774a2409-d212-1a47-8988-0250ab5f13d2 Ancestors: System-mt.1153 Spelling in a class comment =============== Diff against System-mt.1153 =============== Item was changed: Object subclass: #AbstractLauncher instanceVariableNames: 'parameters' classVariableNames: '' poolDictionaries: '' category: 'System-Support'! + !AbstractLauncher commentStamp: 'eem 1/19/586155 01:04' prior: 0! + The class AutoStart in combination with the Launcher classes provides a mechanism for starting Squeak from the command line or a web page. Parameters on the command line or in the embed tag in the web page a parsed and stored in the launcher's parameter dictionary. - !AbstractLauncher commentStamp: 'mt 8/14/2016 10:08' prior: 0! - The class AutoStart in combination with the Launcher classes provides a mechanism for starting Squeak from the command line or a web page. Parameters on the command line or in the embed tag in the web page a parsed and stored in the lauchner's parameter dictionary. Subclasses can access these parameters to determine what to do. CommandLineLauncherExample provides an example for a command line application. if you start squeak with a command line 'class Integer' it will launch a class browser on class Integer. To enable this execute CommandLineLauncherExample activate before you save the image. To disable execute CommandLineLauncherExample deactivate The PluginLauncher is an example how to use this framework to start Squeak as a browser plugin. It looks for a parameter 'src' which should point to a file containing a squeak script.!

1 0

The Trunk: MonticelloConfigurations-mt.160.mcz
by commits＠source.squeak.org 17 Apr '20

17 Apr '20

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-mt.160.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mt.160 Author: mt Time: 17 April 2020, 5:17:27.82286 pm UUID: 6d32501e-f519-3b4a-ae1a-58b52360a937 Ancestors: MonticelloConfigurations-mt.159 Shows the current CI status in the update dialog. =============== Diff against MonticelloConfigurations-mt.159 =============== Item was changed: ----- Method: MCMcmUpdater>>doUpdate: (in category 'updating') ----- doUpdate: interactive "Update the image by loading all pending updates from the server. If this is the default updater for the system, update the system version when complete. If interteractive use a modal notifier, otherwise only update the transcript. Flush all caches. If a previous download failed this is often helpful" | config previousUpdateLevel ensureTranscriptSetting | previousUpdateLevel := SystemVersion current highestUpdate. MCFileBasedRepository flushAllCaches. ensureTranscriptSetting := MCConfiguration ensureOpenTranscript. [ MCConfiguration ensureOpenTranscript: interactive. config := self updateFromRepository. config ifNil: [ interactive ifTrue: [ ^self inform: 'Unable to retrieve updates from remote repository.' translated ]. Transcript cr; show: '========== Unable to retrieve updates from remote repository. ==========' translated; cr. ^ self ]. MCMcmUpdater default == self ifTrue: [ config setSystemVersion. + interactive ifTrue: [ + self inform: (self updateMessageFor: previousUpdateLevel)]. - interactive ifTrue: [ - self inform: ('Update completed.\\Version: {1}\Update: {3}{2}\\Url: {4}\Map: ''{5}''{6}' translated withCRs format: { - SystemVersion current version. - SystemVersion current highestUpdate. - previousUpdateLevel = SystemVersion current highestUpdate - ifTrue: [''] - ifFalse: [previousUpdateLevel asString, ' -> ']. - self repository. - MCMcmUpdater updateMapName. - SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | String cr, String cr, d]})]. Transcript cr; show: '========== Update completed: ' translated; show: previousUpdateLevel; show: ' -> ' ; show: SystemVersion current highestUpdate; show: ' =========='; cr ] ifFalse: [ interactive ifTrue: [ self inform: 'Update completed.' ]. Transcript cr; show: '========== Update completed. ==========' translated; cr ] ] ensure: [ MCConfiguration ensureOpenTranscript: ensureTranscriptSetting]. ! Item was changed: ----- Method: MCMcmUpdater>>doUpdate:upTo: (in category 'updating') ----- doUpdate: interactive upTo: versionNumber "Update the image by loading all pending updates from the server. If this is the default updater for the system, update the system version when complete. If interteractive use a modal notifier, otherwise only update the transcript. Flush all caches. If a previous download failed this is often helpful" | config previousUpdateLevel | previousUpdateLevel := SystemVersion current highestUpdate. MCFileBasedRepository flushAllCaches. config := self updateFromRepositories: { self repository } upTo: versionNumber. config ifNil: [ interactive ifTrue: [ ^self inform: 'Unable to retrieve updates from remote repository.' translated ]. Transcript cr; show: '========== Unable to retrieve updates from remote repository. ==========' translated; cr. ^ self ]. MCMcmUpdater default == self ifTrue: [ config setSystemVersion. + interactive ifTrue: [ + self inform: (self updateMessageFor: previousUpdateLevel)]. - interactive ifTrue: [ - self inform: ('Update completed.\\Version: {1}\Update: {3}{2}\\Url: {4}\Map: ''{5}''{6}' translated withCRs format: { - SystemVersion current version. - SystemVersion current highestUpdate. - previousUpdateLevel = SystemVersion current highestUpdate - ifTrue: [''] - ifFalse: [previousUpdateLevel asString, ' -> ']. - self repository. - MCMcmUpdater updateMapName. - SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | String cr, String cr, d]})]. Transcript cr; show: '========== Update completed: ' translated; show: previousUpdateLevel; show: ' -> ' ; show: SystemVersion current highestUpdate; show: ' =========='; cr ] ifFalse: [ interactive ifTrue: [ self inform: 'Update completed.' ]. Transcript cr; show: '========== Update completed. ==========' translated; cr ] ! Item was added: + ----- Method: MCMcmUpdater>>updateMessageFor: (in category 'private') ----- + updateMessageFor: previousUpdateLevel + + ^ ('Update completed. Version: {1} Update: {3}{2} Url: <a href="{4}">{4}</a> Map: ''{5}'' TravisCI status: <a href="{8}"><img src="{7}" /></a>{6}' translated format: { + SystemVersion current version. + SystemVersion current highestUpdate. + previousUpdateLevel = SystemVersion current highestUpdate + ifTrue: [''] + ifFalse: [previousUpdateLevel asString, ' -> ']. + self repository. + MCMcmUpdater updateMapName. + SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | + ' ', (d copyReplaceAll: String cr with: ' ')]. + SystemVersion current ciStatusBadgeUrl. + SystemVersion current ciStatusPageUrl. + }) asTextFromHtml!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2020