[squeak-dev] The Trunk: EToys-mt.467.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Mar 10 14:19:26 UTC 2022


Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.467.mcz

==================== Summary ====================

Name: EToys-mt.467
Author: mt
Time: 10 March 2022, 3:19:20.367178 pm
UUID: 99bd9321-98d6-8a48-b2ff-35c750714617
Ancestors: EToys-mt.466

Locale clean-up. Complements Multilingual-mt.269 and System-mt.1318

=============== Diff against EToys-mt.466 ===============

Item was changed:
  ----- Method: Preferences class>>cambridge (in category '*Etoys-Squeakland-themes') -----
  cambridge
  	"A theme for Squeakland and OLPC project"
  	"Preferences cambridge"
  	"This method has three parts.  Don't forget to look at the stuff at the bottom."
  
  	self setPreferencesFrom: #(
  		(allowCelesteTell false)
  		(alternativeScrollbarLook true)
  		(alternativeWindowLook true)
  		(annotationPanes true)
  		(automaticKeyGeneration true)
  		(biggerHandles true)
  		(blinkParen false)
  		(browseWithDragNDrop true)
  		(canRecordWhilePlaying true)
  		(classicNavigatorEnabled false)
  		(compactViewerFlaps true)
  		(enableLocalSave false)
  		(eToyFriendly true)
  		(eToyLoginEnabled true)
  		(extraDebuggerButtons false)
  		(gradientMenu false)
  		(haloTransitions false)
  		(honorDesktopCmdKeys true)
  		(includeSoundControlInNavigator true)
  		(magicHalos false)
  		(menuAppearance3d false)
  		(menuKeyboardControl false)
  		(modalColorPickers true)
  		(mouseOverHalos false)
  		(mvcProjectsAllowed false)
  		(preserveTrash true)
  		(projectViewsInWindows false)
  		(promptForUpdateServer false)
  		(propertySheetFromHalo false)
  		(roundedMenuCorners false)
  		(roundedWindowCorners false)
  		(securityChecksEnabled true)
  		(standaloneSecurityChecksEnabled true)
  		(duplicateControlAndAltKeys true)
  		(showDirectionHandles false)
  		(showDirectionForSketches true)
  		(showProjectNavigator false)
  		(showSecurityStatus false)
  		(soundQuickStart true)	"see setPlatformPreferences"
  		(soundReverb false)
  		(soundStopWhenDone true) 	"see setPlatformPreferences"
  		(startInUntrustedDirectory true)
  		(sugarAutoSave false)
  		(swapControlAndAltKeys false)	"see setPlatformPreferences"
  		(uniqueNamesInHalos true)
  		(unlimitedPaintArea false)
  		(useArtificialSweetenerBar true)
  		(useBiggerPaintingBox true)
  		(useFormsInPaintBox false)
  		(useLocale true)
- 		(usePangoRenderer false)
  		(usePopUpArrows true)
  		(warnAboutInsecureContent false)
  
  	"The following is to make sure the default is set properly."
  
  	(allowEtoyUserCustomEvents false)
  	(alphabeticalProjectMenu false)
  	(alternativeBrowseIt false)
  	(alternativeWindowBoxesLook true)
  	(alwaysHideHScrollbar false)
  	(alwaysShowConnectionVocabulary false)
  	(alwaysShowHScrollbar false)
  	(alwaysShowVScrollbar true)
  	(areaFillsAreTolerant false)
  	(areaFillsAreVeryTolerant false)
  	(automaticFlapLayout true)
  	(automaticPlatformSettings true)	"enables setPlatformPreferences"
  	(automaticViewerPlacement true)
  	(balloonHelpEnabled true)
  	(balloonHelpInMessageLists false)
  	(batchPenTrails false)
  	(biggerCursors true)
  	(capitalizedReferences true)
  	(caseSensitiveFinds false)
  	(cautionBeforeClosing false)
  	(celesteHasStatusPane false)
  	(celesteShowsAttachmentsFlag false)
  	(changeSetVersionNumbers true)
  	(checkForSlips true)
  	(checkForUnsavedProjects true)
  	(clickOnLabelToEdit false)
  	(cmdDotEnabled true)
  	(collapseWindowsInPlace false)
  	(colorWhenPrettyPrinting false)
  	(confirmFirstUseOfStyle true)
  	(conversionMethodsAtFileOut false)
  	(debugHaloHandle false)
  	(debugPrintSpaceLog false)
  	(debugShowDamage false)
  	(decorateBrowserButtons true)
  	(diffsInChangeList true)
  	(diffsWithPrettyPrint false)
  	(dismissAllOnOptionClose false)
  	(dismissEventTheatreUponPublish true)
  	(dropProducesWatcher true)
  	(duplicateControlAndAltKeys false)
  	(easySelection false)
  	(enablePortraitMode false)
  	(enableVirtualOLPCDisplay false)
  	(expandedPublishing true)
  	(fastDragWindowForMorphic true)
  	(fenceEnabled true)
  	(fenceSoundEnabled false)
  	(fullScreenLeavesDeskMargins true)
  	(gradientScrollBars true)
  	(haloEnclosesFullBounds false)
  	(higherPerformance false)
  	(ignoreStyleIfOnlyBold true)
  	(implicitSelfInTiles false)
  	(inboardScrollbars true)
  	(infiniteUndo false)
  	(keepTickingWhilePainting false)
  	(logDebuggerStackToFile true)
  	(menuColorFromWorld false)
  	(menuWithIcons true)
  	(mouseOverForKeyboardFocus false)
  	(navigatorOnLeftEdge true)
  	(noviceMode false)
  	(okToReinitializeFlaps true)
  	(oliveHandleForScriptedObjects false)
  	(optionalButtons true)
  	(passwordsOnPublish false)
  	(personalizedWorldMenu true)
  	(postscriptStoredAsEPS false)
  	(printAlternateSyntax false)
  	(projectsSentToDisk false)
  	(projectZoom true)
  	(readDocumentAtStartup true)
  	(restartAlsoProceeds false)
  	(reverseWindowStagger true)
  	(rotationAndScaleHandlesInPaintBox false)
  	(scrollBarsNarrow false)
  	(scrollBarsOnRight true)
  	(scrollBarsWithoutMenuButton false)
  	(selectionsMayShrink true)
  	(selectiveHalos true)
  	(showAdvancedNavigatorButtons false)
  	(showBoundsInHalo false)
  	(showDeprecationWarnings false)
  	(showFlapsWhenPublishing false)
  	(showSharedFlaps true)
  	(signProjectFiles true)
  	(simpleMenus false)
  	(slideDismissalsToTrash true)
  	(smartUpdating true)
  	(swapMouseButtons false)
  	(systemWindowEmbedOK false)
  	(tabAmongFields true)
  	(tileTranslucentDrag true)
  	(timeStampsInMenuTitles true)
  	(turnOffPowerManager false)
  	(twentyFourHourFileStamps true)
  	(typeCheckingInTileScripting true)
  	(uniTilesClassic true)
  	(universalTiles false)
  	(updateFromServerAtStartup false)
  	(updateSavesFile false)
  	(useButtonPropertiesToFire false)
  	(useUndo true)
  	(useVectorVocabulary false)
  	(viewersInFlaps true)
  	(warnIfNoChangesFile false)
  	(warnIfNoSourcesFile false)
  	(wordStyleCursorMovement true)
  
  	).
  
  Preferences setPreference: #haloTheme toValue: #iconicHaloSpecifications.
  !

Item was changed:
  ----- Method: Project>>updateLocaleDependentsWithPreviousSupplies:gently: (in category '*Etoys-Squeakland-language') -----
  updateLocaleDependentsWithPreviousSupplies: aCollection gently: gentlyFlag
  	"Set the project's natural language as indicated"
  
  	| morphs scriptEditors |
  	gentlyFlag ifTrue: [
+ 		Locale localeChangedGently.
- 		LanguageEnvironment localeChangedGently.
  	] ifFalse: [
+ 		Locale localeChanged.
- 		LanguageEnvironment localeChanged.
  	].
  
  	morphs := IdentitySet new: 400.
  	Project current world allMorphsAndBookPagesInto: morphs.
  	scriptEditors := morphs select: [:m | (m isKindOf: ScriptEditorMorph) and: [m topEditor == m]].
  	(morphs copyWithoutAll: scriptEditors) do: [:morph | morph localeChanged].
  	scriptEditors do: [:m | m localeChanged].
  
  	Flaps disableGlobalFlaps: false.
  	SugarNavigatorBar showSugarNavigator
  		ifTrue:
  			[Flaps addAndEnableEToyFlapsWithPreviousEntries: aCollection.
  			Project current world addGlobalFlaps]
  		ifFalse:
  			[Preferences eToyFriendly
  				ifTrue:
  					[Flaps addAndEnableEToyFlaps.
  					Project current world addGlobalFlaps]
  				ifFalse:
  					[Flaps enableGlobalFlaps]].
  
  	(Project current isFlapIDEnabled: 'Navigator' translated)
  		ifFalse: [Flaps enableDisableGlobalFlapWithID: 'Navigator' translated].
  
  	ParagraphEditor initializeTextEditorMenus.
  	MenuIcons initializeTranslations.
  
  	#(PartsBin ParagraphEditor BitEditor FormEditor StandardSystemController) 
  		do: [ :key | Smalltalk at: key ifPresent: [ :class | class initialize ]].
  
  	Project current world reformulateUpdatingMenus.
  	"self setFlaps.
  	self setPaletteFor: aLanguageSymbol."
  !

Item was removed:
- ----- Method: TextMorph class>>usePangoChanged (in category '*Etoys-Squeakland-class initialization') -----
- usePangoChanged
- 	self usePango: Preferences usePangoRenderer.
- 	Project current restoreDisplay.
- !



More information about the Squeak-dev mailing list