hg/stx-libtool: comparison DebugView.st

equal deleted inserted replaced

-:adbbcc25326f
+:6fb2176bf0fa
 Exception Signal
 Process
 "
 ! !
 !DebugView class methodsFor:'initialization'!
 initialize
 InitialNChainShown := 50.
 "/ DefaultDebuggerBackgroundColor := nil.
 "reinitialize after an image-restart"
 self newDebugger
 ! !
 !DebugView class methodsFor:'cleanup'!
 lowSpaceCleanup
 "in low memory situations, give up cached debuggers"
 "
 DebugView newDebugger
 "
 ! !
 !DebugView class methodsFor:'defaults'!
 defaultIcon
 "return the browsers default window icon"
 DefaultDebuggerBackgroundColor := StyleSheet at:#'debugView.viewBackgroundColor'
 "Modified: / 17.11.2001 / 17:31:42 / cg"
 ! !
 !DebugView class methodsFor:'ignoring halts'!
 haltIgnoreInformationFor:haltingMethod atLineNr:lineNrInHaltingMethod
 "the information (if any) about the ignore-state of a halt"
 "forget about all ignored halts"
 IgnoredHalts := nil.
 Smalltalk changed:#ignoredHalts.
 ! !
 !DebugView class methodsFor:'instance creation / entering'!
 enter
 "enter a debugger"
 aDebugger openOn:aProcess.
 ^ nil
 "Modified: 4.4.1997 / 16:22:36 / cg"
 ! !
 !DebugView class methodsFor:'menu specs'!
 breakPointMenuSpec
 "This resource specification was automatically generated
 (MenuItem
 label: 'Change Priority...'
 itemValue: doChangeProcessPriority
 )
 (MenuItem
+label: 'Inspect'
+itemValue: doInspectProcess
+)
+(MenuItem
 label: '-'
 )
 (MenuItem
 label: 'Abort'
 itemValue: doAbort
 nil
 nil
 )
 ! !
 !DebugView class methodsFor:'misc'!
 interestingContextFrom:aContext
 "return an interesting context to be shown in an error notifier.
 We move up the calling chain, skipping intermediate Signal
 "Created: / 17-11-2001 / 20:37:49 / cg"
 "Modified: / 08-07-2011 / 13:15:49 / cg"
 ! !
 !DebugView methodsFor:'basic'!
 enableDisableActions
 |m|
 sendButton turnOffWithoutRedraw.
 "Created: / 16.11.2001 / 17:36:18 / cg"
 ! !
 !DebugView methodsFor:'help'!
 flyByHelpDependsOnPositionIn:aView
 "subclasses where the help-text depends upon the pointer position might
 want to redefine this"
 ^ nil
 "Modified: 29.8.1995 / 23:38:54 / claus"
 "Modified: 4.3.1997 / 01:54:03 / cg"
 ! !
 !DebugView methodsFor:'initialization & release'!
 addToCurrentProject
 "ignored here"
 with:(osPidString ? ''))
 ].
 "Modified: / 06-07-2006 / 12:43:19 / cg"
 ! !
 !DebugView methodsFor:'interrupt handling'!
 contextInterrupt
 DebuggingDebugger == true ifTrue:[
 "Created: / 14-10-1996 / 12:53:39 / cg"
 "Modified: / 20-07-2012 / 15:26:26 / cg"
 ! !
 !DebugView methodsFor:'menu & button actions'!
 addBrowserBookmark
 "add a browser-bookmark for the selected contexts method"
 restart ifTrue:[
 self doRestart
 ]
 "Modified: / 23-03-2012 / 09:49:31 / cg"
+!
+doInspectProcess
+(inspectedProcess ? Processor activeProcess) inspect.
 !
 doMicroSend
 "single send; reenter with next message send"
 ]
 "Modified: / 19-07-2012 / 11:53:30 / cg"
 ! !
 !DebugView methodsFor:'menu & button actions-breakpoints'!
 addBreakpoint
 "add a breakpoint on the selected contexts method - if any"
 !
 stopIgnoringHalts
 self class stopIgnoringHalts
 ! !
 !DebugView methodsFor:'private'!
 abortAllIsHandled
 ^ AbortAllOperationWantedQuery query
 aBlock value:nmBold , ' is not in scope of selected context' value:nil.
 "Modified: / 18-01-2011 / 17:57:34 / cg"
 ! !
 !DebugView methodsFor:'private queries'!
 canBrowseClassHierarchy
 |m|
 !
 setOfHiddenCallingSelectors:aCollectionOfSymbols
 setOfHiddenCallingSelectors := aCollectionOfSymbols
 ! !
 !DebugView methodsFor:'private-breakpoints'!
 addIgnoredHaltForCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey forAll:aBoolean
 |haltingContext haltingMethod lineNrOfHalt|
 ^ ignoreBreakpoints
 "Created: / 17.11.2001 / 18:20:16 / cg"
 ! !
 !DebugView methodsFor:'private-cache handling'!
 cacheMyself
 "remember myself for next debug session"
 ].
 "Modified: 31.7.1997 / 21:20:11 / cg"
 ! !
 !DebugView methodsFor:'private-code view'!
 codeAspect
 ^ SyntaxHighlighter codeAspectMethod
 "Created: / 27-07-2011 / 13:07:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 27-07-2012 / 22:20:27 / cg"
 ! !
 !DebugView methodsFor:'private-context handling'!
 contextListEntryFor:aContext
 ^ Error
 "Created: / 17-11-2001 / 19:34:20 / cg"
 "Modified: / 27-07-2012 / 17:26:54 / cg"
 ! !
 !DebugView methodsFor:'private-control loop'!
 controlLoop
 "this is a kludge:
 start a dispatchloop which exits when
 catchBlock := nil.
 "Created: / 24-11-1995 / 20:33:45 / cg"
 "Modified: / 26-09-2012 / 15:03:39 / cg"
 ! !
 !DebugView methodsFor:'user interaction'!
 checkIfCodeIsReallyModified
 |source|
 "Created: / 14-08-1997 / 20:15:00 / cg"
 "Modified: / 05-10-2011 / 11:55:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 23-07-2012 / 12:23:49 / cg"
 ! !
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'accessing'!
 ignoreCount:something
 ignoreCount := something.
 !
 ignoreUntilShiftKeyPressed:aBoolean
 ignoreUntilShiftKeyPressed := aBoolean.
 "Created: / 27-01-2012 / 11:35:23 / cg"
 ! !
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'misc'!
 decrementIgnoreCount
 ignoreCount notNil ifTrue:[
 ignoreCount > 0 ifTrue:[
 ignoreCount := ignoreCount - 1
 ]
 ]
 ! !
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'!
 printConditionOn:aStream
 ignoreUntilShiftKeyPressed == true ifTrue:[
 "Modified: / 27-01-2012 / 11:43:10 / cg"
 "Created: / 06-03-2012 / 12:41:10 / cg"
 ! !
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'queries'!
 haltIgnoredInfoString
 "some string describing why and how this halt is ignored;
 nil if not ignored"
 ^ true
 "Modified: / 27-01-2012 / 11:36:01 / cg"
 ! !
 !DebugView::IgnoredHalt methodsFor:'accessing'!
 method
 |m|
 lineNumber := lineNumberArg.
 "Modified: / 08-05-2011 / 10:28:41 / cg"
 ! !
 !DebugView::IgnoredHalt methodsFor:'printing'!
 printOn:aStream
 |method|
 self printConditionOn:aStream.
 "Modified: / 27-07-2012 / 23:04:42 / cg"
 ! !
 !DebugView::IgnoredHalt methodsFor:'queries'!
 isActive
 "true if this ignore-entry is still active"
 "/ Transcript show:'is same; ignored: '; showCR:self isHaltIgnored.
 ^ self isHaltIgnored
 ! !
 !DebugView::IgnoredBreakpoint methodsFor:'accessing'!
 parameter
 ^ parameter
 !
 parameter:something
 parameter := something.
 ! !
 !DebugView::IgnoredBreakpoint methodsFor:'printing'!
 printOn:aStream
 aStream nextPutAll:'Ignore breakpoint:#', parameter.
 self printConditionOn:aStream.
 "Created: / 06-03-2012 / 12:42:10 / cg"
 ! !
 !DebugView::IgnoredBreakpoint methodsFor:'queries'!
 isForBreakpointWithParameter
 ^ true
 ^ paramArg = parameter
 "Created: / 06-03-2012 / 14:36:21 / cg"
 ! !
 !DebugView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.579 2013-03-28 15:04:49 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.581 2013-04-16 16:20:09 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.579 2013-03-28 15:04:49 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.581 2013-04-16 16:20:09 cg Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'

branch	jv
changeset 12682	6fb2176bf0fa
parent 12650	e0f607754b9a
parent 12671	9124b4453947
child 12807	ba8c5416aa28