[Pkg] The Trunk: EToys-ct.358.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Nov 13 11:18:24 UTC 2019
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"
!
More information about the Packages
mailing list