David T. Lewis uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-dtl.548.mcz
==================== Summary ====================
Name: Graphics-dtl.548
Author: dtl
Time: 25 November 2023, 2:53:54.464042 pm
UUID: 4b57488c-75bd-4f20-9472-67acb703e6f4
Ancestors: Graphics-ct.547
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 Graphics-ct.547 ===============
Item was removed:
- ----- Method: Quadrangle class>>exampleInViewer (in category 'instance creation') -----
- exampleInViewer
- "Create a sample Quadrangle and open a Viewer on it"
-
- (self region: (100@100 extent: 100@50) borderWidth: (1 + (6 atRandom)) borderColor: Color black insideColor: (Color perform: #(green red blue yellow) atRandom)) beViewed
-
- "Quadrangle exampleInViewer"!
David T. Lewis uploaded a new version of Help-Squeak-CorePackages to project The Trunk:
http://source.squeak.org/trunk/Help-Squeak-CorePackages-dtl.6.mcz
==================== Summary ====================
Name: Help-Squeak-CorePackages-dtl.6
Author: dtl
Time: 25 November 2023, 2:54:28.774751 pm
UUID: 8aef30fd-c83a-4162-9812-a7cfc0410feb
Ancestors: Help-Squeak-CorePackages-tpr.5
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 Help-Squeak-CorePackages-tpr.5 ===============
Item was removed:
- ----- Method: SqueakFurtherCorePackagesHelp class>>etoys (in category 'pages') -----
- etoys
- "This method was automatically generated. Edit it using:"
- "SqueakFurtherCorePackagesHelp edit: #etoys"
- ^HelpTopic
- title: 'Etoys'
- contents:
- 'The Etoys package includes all of the Etoys system with extended Morphs, a tile-based scripting language user interface and interpreter, and several applications based upon that.
-
- This package also includes the Kedama project which provides means to create simulations with large numbers of objects based on a columnar storage.!!' readStream nextChunkText!
David T. Lewis uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-dtl.1537.mcz
==================== Summary ====================
Name: Kernel-dtl.1537
Author: dtl
Time: 25 November 2023, 2:55:01.075199 pm
UUID: f749c283-2e40-4db8-978d-c518f827cc37
Ancestors: Kernel-eem.1536
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 Kernel-eem.1536 ===============
Item was removed:
- ----- Method: Object>>adaptedToWorld: (in category 'scripting') -----
- adaptedToWorld: aWorld
- "If I refer to a world or a hand, return the corresponding items in the new world."
- ^self!
Item was removed:
- ----- Method: Object>>beViewed (in category 'testing') -----
- beViewed
- "Open up a viewer on the receiver. The Presenter is invited to decide just how to present this viewer"
-
- self uniqueNameForReference. "So the viewer will have something nice to refer to"
- self presenter viewObject: self!
Item was removed:
- ----- Method: Object>>belongsToUniClass (in category 'testing') -----
- belongsToUniClass
- "Answer whether the receiver belongs to a uniclass. For the moment (this is not entirely satisfactory) this is precisely equated with the classname ending in a digit"
-
- ^ self class isUniClass!
Item was removed:
- ----- Method: Object>>costumes (in category 'testing') -----
- costumes
- "Answer a list of costumes associated with the receiver. The appearance of this method in class Object serves only as a backstop, probably only transitionally"
-
- ^ nil!
Item was removed:
- ----- Method: Object>>defaultFloatPrecisionFor: (in category 'scripting') -----
- defaultFloatPrecisionFor: aGetSelector
- "Answer a number indicating the default float precision to be used in a numeric readout for which the receiver is the model."
-
- ^ 1!
Item was removed:
- ----- Method: Object>>evaluateUnloggedForSelf: (in category 'scripting') -----
- evaluateUnloggedForSelf: aCodeString
-
- ^Compiler evaluate:
- aCodeString
- for: self!
Item was removed:
- ----- Method: Object>>isPlayer (in category 'testing') -----
- isPlayer
- ^false!
Item was removed:
- ----- Method: Object>>isPrimitiveCostume (in category 'testing') -----
- isPrimitiveCostume
- "True for primitive costumes in Tweak. Added here because a Tweak override in DisplayScanner was merged into trunk for maintainability"
- ^false!
Item was removed:
- ----- Method: Object>>isScriptEditorMorph (in category 'testing') -----
- isScriptEditorMorph
- ^false!
Item was removed:
- ----- Method: Object>>isUniversalTiles (in category 'macpal') -----
- isUniversalTiles
- "Return true if I (my world) uses universal tiles. This message can be called in places where the current World is not known, such as when writing out a project. For more information about the project-writing subtlety addressed by this protocol, kindly contact Ted Kaehler."
-
- ^ Preferences universalTiles!
Item was removed:
- ----- Method: Object>>methodInterfacesForCategory:inVocabulary:limitClass: (in category 'scripting') -----
- methodInterfacesForCategory: aCategorySymbol inVocabulary: aVocabulary limitClass: aLimitClass
- "Return a list of methodInterfaces for the receiver in the given category, given a vocabulary. aCategorySymbol is the inherent category symbol, not necessarily the wording as expressed in the vocabulary."
-
- | categorySymbol |
- categorySymbol := aCategorySymbol asSymbol.
-
- (categorySymbol == ScriptingSystem nameForInstanceVariablesCategory) ifTrue: [
- "user-defined instance variables"
- ^ self methodInterfacesForInstanceVariablesCategoryIn: aVocabulary].
- (categorySymbol == ScriptingSystem nameForScriptsCategory) ifTrue: [
- "user-defined scripts"
- ^ self methodInterfacesForScriptsCategoryIn: aVocabulary].
- "all others"
- ^ self usableMethodInterfacesIn: (aVocabulary methodInterfacesInCategory: categorySymbol
- forInstance: self
- ofClass: self class
- limitClass: aLimitClass)
- !
Item was removed:
- ----- Method: Object>>methodInterfacesForInstanceVariablesCategoryIn: (in category 'scripting') -----
- methodInterfacesForInstanceVariablesCategoryIn: aVocabulary
- "Return a collection of methodInterfaces for the instance-variables category. The vocabulary parameter, at present anyway, is not used. And for non-players, the method is at present vacuous in any case"
-
- ^ OrderedCollection new!
Item was removed:
- ----- Method: Object>>methodInterfacesForScriptsCategoryIn: (in category 'scripting') -----
- methodInterfacesForScriptsCategoryIn: aVocabulary
- "Answer a list of method interfaces for the category #scripts, as seen in a viewer or other tool. The vocabulary argument is not presently used. Also, at present, only Players really do anyting interesting here."
-
- ^ OrderedCollection new!
Item was removed:
- ----- Method: Object>>presenter (in category 'accessing') -----
- presenter
- "Answer the presenter object associated with the receiver. For morphs, there is in effect a clear containment hierarchy of presenters (accessed via their association with PasteUpMorphs); for arbitrary objects the hook is simply via the current world, at least at present."
-
- ^ self currentWorld presenter!
Item was removed:
- ----- Method: Object>>renameInternal: (in category 'testing') -----
- renameInternal: newName
- "Change the internal name (because of a conflict) but leave the external name unchanged. Change Player class name, but do not change the names that appear in tiles. Any object that might be pointed to in the References dictionary might get this message sent to it upon reload"
-
- ^ nil "caller will renameTo:. new name may be different"!
Item was removed:
- ----- Method: Object>>scriptPerformer (in category 'macpal') -----
- scriptPerformer
-
- ^ self
- !
Item was removed:
- ----- Method: Object>>selfWrittenAsIll (in category 'scripting') -----
- selfWrittenAsIll
-
- ^self!
Item was removed:
- ----- Method: Object>>selfWrittenAsIm (in category 'scripting') -----
- selfWrittenAsIm
-
- ^self!
Item was removed:
- ----- Method: Object>>selfWrittenAsMe (in category 'scripting') -----
- selfWrittenAsMe
-
- ^self!
Item was removed:
- ----- Method: Object>>selfWrittenAsMy (in category 'scripting') -----
- selfWrittenAsMy
-
- ^self!
Item was removed:
- ----- Method: Object>>selfWrittenAsThis (in category 'scripting') -----
- selfWrittenAsThis
-
- ^self!
Item was removed:
- ----- Method: Object>>slotInfo (in category 'macpal') -----
- slotInfo
- "Answer a list of slot-information objects. Initally only provides useful info for players"
-
- ^ Dictionary new!
Item was removed:
- ----- Method: Object>>veryDeepCopySibling (in category 'copying') -----
- veryDeepCopySibling
- "Do a complete tree copy using a dictionary. Substitute a clone of oldPlayer for the root. Normally, a Player or non systemDefined object would have a new class. We do not want one this time. An object in the tree twice, is only copied once. All references to the object in the copy of the tree will point to the new copy."
-
- | copier new |
- copier := DeepCopier new: self initialDeepCopierSize.
- copier newUniClasses: false.
- new := self veryDeepCopyWith: copier.
- copier mapUniClasses.
- copier references associationsDo: [:assoc |
- assoc value veryDeepFixupWith: copier].
- copier fixDependents.
- ^ new!
David T. Lewis uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-dtl.283.mcz
==================== Summary ====================
Name: Network-dtl.283
Author: dtl
Time: 25 November 2023, 2:57:19.332774 pm
UUID: 23b8dbc2-ede3-4297-929e-1b8dbcd3261e
Ancestors: Network-ul.282
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 Network-ul.282 ===============
Item was removed:
- ----- Method: SuperSwikiServer>>matchingEntries: (in category 'for real') -----
- matchingEntries: criteria
- | result |
- eToyUserListUrl ifNil:[^self entries].
- result := self sendToSwikiProjectServer: {
- 'action: listmatchingprojects'.
- } , criteria.
- (result beginsWith: 'OK')
- ifFalse: [^self entries]. "If command not supported"
- ^self parseListEntries: result!
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!