David T. Lewis uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-dtl.88.mcz
==================== Summary ====================
Name: Protocols-dtl.88 Author: dtl Time: 25 November 2023, 2:57:42.163542 pm UUID: 7a05094b-2aea-490c-8430-42b3f207f4db Ancestors: Protocols-ct.87
Move methods to Etoys if they are referenced only by the full Etoys image, based on Marcel's unload-etoys.33.cs Etoys removal script. Reference squeak-dev 29-Aug-2023 Let's discuss the future of Etoys in Squeak 6.1 (and beyond)
=============== Diff against Protocols-ct.87 ===============
Item was removed: - ----- Method: BooleanType>>initialValueForASlotFor: (in category 'initial value') ----- - initialValueForASlotFor: aPlayer - "Answer the value to give initially to a newly created slot of the given type in the given player" - ^ true!
Item was removed: - ----- Method: ColorType>>initialValueForASlotFor: (in category 'initial value') ----- - initialValueForASlotFor: aPlayer - "Answer the value to give initially to a newly created slot of the given type in the given player" - - ^ Color random!
Item was removed: - ----- Method: DataType>>initialValueForASlotFor: (in category 'initial value') ----- - initialValueForASlotFor: aPlayer - "Answer the value to give initially to a newly created slot of the given type in the given player" - - ^ 'no value'!
Item was removed: - ----- Method: GraphicType>>initialValueForASlotFor: (in category 'initial value') ----- - initialValueForASlotFor: aPlayer - "Answer the value to give initially to a newly created slot of the given type in the given player" - - ^ ScriptingSystem formAtKey: #PaintTab!
Item was removed: - ----- Method: InstanceBrowser>>viewViewee (in category 'menu commands') ----- - viewViewee - "Open a viewer on the object I view" - - objectViewed beViewed!
Item was removed: - ----- Method: NumberType>>initialValueForASlotFor: (in category 'initial value') ----- - initialValueForASlotFor: aPlayer - "Answer the value to give initially to a newly created slot of the given type in the given player" - - ^ (1 to: 9) atRandom!
Item was removed: - ----- Method: PasteUpMorph>>abandonVocabularyPreference (in category '*Protocols') ----- - abandonVocabularyPreference - "Remove any memory of a preferred vocabulary in the project" - - | standardViewers aVocabulary | - self removeProperty: #currentVocabularySymbol. - - standardViewers := (self submorphsSatisfying: [:m | m isKindOf: ViewerFlapTab]) collect: - [:m | m referent firstSubmorph]. - aVocabulary := Vocabulary vocabularyNamed: #eToy. - standardViewers do: - [:m | ((m valueOfProperty: #currentVocabularySymbol ifAbsent: [nil]) == #Vector) ifTrue: - [m switchToVocabulary: aVocabulary]] - - "ActiveWorld abandonVocabularyPreference"!
Item was removed: - ----- Method: PasteUpMorph>>installVectorVocabulary (in category '*Protocols') ----- - installVectorVocabulary - "Install the experimental Vector vocabulary as the default for the current project" - - | standardViewers aVocabulary | - self setProperty: #currentVocabularySymbol toValue: #Vector. - standardViewers := (self submorphsSatisfying: [:m | m isKindOf: ViewerFlapTab]) collect: - [:m | m referent firstSubmorph]. - aVocabulary := Vocabulary vocabularyNamed: #Vector. - standardViewers do: [:m | m switchToVocabulary: aVocabulary]!
Item was removed: - ----- Method: PasteUpMorph>>makeVectorUseConformToPreference (in category '*Protocols') ----- - makeVectorUseConformToPreference - "Make certain that the use of vectors in this project conforms to the current preference setting." - - | prefValue currentValue | - prefValue := Preferences useVectorVocabulary. - currentValue := self currentlyUsingVectorVocabulary. - prefValue ~~ currentValue ifTrue: - [currentValue - ifTrue: - [self abandonVocabularyPreference] - ifFalse: - [self installVectorVocabulary]]!
Item was removed: - ----- Method: PointType>>initialValueForASlotFor: (in category 'initialization') ----- - initialValueForASlotFor: aPlayer - "Answer the value to give initially to a newly created slot of the given type in the given player" - - ^ 0@0!
Item was removed: - ----- Method: SoundType>>initialValueForASlotFor: (in category 'initial value') ----- - initialValueForASlotFor: aPlayer - "Answer the value to give initially to a newly created slot of the given type in the given player" - - ^ 'croak'!
Item was removed: - ----- Method: StringType>>initialValueForASlotFor: (in category 'initial value') ----- - initialValueForASlotFor: aPlayer - "Answer the value to give initially to a newly created slot of the given type in the given player" - - ^ 'abc'!
Item was removed: - ----- Method: SymbolListType>>initialValueForASlotFor: (in category 'initial value') ----- - initialValueForASlotFor: aPlayer - "Answer the value to give initially to a newly created slot of the given type in the given player" - - ^ self choices first!
Item was removed: - ----- Method: Vocabulary>>isEToyVocabulary (in category 'queries') ----- - isEToyVocabulary - ^false!
packages@lists.squeakfoundation.org