David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-dtl.1240.mcz
==================== Summary ====================
Name: Tools-dtl.1240 Author: dtl Time: 25 November 2023, 3:00:44.687355 pm UUID: 2e9ba404-07c3-423a-8f5a-000907dbefc3 Ancestors: Tools-ct.1239
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 Tools-ct.1239 ===============
Item was removed: - PluggableTextMorph subclass: #BrowserCommentTextMorph - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tools-Browser'! - - !BrowserCommentTextMorph commentStamp: '<historical>' prior: 0! - I am a PluggableTextMorph that knows enough to make myself invisible when necessary.!
Item was removed: - ----- Method: BrowserCommentTextMorph>>hideOrShowPane (in category 'displaying') ----- - hideOrShowPane - (self model editSelection == #editClass) - ifTrue: [ self showPane ] - ifFalse: [ self hidePane ]!
Item was removed: - ----- Method: BrowserCommentTextMorph>>hidePane (in category 'displaying') ----- - hidePane - | win | - self window ifNotNil: [:window | window removePaneSplitters]. - - self lowerPane ifNotNil: - [ :lp | - lp layoutFrame bottomFraction: self layoutFrame bottomFraction. - lp layoutFrame bottomOffset: SystemWindow borderWidth negated]. - win := self window ifNil: [ ^self ]. - self delete. - win updatePanesFromSubmorphs. - win addPaneSplitters!
Item was removed: - ----- Method: BrowserCommentTextMorph>>lowerPane (in category 'accessing') ----- - lowerPane - "Answer the AlignmentMorph that I live beneath" - ^self valueOfProperty: #browserLowerPane!
Item was removed: - ----- Method: BrowserCommentTextMorph>>noteNewOwner: (in category 'updating') ----- - noteNewOwner: win - super noteNewOwner: win. - self setProperty: #browserWindow toValue: win. - win ifNil: [ ^self ]. - win setProperty: #browserClassCommentPane toValue: self. - self setProperty: #browserLowerPane - toValue: (win submorphThat: [ :m | - m isAlignmentMorph - and: [ m layoutFrame bottomFraction notNil - and: [ m layoutFrame bottomFraction >= self layoutFrame topFraction ]]] - ifNone: [])!
Item was removed: - ----- Method: BrowserCommentTextMorph>>showPane (in category 'displaying') ----- - showPane - owner ifNil: [ - | win | - win := self window ifNil: [ ^self ]. - win addMorph: self fullFrame: self layoutFrame. - win updatePanesFromSubmorphs ]. - - self lowerPane ifNotNil: [ :lp | lp layoutFrame bottomFraction: self layoutFrame topFraction ]. - - self window ifNotNil: [:win | win addPaneSplitters]!
Item was removed: - ----- Method: BrowserCommentTextMorph>>update: (in category 'updating') ----- - update: anAspect - super update: anAspect. - anAspect == #editSelection ifFalse: [ ^self ]. - self hideOrShowPane!
Item was removed: - ----- Method: BrowserCommentTextMorph>>window (in category 'accessing') ----- - window - ^self owner ifNil: [ self valueOfProperty: #browserWindow ].!
Item was removed: - ----- Method: ChangeList>>buildMorphicCodePaneWith: (in category 'menu actions') ----- - buildMorphicCodePaneWith: editString - - | codePane | - - codePane := AcceptableCleanTextMorph - on: self - text: #contents - accept: #contents: - readSelection: #contentsSelection - menu: #codePaneMenu:shifted:. - codePane font: Preferences standardCodeFont. - editString ifNotNil: [ - codePane editString: editString. - codePane hasUnacceptedEdits: true - ]. - ^codePane - !
Item was removed: - ----- Method: CodeHolder>>installTextualCodingPane (in category 'diffs') ----- - installTextualCodingPane - "Install text into the code pane" - - | aWindow codePane aPane boundsToUse | - (aWindow := self containingWindow) ifNil: [self error: 'where''s that window?']. - codePane := self codeTextMorph ifNil: [self error: 'no code pane']. - aPane := self buildMorphicCodePaneWith: nil. - boundsToUse := (codePane bounds origin- (1@1)) corner: (codePane owner bounds corner " (1@1"). - aWindow replacePane: codePane with: aPane. - aPane vResizing: #spaceFill; hResizing: #spaceFill; borderWidth: 0. - aPane bounds: boundsToUse. - aPane owner clipSubmorphs: false. - - self contentsChanged!
Item was removed: - ----- Method: CodeHolder>>restoreTextualCodingPane (in category 'diffs') ----- - restoreTextualCodingPane - "If the receiver is showing tiles, restore the textual coding pane" - - contentsSymbol == #tiles ifTrue: - [contentsSymbol := #source. - self installTextualCodingPane]!
Item was removed: - ----- Method: Inspector>>addEtoysItemsTo: (in category 'menu - construction') ----- - addEtoysItemsTo: aMenu - - aMenu addLine; addTranslatedList: { - { 'tile for this value (t)'. [self selectionOrObject tearOffTile] }. - { 'viewer for this value (v)'. [self selectionOrObject beViewed] }}.!
Item was removed: - CodeHolder subclass: #MethodHolder - instanceVariableNames: 'methodClass methodSelector' - classVariableNames: '' - poolDictionaries: '' - category: 'Tools-Base'!
Item was removed: - ----- Method: MethodHolder>>addModelMenuItemsTo:forMorph:hand: (in category 'menu') ----- - addModelMenuItemsTo: aCustomMenu forMorph: aMorph hand: aHandMorph - aCustomMenu addLine. - aCustomMenu add: 'whose script is this?' translated target: self action: #identifyScript - !
Item was removed: - ----- Method: MethodHolder>>changeMethodSelectorTo: (in category 'miscellaneous') ----- - changeMethodSelectorTo: aSelector - "Change my method selector as noted. Reset currentCompiledMethod" - - methodSelector := aSelector. - currentCompiledMethod := methodClass compiledMethodAt: aSelector ifAbsent: [nil]!
Item was removed: - ----- Method: MethodHolder>>compiledMethod (in category 'miscellaneous') ----- - compiledMethod - - ^ methodClass compiledMethodAt: methodSelector!
Item was removed: - ----- Method: MethodHolder>>contents (in category 'contents') ----- - contents - "Answer the contents, with due respect for my contentsSymbol" - - contents := methodClass sourceCodeAt: methodSelector ifAbsent: ['']. - currentCompiledMethod := methodClass compiledMethodAt: methodSelector ifAbsent: [nil]. - - self showingDecompile ifTrue: [^ self decompiledSourceIntoContents]. - self showingDocumentation ifTrue: [^ self commentContents]. - ^ contents := self sourceStringPrettifiedAndDiffed asText makeSelectorBoldIn: methodClass!
Item was removed: - ----- Method: MethodHolder>>contents:notifying: (in category 'contents') ----- - contents: input notifying: aController - | selector | - (selector := methodClass newParser parseSelector: input asText) ifNil: - [self inform: 'Sorry - invalid format for the - method name and arguments -- cannot accept.'. - ^ false]. - - selector == methodSelector ifFalse: - [self inform: - 'You cannot change the name of - the method here -- it must continue - to be ', methodSelector. - ^ false]. - - selector := methodClass - compile: input asText - classified: self selectedMessageCategoryName - notifying: aController. - selector == nil ifTrue: [^ false]. - contents := input asString copy. - currentCompiledMethod := methodClass compiledMethodAt: methodSelector. - ^ true!
Item was removed: - ----- Method: MethodHolder>>identifyScript (in category 'miscellaneous') ----- - identifyScript - | msg aPlayer | - msg := methodClass isUniClass - ifTrue: - [aPlayer := methodClass someInstance. - aPlayer costume - ifNotNil: - ['This holds code for a script - named ', methodSelector, ' belonging - to an object named ', aPlayer externalName] - ifNil: - ['This formerly held code for a script - named ', methodSelector, ' for a Player - who once existed but now is moribund.']] - ifFalse: - ['This holds code for the method - named ', methodSelector, ' - for class ', methodClass name]. - self inform: msg!
Item was removed: - ----- Method: MethodHolder>>methodClass:methodSelector: (in category 'miscellaneous') ----- - methodClass: aClass methodSelector: aSelector - methodClass := aClass. - methodSelector := aSelector. - currentCompiledMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil]!
Item was removed: - ----- Method: MethodHolder>>selectedClass (in category 'selection') ----- - selectedClass - ^ methodClass theNonMetaClass!
Item was removed: - ----- Method: MethodHolder>>selectedClassOrMetaClass (in category 'selection') ----- - selectedClassOrMetaClass - ^ methodClass!
Item was removed: - ----- Method: MethodHolder>>selectedMessageCategoryName (in category 'selection') ----- - selectedMessageCategoryName - ^ methodClass organization categoryOfElement: methodSelector!
Item was removed: - ----- Method: MethodHolder>>selectedMessageName (in category 'selection') ----- - selectedMessageName - ^ methodSelector!
Item was removed: - ----- Method: MethodHolder>>versions (in category 'miscellaneous') ----- - versions - "Return a VersionsBrowser (containing a list of ChangeRecords) of older versions of this method." - - ^ VersionsBrowser new scanVersionsOf: self compiledMethod - class: self selectedClass - meta: methodClass isMeta - category: self selectedMessageCategoryName - "(classOfMethod whichCategoryIncludesSelector: selectorOfMethod)" - selector: methodSelector!
Item was removed: - ----- Method: ObjectExplorer>>viewerForValue (in category 'menus - actions') ----- - viewerForValue - - self object beViewed.!