--- a/MiniDebugger.st Thu Feb 20 14:00:17 2014 +0100
+++ b/MiniDebugger.st Thu Feb 20 14:10:30 2014 +0100
@@ -652,7 +652,11 @@
].
(cmd == $i) ifTrue:[
- MiniInspector openOn:(dot receiver).
+ (commandArg ? '') withoutSeparators notEmpty ifTrue:[
+ MiniInspector openOn:(Parser evaluate:commandArg).
+ ] ifFalse:[
+ MiniInspector openOn:(dot receiver).
+ ].
^ false
].
@@ -991,41 +995,41 @@
showValidCommandHelp
'valid commands:
- c ...... continue
- s ...... step
- t ...... trace (continue with trace)
- a [id] abort (i.e. raise abort signal) in (current) process
- T [id] terminate (current) process
- W [id] stop (current) process
- R [id] resume (current) process
- Q [id] quick terminate (current) process - no unwinds or cleanup
+ c ........ continue
+ s ........ step
+ t ........ trace (continue with trace)
+ a [id] ... abort (i.e. raise abort signal) in (current) process
+ T [id] ... terminate (current) process
+ W [id] ... stop (current) process
+ R [id] ... resume (current) process
+ Q [id] ... quick terminate (current) process - no unwinds or cleanup
- p ...... list processes ("P" for full list)
- w [id] walkback (of process with id)
- b [id] full (VM) backtrace (more detail)
- B ...... backtrace of all other processes
+ p ........ list processes ("P" for full list)
+ w [id] ... walkback (of current/process with id)
+ b [id] ... full (VM) backtrace with more detail
+ B ........ backtrace of all other processes
- U ...... unwrap all traced/breakpointed methods
- D ...... disable all line breakpoints
- h [-/+] disable/enable halts
- g ...... collect all garbage
- g 2 .... collect all garbage & reclaim symbols
- g 3 .... collect all garbage, reclaim symbols and compress
+ U ........ unwrap all traced/breakpointed methods
+ D ........ disable all line breakpoints
+ h [-/+] .. disable/enable halts
+ g ........ collect all garbage
+ g 2 ...... collect all garbage & reclaim symbols
+ g 3 ...... collect all garbage, reclaim symbols and compress
- S ...... save snapshot into "crash.img"
- C ...... save session changes to a separate change file
- x ...... exit Smalltalk ("X" to exit with core dump)
+ S ........ save snapshot into "crash.img"
+ C ........ save session changes to a separate change file
+ x ........ exit Smalltalk ("X" to exit with core dump)
- . ...... print dot (the current context)
- - ...... move dot up (sender)
- + ...... move dot down (called context)
- l ...... list dot''s method source around PC ("L" for full list)
+ . ........ print dot (the current context)
+ - ........ move dot up (sender)
+ + ........ move dot down (called context)
+ l ........ list dot''s method source around PC ("L" for full list)
- r ...... receiver (in dot) printString
- i ...... inspect receiver (in dot)
- I ...... interpreter (expression evaluator)
- e expr evaluate expression & print result ("E" to not print)
- ? c [p] help on class c (selectors matching p)
+ r ........ receiver (in dot) printString
+ i [expr] . inspect expression (or receiver in dot)
+ I ........ interpreter (expression evaluator)
+ e expr ... evaluate expression & print result ("E" to not print)
+ ? c [p] .. help on class c (selectors matching p)
' errorPrintCR.
(XWorkstation notNil and:[ Screen default isKindOf:XWorkstation ]) ifTrue:[
@@ -1034,7 +1038,7 @@
Display initializeFor:''localhost:0''.
Display startDispatch.
NewLauncher openOnDevice:Display.
- <empty line>
+ #exit
then enter "c" to continue; a NewLauncher should pop up soon.
' errorPrintCR
]
@@ -1045,10 +1049,10 @@
!MiniDebugger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.98 2014-02-20 13:00:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.99 2014-02-20 13:10:30 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.98 2014-02-20 13:00:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.99 2014-02-20 13:10:30 cg Exp $'
! !