[squeak-dev] The Trunk: Morphic-hjh.1453.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jun 22 02:44:31 UTC 2018


David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-hjh.1453.mcz

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

Name: Morphic-hjh.1453
Author: hjh
Time: 14 June 2018, 8:47:23.595445 am
UUID: 709cc547-ea46-426f-86a7-e014af1a5f6b
Ancestors: Morphic-cbc.1452

Moved Morph>>beTransparent to 'accessing'
Added guard in MorphicProject>>updateLocaleDependents to check for the presence of Etoys
Fix comment in Morph>>saveOnFile (SmartRefStream)

This change makes 'New MorphicProject' work after unloading Etoys (Preference okToReinitializeFlaps not enabled )

=============== Diff against Morphic-cbc.1452 ===============

Item was added:
+ ----- Method: Morph>>beTransparent (in category 'accessing') -----
+ beTransparent
+ 	self color: Color transparent!

Item was changed:
  ----- Method: Morph>>saveOnFile (in category 'fileIn/out') -----
  saveOnFile
+ 	"Ask the user for a filename and save myself on a SmartRefStream file.  Writes out the version and class structure.  The file is fileIn-able.  UniClasses will be filed out."
- 	"Ask the user for a filename and save myself on a SmartReferenceStream file.  Writes out the version and class structure.  The file is fileIn-able.  UniClasses will be filed out."
  	| aFileName |
  	aFileName := ('my {1}.morph' translated format: {self class name}) asFileName.	"do better?"
  	aFileName := UIManager default saveFilenameRequest: 'File name?' translated 
  			initialAnswer: aFileName.
  	aFileName ifNil: [^ Beeper beep].
  
  	self allMorphsDo: [:m | m prepareToBeSaved].
  
  	self saveOnFileNamed: aFileName!

Item was changed:
  ----- Method: MorphicProject>>updateLocaleDependents (in category 'language') -----
  updateLocaleDependents
  	"Set the project's natural language as indicated"
  
+       (self world respondsTo: #isTileScriptingElement) ifTrue: "Etoys present" [
  	ActiveWorld allTileScriptingElements do: [:viewerOrScriptor |
+ 			viewerOrScriptor localeChanged]].
- 			viewerOrScriptor localeChanged].
  
  	Flaps disableGlobalFlaps: false.
  	(Preferences eToyFriendly or: [
  		(Smalltalk classNamed: 'SugarNavigatorBar') ifNotNil: [:c | c showSugarNavigator] ifNil: [false]])
  		ifTrue: [
  			Flaps addAndEnableEToyFlaps.
  			ActiveWorld addGlobalFlaps]
  		ifFalse: [Flaps enableGlobalFlaps].
  
  	(Project current isFlapIDEnabled: 'Navigator' translated)
  		ifFalse: [Flaps enableDisableGlobalFlapWithID: 'Navigator' translated].
  
  	ScrapBook default emptyScrapBook.
  	MenuIcons initializeTranslations.
  	
  	super updateLocaleDependents.
  
  	"self setFlaps.
  	self setPaletteFor: aLanguageSymbol."
  !



More information about the Squeak-dev mailing list