The Trunk: EToys-ct.358.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: EToys-ct.358.mcz

commits-2
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"
  !