Patrick Rein uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-pre.839.mcz
==================== Summary ====================
Name: Tools-pre.839 Author: pre Time: 20 December 2018, 4:11:49.123699 pm UUID: 0f67ed36-954c-497e-83b4-9d41bd164416 Ancestors: Tools-eem.838
Categorizes uncategorized methods in Tools and moves one method to a Deprecated package
=============== Diff against Tools-eem.838 ===============
Item was changed: + ----- Method: BasicInspector>>inspect: (in category 'initialize-release') ----- - ----- Method: BasicInspector>>inspect: (in category 'as yet unclassified') ----- inspect: anObject "Initialize the receiver so that it is inspecting anObject. There is no current selection."
self initialize. object := anObject. selectionIndex := 0. contents := ''!
Item was changed: ----- Method: Browser>>aboutToStyle: (in category 'code pane') ----- aboutToStyle: aStyler "This is a notification that aStyler is about to re-style its text. Set the classOrMetaClass in aStyler, so that identifiers will be resolved correctly. Answer true to allow styling to proceed, or false to veto the styling" | type | self isModeStyleable ifFalse: [^false]. type := self editSelection. (#(newMessage editMessage editClass newClass) includes: type) ifFalse:[^false]. aStyler classOrMetaClass: ((type = #editClass or: [type = #newClass]) ifFalse:[self selectedClassOrMetaClass]). ^true!
Item was changed: ----- Method: Browser>>classListMenu:shifted: (in category 'class functions') ----- classListMenu: aMenu shifted: shifted "Set up the menu to apply to the receiver's class list, honoring the #shifted boolean" ^ self menu: aMenu for: #(classListMenu classListMenuShifted:) shifted: shifted. !
Item was changed: ----- Method: Browser>>fileOutClass (in category 'class functions') ----- fileOutClass "Print a description of the selected class onto a file whose name is the category name followed by .st."
+ Cursor write showWhile: - Cursor write showWhile: [self hasClassSelected ifTrue: [self selectedClass fileOut]]!
Item was changed: + ----- Method: CPUWatcher class>>current (in category 'singleton') ----- - ----- Method: CPUWatcher class>>current (in category 'as yet unclassified') ----- current ^CurrentCPUWatcher !
Item was changed: + ----- Method: CPUWatcher class>>currentWatcherProcess (in category 'accessing') ----- - ----- Method: CPUWatcher class>>currentWatcherProcess (in category 'as yet unclassified') ----- currentWatcherProcess ^CurrentCPUWatcher ifNotNil: [ CurrentCPUWatcher watcherProcess ] !
Item was changed: + ----- Method: CPUWatcher class>>dumpTallyOnTranscript (in category 'monitoring') ----- - ----- Method: CPUWatcher class>>dumpTallyOnTranscript (in category 'as yet unclassified') ----- dumpTallyOnTranscript self current ifNotNil: [ ProcessBrowser dumpTallyOnTranscript: self current tally ]!
Item was changed: + ----- Method: CPUWatcher class>>initialize (in category 'class initialization') ----- - ----- Method: CPUWatcher class>>initialize (in category 'as yet unclassified') ----- initialize "CPUWatcher initialize" Smalltalk addToStartUpList: self. Smalltalk addToShutDownList: self.!
Item was changed: + ----- Method: CPUWatcher class>>isMonitoring (in category 'monitoring') ----- - ----- Method: CPUWatcher class>>isMonitoring (in category 'as yet unclassified') ----- isMonitoring
^CurrentCPUWatcher notNil and: [ CurrentCPUWatcher isMonitoring ] !
Item was changed: + ----- Method: CPUWatcher class>>monitorPreferenceChanged (in category 'preferences') ----- - ----- Method: CPUWatcher class>>monitorPreferenceChanged (in category 'as yet unclassified') ----- monitorPreferenceChanged self cpuWatcherEnabled ifTrue: [ self startMonitoring ] ifFalse: [ self stopMonitoring ]!
Item was changed: + ----- Method: CPUWatcher class>>shutDown (in category 'system startup') ----- - ----- Method: CPUWatcher class>>shutDown (in category 'as yet unclassified') ----- shutDown self stopMonitoring.!
Item was changed: + ----- Method: CPUWatcher class>>startMonitoring (in category 'monitoring') ----- - ----- Method: CPUWatcher class>>startMonitoring (in category 'as yet unclassified') ----- startMonitoring "CPUWatcher startMonitoring"
^self startMonitoringPeriod: 20 rate: 100 threshold: 0.8!
Item was changed: + ----- Method: CPUWatcher class>>startMonitoringPeriod:rate:threshold: (in category 'monitoring') ----- - ----- Method: CPUWatcher class>>startMonitoringPeriod:rate:threshold: (in category 'as yet unclassified') ----- startMonitoringPeriod: pd rate: rt threshold: th "CPUWatcher startMonitoring"
CurrentCPUWatcher ifNotNil: [ ^CurrentCPUWatcher startMonitoring. ]. CurrentCPUWatcher := (self new) monitorProcessPeriod: pd sampleRate: rt; threshold: th; yourself. ^CurrentCPUWatcher !
Item was changed: + ----- Method: CPUWatcher class>>startUp (in category 'system startup') ----- - ----- Method: CPUWatcher class>>startUp (in category 'as yet unclassified') ----- startUp self monitorPreferenceChanged.!
Item was changed: + ----- Method: CPUWatcher class>>stopMonitoring (in category 'monitoring') ----- - ----- Method: CPUWatcher class>>stopMonitoring (in category 'as yet unclassified') ----- stopMonitoring "CPUWatcher stopMonitoring"
CurrentCPUWatcher ifNotNil: [ CurrentCPUWatcher stopMonitoring. ]. CurrentCPUWatcher := nil. !
Item was changed: + ----- Method: ChangedMessageSet class>>openFor: (in category 'opening') ----- - ----- Method: ChangedMessageSet class>>openFor: (in category 'as yet unclassified') ----- openFor: aChangeSet "Open up a ChangedMessageSet browser on the given change set; this is a conventional message-list browser whose message-list consists of all the methods in aChangeSet. After any method submission, the message list is refigured, making it plausibly dynamic"
| messageSet |
messageSet := aChangeSet changedMessageListAugmented select: [ :each | each isValid]. self openMessageList: messageSet name: 'Methods in Change Set ', aChangeSet name autoSelect: nil changeSet: aChangeSet!
Item was changed: + ----- Method: ChangedMessageSet class>>openMessageList:name:autoSelect:changeSet: (in category 'opening') ----- - ----- Method: ChangedMessageSet class>>openMessageList:name:autoSelect:changeSet: (in category 'as yet unclassified') ----- openMessageList: messageList name: labelString autoSelect: autoSelectString changeSet: aChangeSet | messageSet | messageSet := self messageList: messageList. messageSet changeSet: aChangeSet. messageSet autoSelectString: autoSelectString. ToolBuilder open: messageSet label: labelString.!
Item was changed: + ----- Method: FileList2 class>>hideSqueakletDirectoryBlock (in category 'blocks') ----- - ----- Method: FileList2 class>>hideSqueakletDirectoryBlock (in category 'as yet unclassified') ----- hideSqueakletDirectoryBlock ^[:dirName| (dirName sameAs: 'Squeaklets') not]!
Item was changed: + ----- Method: FileList2 class>>morphicView (in category 'morphic ui') ----- - ----- Method: FileList2 class>>morphicView (in category 'as yet unclassified') ----- morphicView ^ self morphicViewOnDirectory: FileDirectory default!
Item was changed: + ----- Method: FileList2 class>>projectOnlySelectionBlock (in category 'blocks') ----- - ----- Method: FileList2 class>>projectOnlySelectionBlock (in category 'as yet unclassified') ----- projectOnlySelectionBlock
^[ :entry :myPattern | entry isDirectory ifTrue: [ false ] ifFalse: [ #('*.pr' '*.pr.gz' '*.project') anySatisfy: [ :each | each match: entry name] ] ]!
Item was removed: - ----- Method: FileList2 class>>projectOnlySelectionMethod: (in category 'as yet unclassified') ----- - projectOnlySelectionMethod: incomingEntries - - self deprecated: 'use Project class>latestProjectVersionsFromFileEntries: instead'. - - ^Project latestProjectVersionsFromFileEntries: incomingEntries!
Item was changed: + ----- Method: FileList2 class>>selectionBlockForSuffixes: (in category 'blocks') ----- - ----- Method: FileList2 class>>selectionBlockForSuffixes: (in category 'as yet unclassified') ----- selectionBlockForSuffixes: anArray
^[ :entry :myPattern | entry isDirectory ifTrue: [ false ] ifFalse: [ anArray anySatisfy: [ :each | each match: entry name] ] ]!
Item was changed: + ----- Method: FileList2>>specsForImageViewer (in category 'user interface') ----- - ----- Method: FileList2>>specsForImageViewer (in category 'as yet unclassified') ----- specsForImageViewer
^{self serviceSortByName. self serviceSortByDate. self serviceSortBySize }!
Item was changed: ----- Method: Inspector>>dragFromFieldList: (in category 'drag-drop') ----- dragFromFieldList: index selectionIndex = index ifFalse: [self toggleIndex: index]. ^self selection!
Item was changed: + ----- Method: InspectorBrowser>>fieldList (in category 'accessing') ----- - ----- Method: InspectorBrowser>>fieldList (in category 'as yet unclassified') ----- fieldList fieldList ifNotNil: [^ fieldList]. ^ (fieldList := super fieldList)!
Item was changed: + ----- Method: InspectorBrowser>>msgAccept:from: (in category 'messages') ----- - ----- Method: InspectorBrowser>>msgAccept:from: (in category 'as yet unclassified') ----- msgAccept: newText from: editor | category | category := msgListIndex = 0 ifTrue: [ClassOrganizer default] ifFalse: [object class organization categoryOfElement: (msgList at: msgListIndex)]. ^ (object class compile: newText classified: category notifying: editor) ~~ nil!
Item was changed: + ----- Method: InspectorBrowser>>msgListIndex (in category 'messages') ----- - ----- Method: InspectorBrowser>>msgListIndex (in category 'as yet unclassified') ----- msgListIndex ^msgListIndex!
Item was changed: + ----- Method: InspectorBrowser>>msgListIndex: (in category 'messages') ----- - ----- Method: InspectorBrowser>>msgListIndex: (in category 'as yet unclassified') ----- msgListIndex: anInteger "A selection has been made in the message pane"
msgListIndex := anInteger. self changed: #msgText.!
Item was changed: + ----- Method: InspectorBrowser>>msgPaneMenu:shifted: (in category 'messages') ----- - ----- Method: InspectorBrowser>>msgPaneMenu:shifted: (in category 'as yet unclassified') ----- msgPaneMenu: aMenu shifted: shifted ^ aMenu labels: 'find... (f) find again (g) find and replace... do/replace again (j) undo (z) redo (Z) copy (c) cut (x) paste (v) do it (d) print it (p) inspect it (i) accept (s) cancel (l)' lines: #(0 4 6 9 12) selections: #(find findAgain findReplace again undo redo copySelection cut paste doIt printIt inspectIt accept cancel)!
Item was changed: + ----- Method: InspectorBrowser>>msgText (in category 'messages') ----- - ----- Method: InspectorBrowser>>msgText (in category 'as yet unclassified') ----- msgText msgListIndex = 0 ifTrue: [^ nil]. ^ object class sourceCodeAt: (msgList at: msgListIndex)!
Item was changed: + ----- Method: InspectorBrowser>>step (in category 'stepping and presenter') ----- - ----- Method: InspectorBrowser>>step (in category 'as yet unclassified') ----- step | list fieldString msg | (list := super fieldList) = fieldList ifFalse: [fieldString := selectionIndex > 0 ifTrue: [fieldList at: selectionIndex] ifFalse: [nil]. fieldList := list. selectionIndex := fieldList indexOf: fieldString. self changed: #fieldList. self changed: #selectionIndex]. list := msgList. msgList := nil. "force recomputation" list = self msgList ifFalse: [msg := msgListIndex > 0 ifTrue: [list at: msgListIndex] ifFalse: [nil]. msgListIndex := msgList indexOf: msg. self changed: #msgList. self changed: #msgListIndex]. super step!
Item was changed: + ----- Method: InspectorBrowser>>wantsSteps (in category 'accessing') ----- - ----- Method: InspectorBrowser>>wantsSteps (in category 'as yet unclassified') ----- wantsSteps ^ true!
Item was changed: + ----- Method: MethodFinder class>>methodFor: (in category 'utility') ----- - ----- Method: MethodFinder class>>methodFor: (in category 'as yet unclassified') ----- methodFor: dataAndAnswers "Return a Squeak expression that computes these answers. (This method is called by the comment in the bottom pane of a MethodFinder. Do not delete this method.)"
| resultOC resultString | resultOC := (self new) load: dataAndAnswers; findMessage. resultString := String streamContents: [:strm | resultOC do: [:exp | strm nextPut: $(; nextPutAll: exp; nextPut: $); space]]. ^ resultString!
Item was changed: + ----- Method: OrderedCollectionInspector>>fieldList (in category 'accessing') ----- - ----- Method: OrderedCollectionInspector>>fieldList (in category 'as yet unclassified') ----- fieldList object ifNil: [ ^ OrderedCollection new]. ^ self baseFieldList , (self objectSize <= (self i1 + self i2) ifTrue: [(1 to: self objectSize) collect: [:i | i printString]] ifFalse: [(1 to: self i1) , (self objectSize - (self i2-1) to: self objectSize) collect: [:i | i printString]]) " OrderedCollection new inspect (OrderedCollection newFrom: #(3 5 7 123)) inspect (OrderedCollection newFrom: (1 to: 1000)) inspect "!
Item was changed: + ----- Method: OrderedCollectionInspector>>objectSize (in category 'private') ----- - ----- Method: OrderedCollectionInspector>>objectSize (in category 'as yet unclassified') ----- objectSize "Single stepping through a debugger might observe the state of an OrderedCollection instance after creation by basicNew but before initiialisation. Thus 'object size' throws a DNU error for arithmetic on a nil value that needs to be handled here."
^ [ object size ] on: Error do: [ 0 ] !
Item was changed: + ----- Method: OrderedCollectionInspector>>replaceSelectionValue: (in category 'selecting') ----- - ----- Method: OrderedCollectionInspector>>replaceSelectionValue: (in category 'as yet unclassified') ----- replaceSelectionValue: anObject "The receiver has a list of variables of its inspected object. One of these is selected. The value of the selected variable is set to the value, anObject."
(selectionIndex - 2) <= object class instSize ifTrue: [^ super replaceSelectionValue: anObject]. object at: self selectedObjectIndex put: anObject!
Item was changed: + ----- Method: OrderedCollectionInspector>>selectedObjectIndex (in category 'selecting') ----- - ----- Method: OrderedCollectionInspector>>selectedObjectIndex (in category 'as yet unclassified') ----- selectedObjectIndex "Answer the index of the inspectee's collection that the current selection refers to."
| basicIndex | basicIndex := selectionIndex - 2 - object class instSize. ^ (object size <= (self i1 + self i2) or: [basicIndex <= self i1]) ifTrue: [basicIndex] ifFalse: [object size - (self i1 + self i2) + basicIndex]!
Item was changed: + ----- Method: OrderedCollectionInspector>>selection (in category 'selecting') ----- - ----- Method: OrderedCollectionInspector>>selection (in category 'as yet unclassified') ----- selection "The receiver has a list of variables of its inspected object. One of these is selected. Answer the value of the selected variable."
(selectionIndex - 2) <= object class instSize ifTrue: [^ super selection]. ^ object at: self selectedObjectIndex!
Item was changed: + ----- Method: ToolIconHelp class>>abstract (in category 'icons') ----- - ----- Method: ToolIconHelp class>>abstract (in category 'as yet unclassified') ----- abstract
^ 'This method is abstract.' !
Item was changed: + ----- Method: ToolIconHelp class>>arrowDown (in category 'icons') ----- - ----- Method: ToolIconHelp class>>arrowDown (in category 'as yet unclassified') ----- arrowDown
^ 'This method is overriden by another method.'!
Item was changed: + ----- Method: ToolIconHelp class>>arrowUp (in category 'icons') ----- - ----- Method: ToolIconHelp class>>arrowUp (in category 'as yet unclassified') ----- arrowUp
^ 'This method overrides a super method.'!
Item was changed: + ----- Method: ToolIconHelp class>>arrowUpAndDown (in category 'icons') ----- - ----- Method: ToolIconHelp class>>arrowUpAndDown (in category 'as yet unclassified') ----- arrowUpAndDown
^ 'This method overrides and is overridden by other methods.'!
Item was changed: + ----- Method: ToolIconHelp class>>blank (in category 'icons') ----- - ----- Method: ToolIconHelp class>>blank (in category 'as yet unclassified') ----- blank
^ ''!
Item was changed: + ----- Method: ToolIconHelp class>>breakpoint (in category 'icons') ----- - ----- Method: ToolIconHelp class>>breakpoint (in category 'as yet unclassified') ----- breakpoint
^ 'This method contains a breakpoint.'!
Item was changed: + ----- Method: ToolIconHelp class>>flag (in category 'icons') ----- - ----- Method: ToolIconHelp class>>flag (in category 'as yet unclassified') ----- flag
^ 'This method needs attention of some kind.' !
Item was changed: + ----- Method: ToolIconHelp class>>helpTexts (in category 'accessing') ----- - ----- Method: ToolIconHelp class>>helpTexts (in category 'as yet unclassified') ----- helpTexts
^ HelpTexts ifNil: [HelpTexts := IdentityDictionary new]!
Item was changed: + ----- Method: ToolIconHelp class>>iconHelpNamed: (in category 'icons help') ----- - ----- Method: ToolIconHelp class>>iconHelpNamed: (in category 'as yet unclassified') ----- iconHelpNamed: aSymbol
^ (self respondsTo: aSymbol) ifTrue: [self helpTexts at: aSymbol ifAbsentPut: [self perform: aSymbol]] ifFalse: [String empty] !
Item was changed: + ----- Method: ToolIconHelp class>>no (in category 'icons') ----- - ----- Method: ToolIconHelp class>>no (in category 'as yet unclassified') ----- no
^ 'This method should not be implemented.' !
Item was changed: + ----- Method: ToolIconHelp class>>notOverridden (in category 'icons') ----- - ----- Method: ToolIconHelp class>>notOverridden (in category 'as yet unclassified') ----- notOverridden
^ 'This method is abstract and has not been overridden.' !
Item was changed: + ----- Method: ToolIconHelp class>>primitive (in category 'icons') ----- - ----- Method: ToolIconHelp class>>primitive (in category 'as yet unclassified') ----- primitive
^ 'This method implements a primitive.'!