[squeak-dev] 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 Squeak-dev mailing list