[Pkg] The Trunk: Tools-pre.839.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Dec 20 15:11:54 UTC 2018
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.'!
More information about the Packages
mailing list