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