[Pkg] The Trunk: Protocols-tfel.56.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Aug 30 10:06:01 UTC 2016


Tim Felgentreff uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-tfel.56.mcz

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

Name: Protocols-tfel.56
Author: tfel
Time: 2 August 2016, 10:03:19.877368 am
UUID: 4e4eac0b-4973-d941-8aec-8abb37943966
Ancestors: Protocols-mt.55, Protocols-kfr.11

merge from Squeakland Etoys image

=============== Diff against Protocols-mt.55 ===============

Item was changed:
  ----- Method: ObjectWithDocumentation>>helpMessage (in category 'accessing') -----
  helpMessage
  	"Check if there is a getterSetterHelpMessage. 
  	Otherwise try the normal help message or return nil."
  
  	^ self getterSetterHelpMessage
  		ifNil: [(self propertyAt: #helpMessage ifAbsent:
+ 			[self legacyHelpMessage ifNil: [^ nil]]) translatedInDomain: 'Etoys-Tiles']!
- 			[self legacyHelpMessage ifNil: [^ nil]]) translated]!

Item was changed:
  ----- Method: ObjectWithDocumentation>>wording (in category 'accessing') -----
  wording
  	"Answer the receiver's wording"
  
  	| wording |
  	(wording := self propertyAt: #wording ifAbsent: [nil])
+ 		ifNotNil: [^wording translatedInDomain: 'Etoys-Tiles' or: 'Etoys'].
- 		ifNotNil: [^wording translated].
  
  	self initWordingAndDocumentation.
  	^self propertyAt: #wording ifAbsent: ['']!

Item was changed:
  ----- Method: Vocabulary class>>gettersForbiddenFromWatchers (in category 'eToy vocabularies') -----
  gettersForbiddenFromWatchers
  	"Answer getters that should not have watchers launched to them"
  
+ 	^ #(colorSees copy isOverColor: seesColor: newClone getNewClone color:sees: touchesA: overlaps: overlapsAny: distanceToPlayer: bearingTo: bearingFrom:)!
- 	^ #(colorSees copy isOverColor: seesColor: newClone getNewClone color:sees: touchesA: overlaps: overlapsAny:)!

Item was changed:
  ----- Method: Vocabulary class>>initializeStandardVocabularies (in category 'class initialization') -----
  initializeStandardVocabularies
  	"Initialize a few standard vocabularies and place them in the AllStandardVocabularies list."
  
  	AllStandardVocabularies := nil.
  	Smalltalk at: #EToyVocabulary
  		ifPresent:[:aClass| self addStandardVocabulary: aClass new].
  	Smalltalk at: #EToyVectorVocabulary
  		ifPresent:[:aClass| self addStandardVocabulary: aClass new].
  
  	self addStandardVocabulary: self newPublicVocabulary.
  	self addStandardVocabulary: FullVocabulary new.
  
  	self addStandardVocabulary: self newQuadVocabulary.
  
  	self addStandardVocabulary: ColorType new.
  	self addStandardVocabulary: BooleanType new.
  	self addStandardVocabulary: GraphicType new.
  	Smalltalk at: #PlayerType
  		ifPresent:[:aClass| self addStandardVocabulary: aClass new].
  	self addStandardVocabulary: SoundType new.
  	self addStandardVocabulary: StringType new.
  	self addStandardVocabulary: MenuType new.
  	self addStandardVocabulary: UnknownType new.
  	Smalltalk at: #ScriptNameType
  		ifPresent:[:aClass| self addStandardVocabulary: aClass new].
+ 	Smalltalk at: #PointType
+ 		ifPresent:[:aClass| self addStandardVocabulary: aClass new].
  
  	self addStandardVocabulary: (SymbolListType new symbols: #(simple raised inset complexFramed complexRaised complexInset complexAltFramed complexAltRaised complexAltInset); vocabularyName: #BorderStyle; yourself).
  	self addStandardVocabulary: (SymbolListType new symbols: #(lines arrows arrowheads dots); vocabularyName: #TrailStyle; yourself).
  	self addStandardVocabulary: (SymbolListType new symbols: #(leftToRight rightToLeft topToBottom bottomToTop); vocabularyName: #ListDirection; yourself).
  
  	self addStandardVocabulary: (SymbolListType new symbols: #(topLeft bottomRight center justified); vocabularyName: #ListCentering; yourself).
  
+ 	self addStandardVocabulary: (SymbolListType new symbols: #(#center #topLeft #topRight #bottomLeft #bottomRight #topCenter #leftCenter #rightCenter #bottomCenter ); vocabularyName: #CellPositioning; yourself).
+ 
+ 	self addStandardVocabulary: (SymbolListType new symbols: #(#none #localRect #localSquare #globalRect #globalSquare ); vocabularyName: #CellSpacing; yourself).
+ 
  	self addStandardVocabulary: (SymbolListType new symbols: #(buttonDown whilePressed buttonUp); vocabularyName: #ButtonPhase; yourself).
  
  	self addStandardVocabulary: (SymbolListType new symbols: #(rotate #'do not rotate' #'flip left right' #'flip up down'); vocabularyName: #RotationStyle; yourself).
  
  	self addStandardVocabulary: (SymbolListType new symbols: #(rigid spaceFill shrinkWrap); vocabularyName: #Resizing; yourself).
  
  	self addStandardVocabulary: self newSystemVocabulary.  "A custom vocabulary for Smalltalk -- still under development)"
  
  	self numberVocabulary.  		"creates and adds it"
  	"self wonderlandVocabulary."  	"creates and adds it"
  	self vocabularyForClass: Time.   "creates and adds it"
  
  	Smalltalk at: #KedamaPatchType ifPresent:[:aClass| 
  		self addStandardVocabulary: (aClass new vocabularyName: #Patch; yourself).
  	].
  	self addStandardVocabulary: (SymbolListType new symbols: #(wrap stick bouncing); vocabularyName: #EdgeMode; yourself).
  	self addStandardVocabulary: (SymbolListType new symbols: #(logScale linear color); vocabularyName: #PatchDisplayMode; yourself).
+ 	
+ 	self addStandardVocabulary: (SymbolListType new symbols: #(#top #'top right' #right #'bottom right' #bottom #'bottom left' #left #'top left' #center ); vocabularyName: #AttachmentEdge; yourself).
+ 	
+ 	Smalltalk
+ 		at: #CalendarMorph
+ 		ifPresent: [:aClass | aClass assureDateFormatEstablished].
  
  	"Vocabulary initialize"!



More information about the Packages mailing list