|
|
I was asking about how to trace some until top procedure
Now I wish share my solution to all, just in case some need do know.
(HttpService on: 8080 named: 'Debug1')
onRequestDo: [ :httpRequest | HttpResponse fromString: 'SqueakRos
Greet You'.
self dpsTraceUntilRoot: httpRequest ];
start
'From SqueakLight|II of 31 May 2008 [latest update: #7198] on 31 July 2008
at 6:41:26 am'!
!Object methodsFor: 'error handling' stamp: 'edc 7/31/2008 06:39'!
dpsTraceUntilRoot: anObject
| reportString context count |
Transcript open.
reportString := (anObject respondsTo: #asString)
ifTrue: [anObject asString] ifFalse: [anObject printString].
(Smalltalk at: #Decompiler ifAbsent: [nil])
ifNil:
[Transcript cr; show: reportString]
ifNotNil:
[context := thisContext.
count := 1.
[Transcript cr.
Transcript show: count printString, ': '.
reportString notNil
ifTrue:
[Transcript show: context home class name
, '/' , context sender selector, ' (' , reportString , ')'.
context := context sender.
reportString := nil]
ifFalse:
[(context notNil and: [(context := context sender) notNil])
ifTrue: [Transcript show: context receiver class name , '/'
, context selector.
count := count + 1]].
context sender notNil]whileTrue]! !
I try to cook a micro image using Alejandro Reimondo technique into
SqueakLightII.
The goal is the micro image could greet to Firefox web browser and quit.
I afraid as size is 76 k on first try, can't be send here as attached
because is too big :=)
So thanks to all and wait Fenix ponga un Huevo (the Fenix laid an Egg).
Edgar
|
Locked
