Just out of curiosity: why guineaPig ?
Best -Tobias
Am 2011-05-29 um 17:51 schrieb commits@source.squeak.org:
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]
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]ifFalse: [[anObject DoItIn: evalContext] newProcess].
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 commits@source.squeak.org:
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]
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]ifFalse: [[anObject DoItIn: evalContext] newProcess].
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
squeak-dev@lists.squeakfoundation.org