[etoys-dev] Etoys: Protocols-kfr.10.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Protocols to project Etoys:
http://source.squeak.org/etoys/Protocols-kfr.10.mcz

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

Name: Protocols-kfr.10
Author: kfr
Time: 9 March 2012, 11:52:17 am
UUID: bee932a7-4bba-4fc6-8790-f4e07b347681
Ancestors: Protocols-kfr.9

Limits the choices for types for user-defined variables and for parameters for user-defined scripts.
Adds balloon help for items in the menu for a variable in a viewer.
Cleans up some symbol-list-type-related issues.
Reformulates a couple of recently-added UI elements into more translation-friendly formats.

=============== Diff against Protocols-kfr.9 ===============

Item was changed:
  ----- Method: SymbolListType>>representsAType (in category 'tiles') -----
  representsAType
+ 	"Answer whether this vocabulary represents an end-user-sensible data type."
- 	"Answer whether this vocabulary represents an end-user-sensible data type"
  
+ 	^ true
+ !
- 	^ #(BorderStyle ButtonPhase TrailStyle) includes: vocabularyName!

Item was changed:
  ----- Method: Vocabulary class>>initialize (in category 'class initialization') -----
  initialize
+ 	"Initialize a few standard vocabularies and place them in the AllVocabularies list.  Call this to update all vocabularies."
- 	"Initialize a few standard vocabularies and place them in the AllVocabularies list.  Call this to update all vocabularies." 
  
+ 	"vacuously changed march 2012 to ensure that this method will be invoked when loaded via monticello."
+ 
  	self initializeStandardVocabularies.
  	self embraceAddedTypeVocabularies.
  
  	"Vocabulary initialize"
  
  !

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.
  
  	self addStandardVocabulary: EToyVocabulary new.
  	self addStandardVocabulary: EToyVectorVocabulary 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.
  	self addStandardVocabulary: PlayerType new.
  	self addStandardVocabulary: SoundType new.
  	self addStandardVocabulary: StringType new.
  	self addStandardVocabulary: MenuType new.
  	self addStandardVocabulary: UnknownType new.
  	self addStandardVocabulary: ScriptNameType new.
  	self addStandardVocabulary: PointType new.
  
  	#('simple' 'raised' 'inset' 'complex framed' 'complex raised' 'complex inset' 'complex alt framed' 'complex alt raised' 'complex alt inset') translatedNoop.
  	self addStandardVocabulary: (SymbolListType new symbols: #(simple raised inset complexFramed complexRaised complexInset complexAltFramed complexAltRaised complexAltInset); vocabularyName: #BorderStyle; yourself).
  	#('lines' 'arrows' 'arrowheads' 'dots') translatedNoop.
  	self addStandardVocabulary: (SymbolListType new symbols: #(lines arrows arrowheads dots); vocabularyName: #TrailStyle; yourself).
  	#('left to right' 'right to left' 'top to bottom' 'bottom to top') translatedNoop.
  	self addStandardVocabulary: (SymbolListType new symbols: #(leftToRight rightToLeft topToBottom bottomToTop); vocabularyName: #ListDirection; yourself).
  
  	#('top left' 'bottom right' 'center' 'justified') translatedNoop.
  	self addStandardVocabulary: (SymbolListType new symbols: #(topLeft bottomRight center justified); vocabularyName: #ListCentering; yourself).
  
  	#('center' 'top left' 'top right' 'bottom left' 'bottom right' 'top center' 'left center' 'right center' 'bottom center') translatedNoop.
  	self addStandardVocabulary: (SymbolListType new symbols: #(center topLeft topRight bottomLeft bottomRight topCenter leftCenter rightCenter bottomCenter
  );  vocabularyName: #CellPositioning; yourself).
  
  	#('none' 'local rect' 'local square' 'global rect' 'global square') translatedNoop.
  	self addStandardVocabulary: (SymbolListType new symbols: #(none localRect localSquare globalRect globalSquare); vocabularyName: #CellSpacing; yourself).
  
  	#('button down' 'while pressed' 'button up') translatedNoop.
  	self addStandardVocabulary: (SymbolListType new symbols: #(buttonDown whilePressed buttonUp); vocabularyName: #ButtonPhase; yourself).
  
  	#('rotate' 'do not rotate' 'flip left right' 'flip up down') translatedNoop.
  	self addStandardVocabulary: (SymbolListType new symbols: #(rotate #'do not rotate' #'flip left right' #'flip up down'); vocabularyName: #RotationStyle; yourself).
  
  	#('rigid' 'space fill' 'shrink wrap') translatedNoop.
  	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"
  
  	self addStandardVocabulary: (KedamaPatchType new vocabularyName: #Patch; yourself).
  	#('wrap' 'stick' 'bouncing') translatedNoop.
  	self addStandardVocabulary: (SymbolListType new symbols: #(wrap stick bouncing); vocabularyName: #EdgeMode; yourself).
  	#('log scale' 'linear' 'color') translatedNoop.
  	self addStandardVocabulary: (SymbolListType new symbols: #(logScale linear color); vocabularyName: #PatchDisplayMode; yourself).
  
+ 	#('left' 'right' 'top' 'bottom' 'top left' 'top right' 'bottom left' 'bottom right' center) translatedNoop.
+ 	self addStandardVocabulary: (SymbolListType new symbols: #(top #'top right' right #'bottom right' bottom #'bottom left' left #'top left' center); vocabularyName: #AttachmentEdge; yourself).
- 	#('left' 'right' 'top' 'bottom' 'topLeft' 'topRight' 'bottomLeft' 'bottomRight' 'center') translatedNoop.
- 	self addStandardVocabulary: (SymbolListType new symbols: #(top topRight right bottomRight bottom bottomLeft left topLeft center); vocabularyName: #AttachmentEdge; yourself).
  
  	"Vocabulary initialize"!

Item was added:
+ ----- Method: Vocabulary class>>typeChoicesForUserVariables (in category 'type vocabularies') -----
+ typeChoicesForUserVariables
+ 	"Answer a list of all user-choosable value types for variables."
+ 
+ 	| aList |
+ 	aList := #(Boolean Color CustomEvents Graphic  Number Patch Player Point ScriptName Sound String) asOrderedCollection.
+ 	(ActiveWorld notNil and:  [ActiveWorld isKedamaPresent not]) ifTrue:
+ 		[aList remove: #Patch ifAbsent: []].
+ 	Preferences allowEtoyUserCustomEvents ifFalse: [aList remove: #CustomEvents ifAbsent: []].
+ 	^ aList asSortedArray
+ 
+ "
+ Vocabulary typeChoicesForUserVariables
+ "!