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!
packages@lists.squeakfoundation.org