Packages November 2019

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: EToys-ct.354.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.354.mcz ==================== Summary ==================== Name: EToys-ct.354 Author: ct Time: 6 September 2019, 12:55:43.866698 pm UUID: dd3f110c-e574-1549-b382-4848dabda9d9 Ancestors: EToys-pre.353 Simplify help display of FreeCell (Etoys has also depended on ToolBuilder before) =============== Diff against EToys-pre.353 =============== Item was changed: ----- Method: FreeCell>>help (in category 'actions') ----- help + + self helpText editWithLabel: 'FreeCell Help'.! - | window helpMorph | - window := SystemWindow labelled: 'FreeCell Help' translated. - window model: self. - helpMorph := (PluggableTextMorph new editString: self helpText) lock. - window - addMorph: helpMorph - frame: (0 @ 0 extent: 1 @ 1). - window openInWorld!

1 0

The Trunk: EToys-ct.355.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.355.mcz ==================== Summary ==================== Name: EToys-ct.355 Author: ct Time: 20 September 2019, 7:00:19.740437 pm UUID: fffa3998-3dea-bf46-ada8-7075405d741c Ancestors: EToys-mt.354 Add Form>>#scaledToWidth:, an analogon for #scaledToHeight: =============== Diff against EToys-mt.354 =============== Item was added: + ----- Method: Form>>scaledToWidth: (in category '*Etoys-Squeakland-scaling, rotation') ----- + scaledToWidth: newWidth + "Answer the receiver, scaled such that it has the desired width." + + newWidth = self width ifTrue: [^ self]. + ^self magnify: self boundingBox by: (newWidth / self width) smoothing: 2. + !

1 0

The Trunk: EToys-ct.356.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.356.mcz ==================== Summary ==================== Name: EToys-ct.356 Author: ct Time: 20 September 2019, 7:05:06.452437 pm UUID: 7a602971-d1cc-d94b-9efd-d99a5bf6e306 Ancestors: EToys-mt.354 FreeCell>>#help: Use #editWithLabel: instead of reinventing the wheel ... =============== Diff against EToys-mt.354 =============== Item was changed: ----- Method: FreeCell>>help (in category 'actions') ----- help + + self helpText editWithLabel: 'FreeCell Help'.! - | window helpMorph | - window := SystemWindow labelled: 'FreeCell Help' translated. - window model: self. - helpMorph := (PluggableTextMorph new editString: self helpText) lock. - window - addMorph: helpMorph - frame: (0 @ 0 extent: 1 @ 1). - window openInWorld!

1 0

The Trunk: EToys-ct.357.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.357.mcz ==================== Summary ==================== Name: EToys-ct.357 Author: ct Time: 20 September 2019, 7:22:55.118726 pm UUID: f5fb06f1-4f38-b047-ab07-970561e1f6ed Ancestors: EToys-mt.354 Respect submorphs in MovingEyeMorph.>>#color: =============== Diff against EToys-mt.354 =============== Item was added: + ----- Method: MovingEyeMorph>>color: (in category 'as yet unclassified') ----- + color: aColor + + super color: aColor. + inner color: aColor. + self borderColor: aColor.!

1 0

The Trunk: EToys-ct.358.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.358.mcz ==================== Summary ==================== Name: EToys-ct.358 Author: ct Time: 20 September 2019, 7:25:27.226726 pm UUID: cdf2e2cb-47d1-1742-a5fe-18a5cbe25f45 Ancestors: EToys-mt.354 Replace miscellaneous deprecated calls =============== Diff against EToys-mt.354 =============== Item was changed: ----- Method: NewVariableDialogMorph>>decimalPlaces (in category 'accessing') ----- decimalPlaces ^ decimalPlacesButton ifNil: [Utilities decimalPlacesForFloatPrecision: (self targetPlayer + defaultFloatPrecisionFor: self varAcceptableName asSetterSelector)] - defaultFloatPrecisionFor: (Utilities getterSelectorFor: self varAcceptableName))] ifNotNil: [:button| button label asNumber]! Item was changed: ----- Method: Preferences class>>initializePreferencePanel:in: (in category '*Etoys-Squeakland-preferences panel') ----- initializePreferencePanel: aPanel in: aPasteUpMorph "Initialize the given Preferences panel. in the given pasteup, which is the top-level panel installed in the container window. Also used to reset it after some change requires reformulation" | tabbedPalette controlPage aColor aFont maxEntriesPerCategory tabsMorph anExtent prefObjects | aPasteUpMorph removeAllMorphs. aFont := Preferences standardListFont. + aColor := aPanel windowColorToUse. - aColor := aPanel defaultBackgroundColor. tabbedPalette := TabbedPalette newSticky. tabbedPalette dropEnabled: false. (tabsMorph := tabbedPalette tabsMorph) color: aColor darker; highlightColor: Color red regularColor: Color brown darker darker. tabbedPalette on: #mouseDown send: #yourself to: #(). maxEntriesPerCategory := 0. self listOfCategories do: [:aCat | controlPage := AlignmentMorph newColumn beSticky color: aColor. controlPage on: #mouseDown send: #yourself to: #(). controlPage dropEnabled: false. controlPage borderColor: aColor; layoutInset: 4. (prefObjects := self preferenceObjectsInCategory: aCat) do: [:aPreference | | button | button := aPreference representativeButtonWithColor: Color white inPanel: aPanel. button ifNotNil: [controlPage addMorphBack: button]]. controlPage setNameTo: aCat asString. aCat = #? ifTrue: [aPanel addHelpItemsTo: controlPage]. tabbedPalette addTabFor: controlPage font: aFont. aCat = 'search results' ifTrue: [(tabbedPalette tabNamed: aCat) setBalloonText: 'Use the ? category to find preferences by keyword; the results of your search will show up here' translated]. maxEntriesPerCategory := maxEntriesPerCategory max: prefObjects size]. tabbedPalette selectTabNamed: '?'. tabsMorph rowsNoWiderThan: aPasteUpMorph width. aPasteUpMorph on: #mouseDown send: #yourself to: #(). anExtent := aPasteUpMorph width @ (490 max: (25 + tabsMorph height + (24 * maxEntriesPerCategory))). aPasteUpMorph extent: anExtent. aPasteUpMorph color: aColor. aPasteUpMorph addMorphBack: tabbedPalette.! Item was changed: ----- Method: VariableNode>>asMorphicSyntaxIn: (in category '*Etoys-tiles') ----- asMorphicSyntaxIn: parent ^ parent addToken: self name type: #variable + on: self shallowCopy "don't hand out the prototype!! See VariableNode>>initialize" - on: self clone "don't hand out the prototype!! See VariableNode>>initialize" !

1 0

The Trunk: EToys-ct.359.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.359.mcz ==================== Summary ==================== Name: EToys-ct.359 Author: ct Time: 20 September 2019, 7:27:50.226726 pm UUID: d4cbaeb4-8010-2d4d-ba53-8e0332052fe0 Ancestors: EToys-mt.354 Refactor SpectrumAnalyzerMorph: Extract #fftSize: to enable foreign calls =============== Diff against EToys-mt.354 =============== Item was added: + ----- Method: SpectrumAnalyzerMorph>>fftSize: (in category 'accessing') ----- + fftSize: aSize + + | on | + on := soundInput isRecording. + self stop. + fft := FFT new: aSize. + self resetDisplay. + on ifTrue: [self start].! Item was changed: ----- Method: SpectrumAnalyzerMorph>>setFFTSize (in category 'menu and buttons') ----- setFFTSize "Set the size of the FFT used for frequency analysis." + | aMenu sz | - | aMenu sz on | aMenu := CustomMenu new title: ('FFT size (currently {1})' translated format:{fft n}). ((7 to: 10) collect: [:n | 2 raisedTo: n]) do:[:r | aMenu add: r printString action: r]. sz := aMenu startUp. sz ifNil: [^ self]. + self fftSize: sz.! - on := soundInput isRecording. - self stop. - fft := FFT new: sz. - self resetDisplay. - on ifTrue: [self start]. - !

1 0

The Trunk: EToys-ct.360.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.360.mcz ==================== Summary ==================== Name: EToys-ct.360 Author: ct Time: 20 September 2019, 7:29:22.721726 pm UUID: e14d2977-ab52-4d45-b24f-5a706bde4326 Ancestors: EToys-mt.354 Recategorize WatchMorph constructor =============== Diff against EToys-mt.354 =============== Item was changed: + ----- Method: WatchMorph class>>fontName:bgColor:centerColor: (in category 'instance creation') ----- - ----- Method: WatchMorph class>>fontName:bgColor:centerColor: (in category 'as yet unclassified') ----- fontName: aString bgColor: aColor centerColor: otherColor ^ self new fontName: aString; color: aColor; centerColor: otherColor!

1 0

The Trunk: EToys-ct.364.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.364.mcz ==================== Summary ==================== Name: EToys-ct.364 Author: ct Time: 15 October 2019, 2:12:32.724129 pm UUID: a1a5058a-ff82-1d4d-9588-c2a98585d8ce Ancestors: EToys-mt.361 Fixes a drawing bug in SyntaxMorph Before this commit, you could not even run [SyntaxMorph test] due to this slip ... =============== Diff against EToys-mt.361 =============== Item was changed: ----- Method: SyntaxMorph>>unhighlightBorder (in category 'highlighting') ----- unhighlightBorder self currentSelectionDo: [:innerMorph :mouseDownLoc :outerMorph | + (self == outerMorph or: [owner notNil and: [owner isSyntaxMorph not]]) + ifFalse: [self borderColor: self stdBorderColor] + ifTrue: [ + (self hasProperty: #deselectedBorderColor) + ifTrue: [self borderColor: (self valueOfProperty: #deselectedBorderColor)] + ifFalse: [self borderStyle: (BorderStyle raised width: self borderWidth)]] ].! - self borderColor: ( - (self == outerMorph or: [owner notNil and: [owner isSyntaxMorph not]]) - ifFalse: [self borderColor: self stdBorderColor] - ifTrue: [ - (self hasProperty: #deselectedBorderColor) - ifTrue: [self borderColor: (self valueOfProperty: #deselectedBorderColor)] - ifFalse: [self borderStyle: (BorderStyle raised width: self borderWidth)]] )].!

1 0

The Trunk: EToys-ct.365.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.365.mcz ==================== Summary ==================== Name: EToys-ct.365 Author: ct Time: 15 October 2019, 2:16:54.429129 pm UUID: 08312ed6-6a48-cd4f-98e1-d0d3baff59dd Ancestors: EToys-mt.361 Fixes small layout error in tiles due to missspelling =============== Diff against EToys-mt.361 =============== Item was changed: ----- Method: TileMorph>>wrapPhraseInFunction (in category '*Etoys-Squeakland-arrows') ----- wrapPhraseInFunction "The user made a gesture requesting that the phrase for which the receiver bears the widget hit be wrapped in a function. This applies for the moment only to numeric functions" | pad newPad functionPhrase | pad := self ownerThatIsA: TilePadMorph. "Or something higher than that???" (pad isNil or: [pad type ~= #Number]) ifTrue: [^ Beeper beep]. newPad := TilePadMorph new setType: #Number. + newPad hResizing: #shrinkWrap; vResizing: #spaceFill. - newPad hResizing: #shrinkWrap; vResizing: #spacefill. functionPhrase := FunctionTile new. newPad addMorphBack: functionPhrase. pad owner replaceSubmorph: pad by: newPad. functionPhrase operator: #abs pad: pad. functionPhrase addSuffixArrow. self scriptEdited ! Item was changed: ----- Method: TilePadMorph>>wrapInFunction (in category '*Etoys-Squeakland-miscellaneous') ----- wrapInFunction "The user made a gesture requesting that the receiver be wrapped in a (numeric) function." | newPad functionPhrase | newPad := TilePadMorph new setType: #Number. + newPad hResizing: #shrinkWrap; vResizing: #spaceFill. - newPad hResizing: #shrinkWrap; vResizing: #spacefill. functionPhrase := FunctionTile new. newPad addMorphBack: functionPhrase. owner replaceSubmorph: self by: newPad. functionPhrase operator: #abs pad: self. self scriptEdited!

1 0

The Trunk: EToys-ct.367.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.367.mcz ==================== Summary ==================== Name: EToys-ct.367 Author: ct Time: 15 October 2019, 2:46:24.862129 pm UUID: 1394344f-b1e3-5640-a13a-70c5dffd51f4 Ancestors: EToys-mt.361 Allow for embedding SyntaxMorphs into test tiles. =============== Diff against EToys-mt.361 =============== Item was added: + ----- Method: SyntaxMorph>>parseNodeWith:asStatement: (in category '*Etoys-Squeakland-code generation') ----- + parseNodeWith: encoder asStatement: aBoolean + + ^ self parseNode!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2019