A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-ul.357.mcz ==================== Summary ==================== Name: Tools-ul.357 Author: ul Time: 29 May 2011, 7:51:18.372 pm UUID: 9b7529a4-621a-0440-b9aa-3d99daefe41e Ancestors: Tools-ul.356 Don't install doits into MethodDictionaries. =============== Diff against Tools-ul.356 =============== Item was changed: ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') ----- debug: aCompiledMethod receiver: anObject in: evalContext + | guineaPig debugger context | + guineaPig := [ + anObject "Use primitive 188, because primitive 189 escapes the debugger somehow." + withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) + executeMethod: aCompiledMethod ] newProcess. - | selector guineaPig debugger context | - selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:]. - anObject class addSelectorSilently: selector withMethod: aCompiledMethod. - guineaPig := evalContext isNil - ifTrue: [[anObject DoIt] newProcess] - ifFalse: [[anObject DoItIn: evalContext] newProcess]. context := guineaPig suspendedContext. debugger := Debugger new process: guineaPig controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess]) ifTrue: [ScheduledControllers activeController] ifFalse: [nil]) context: context. debugger openFullNoSuspendLabel: 'Debug it'. [debugger interruptedContext method == aCompiledMethod] + whileFalse: [debugger send]! - whileFalse: [debugger send]. - anObject class basicRemoveSelector: selector! |
Just out of curiosity:
why guineaPig ? Best -Tobias Am 2011-05-29 um 17:51 schrieb [hidden email]: > A new version of Tools was added to project The Inbox: > http://source.squeak.org/inbox/Tools-ul.357.mcz > > ==================== Summary ==================== > > Name: Tools-ul.357 > Author: ul > Time: 29 May 2011, 7:51:18.372 pm > UUID: 9b7529a4-621a-0440-b9aa-3d99daefe41e > Ancestors: Tools-ul.356 > > Don't install doits into MethodDictionaries. > > =============== Diff against Tools-ul.356 =============== > > Item was changed: > ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') ----- > debug: aCompiledMethod receiver: anObject in: evalContext > > + | guineaPig debugger context | > + guineaPig := [ > + anObject "Use primitive 188, because primitive 189 escapes the debugger somehow." > + withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) > + executeMethod: aCompiledMethod ] newProcess. > - | selector guineaPig debugger context | > - selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:]. > - anObject class addSelectorSilently: selector withMethod: aCompiledMethod. > - guineaPig := evalContext isNil > - ifTrue: [[anObject DoIt] newProcess] > - ifFalse: [[anObject DoItIn: evalContext] newProcess]. > context := guineaPig suspendedContext. > debugger := Debugger new > process: guineaPig > controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess]) > ifTrue: [ScheduledControllers activeController] > ifFalse: [nil]) > context: context. > debugger openFullNoSuspendLabel: 'Debug it'. > [debugger interruptedContext method == aCompiledMethod] > + whileFalse: [debugger send]! > - whileFalse: [debugger send]. > - anObject class basicRemoveSelector: selector! > > |
In English, "guinea pig" is used as generic term for "lab test animal". Other languages use other idioms, like the German "Versuchskaninchen" (literally, "trial bunny").
- Bert - On 29.05.2011, at 20:47, Tobias Pape wrote: > Just out of curiosity: > why guineaPig ? > > Best > -Tobias > > Am 2011-05-29 um 17:51 schrieb [hidden email]: > >> A new version of Tools was added to project The Inbox: >> http://source.squeak.org/inbox/Tools-ul.357.mcz >> >> ==================== Summary ==================== >> >> Name: Tools-ul.357 >> Author: ul >> Time: 29 May 2011, 7:51:18.372 pm >> UUID: 9b7529a4-621a-0440-b9aa-3d99daefe41e >> Ancestors: Tools-ul.356 >> >> Don't install doits into MethodDictionaries. >> >> =============== Diff against Tools-ul.356 =============== >> >> Item was changed: >> ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') ----- >> debug: aCompiledMethod receiver: anObject in: evalContext >> >> + | guineaPig debugger context | >> + guineaPig := [ >> + anObject "Use primitive 188, because primitive 189 escapes the debugger somehow." >> + withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) >> + executeMethod: aCompiledMethod ] newProcess. >> - | selector guineaPig debugger context | >> - selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:]. >> - anObject class addSelectorSilently: selector withMethod: aCompiledMethod. >> - guineaPig := evalContext isNil >> - ifTrue: [[anObject DoIt] newProcess] >> - ifFalse: [[anObject DoItIn: evalContext] newProcess]. >> context := guineaPig suspendedContext. >> debugger := Debugger new >> process: guineaPig >> controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess]) >> ifTrue: [ScheduledControllers activeController] >> ifFalse: [nil]) >> context: context. >> debugger openFullNoSuspendLabel: 'Debug it'. >> [debugger interruptedContext method == aCompiledMethod] >> + whileFalse: [debugger send]! >> - whileFalse: [debugger send]. >> - anObject class basicRemoveSelector: selector! >> >> > > |
Am 2011-05-29 um 22:06 schrieb Bert Freudenberg: > In English, "guinea pig" is used as generic term for "lab test animal". Other languages use other idioms, like the German "Versuchskaninchen" (literally, "trial bunny"). > Oh, well. Thanks :) Best -Tobias |
Free forum by Nabble | Edit this page |