Hi, I made these small changes so that "profile it" open a TimeProfiler.
I also added a documentation method that is displayed when no method are
selected. This doc need review. It's a summary of the chapter on profiling
to explain the spy results.
Last remark, there is still a bug when selecting for instance the line
**Tree** (see below). I think that was happening too before but right now I
can't check (need to leave, I'll open a ticket later if needed).
hope it helps...
--
Cédrick
VM: unix - i686 - linux-gnu - Pharo0.1 of 16 May 2008 [latest update:
#10074]
Image: Pharo1.0rc1 [Latest update: #10492]
SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /home/cedrick/Bureau/Poker/prjPoker-02nov
Trusted Dir /home/cedrick/Bureau/Poker/prjPoker-02nov/secure
Untrusted Dir /home/cedrick/Bureau/Poker/prjPoker-02nov/My Squeak
TimeProfileBrowser(Object)>>doesNotUnderstand: #allInstVarNames
Receiver: a TimeProfileBrowser
Arguments and temporary variables:
aMessage: allInstVarNames
exception: MessageNotUnderstood:
TimeProfileBrowser>>allInstVarNames
resumeValue: nil
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(3666) a
PluggableListMorph(1080) a...etc...
contents: nil
currentCompiledMethod: nil
contentsSymbol: #source
systemOrganizer: ('AST-Core-Matching')
('AST-Core-Nodes')
('AST-Core-Parser')
(...etc...
classOrganizer: nil
metaClassOrganizer: nil
systemCategoryListIndex: 0
classListIndex: 0
messageCategoryListIndex: 0
messageListIndex: 2
editSelection: #editMessage
metaClassIndicated: false
messageList: an OrderedCollection(' - 14 tallies, 37 msec.' ''
'**Tree**' '----...etc...
autoSelectString: nil
growable: nil
selectedClass: Integer
selectedSelector: #factorial
block: MessageSend(#runBlock:pollingEvery: -> a
TimeProfileBrowser)
tally: a MessageTally
SHParserST80>>initializeInstanceVariables
Receiver: a SHParserST80
Arguments and temporary variables:
Receiver's instance variables:
classOrMetaClass: a TimeProfileBrowser
source: '"Choose a method to see its implementation
****General information...etc...
workspace: nil
arguments: a Dictionary()
sourcePosition: 700
currentToken: nil
currentTokenFirst: Character space
temporaries: a Dictionary()
instanceVariables: a Set()
errorBlock: nil
currentTokenSourcePosition: nil
blockDepth: 0
bracketDepth: 0
ranges: an OrderedCollection(a SHRange)
environment: Smalltalk
SHParserST80>>parse:
Receiver: a SHParserST80
Arguments and temporary variables:
isAMethod: true
Receiver's instance variables:
classOrMetaClass: a TimeProfileBrowser
source: '"Choose a method to see its implementation
****General information...etc...
workspace: nil
arguments: a Dictionary()
sourcePosition: 700
currentToken: nil
currentTokenFirst: Character space
temporaries: a Dictionary()
instanceVariables: a Set()
errorBlock: nil
currentTokenSourcePosition: nil
blockDepth: 0
bracketDepth: 0
ranges: an OrderedCollection(a SHRange)
environment: Smalltalk
SHParserST80>>parse
Receiver: a SHParserST80
Arguments and temporary variables:
Receiver's instance variables:
classOrMetaClass: a TimeProfileBrowser
source: '"Choose a method to see its implementation
****General information...etc...
workspace: nil
arguments: a Dictionary()
sourcePosition: 700
currentToken: nil
currentTokenFirst: Character space
temporaries: a Dictionary()
instanceVariables: a Set()
errorBlock: nil
currentTokenSourcePosition: nil
blockDepth: 0
bracketDepth: 0
ranges: an OrderedCollection(a SHRange)
environment: Smalltalk
SHParserST80>>rangesIn:classOrMetaClass:workspace:environment:
Receiver: a SHParserST80
Arguments and temporary variables:
sourceString: '"Choose a method to see its implementation
****General infor...etc...
aBehaviour: a TimeProfileBrowser
aWorkspace: nil
anEnvironmentOrNil: nil
Receiver's instance variables:
classOrMetaClass: a TimeProfileBrowser
source: '"Choose a method to see its implementation
****General information...etc...
workspace: nil
arguments: a Dictionary()
sourcePosition: 700
currentToken: nil
currentTokenFirst: Character space
temporaries: a Dictionary()
instanceVariables: a Set()
errorBlock: nil
currentTokenSourcePosition: nil
blockDepth: 0
bracketDepth: 0
ranges: an OrderedCollection(a SHRange)
environment: Smalltalk
SHTextStylerST80>>rangesIn:setWorkspace:
Receiver: a SHTextStylerST80
Arguments and temporary variables:
aText: a Text for '"Choose a method to see its implementation
****General i...etc...
aBoolean: true
Receiver's instance variables:
sem: nil
backgroundProcess: nil
text: a Text for '"Choose a method to see its implementation
****General in...etc...
monitor: a Monitor
view: a PluggableShoutMorph(625)
stylingEnabled: true
classOrMetaClass: a TimeProfileBrowser
workspace: nil
font: a LogicalFont
familyName: DejaVu Sans Mono
emphasis: nil
pointSize: 9
...etc...
parser: a SHParserST80
formatAssignments: true
environment: nil
sourceMap: nil
processedSourceMap: nil
pixelHeight: 13.33333333333333
SHTextStylerST80>>privateStyle:
Receiver: a SHTextStylerST80
Arguments and temporary variables:
aText: a Text for '"Choose a method to see its implementation
ParagraphEditor-tallySelection.st
Description: Binary data
TimeProfileBrowser-selectedMessage.st
Description: Binary data
TimeProfileBrowser class-helpMessage.st
Description: Binary data
_______________________________________________ Pharo-project mailing list [email protected] http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
