open a ticket. Your changes are neat. Stef On Nov 13, 2009, at 6:29 PM, Cédrick Béler wrote:

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><TimeProfileBrowser-selectedMessage.st><TimeProfileBrowser class-helpMessage.st>_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project