--- a/DebugView.st Tue Jan 22 12:24:41 2013 +0000
+++ b/DebugView.st Wed Jan 30 11:15:09 2013 +0000
@@ -122,6 +122,7 @@
"
! !
+
!DebugView class methodsFor:'initialization'!
initialize
@@ -140,6 +141,7 @@
self newDebugger
! !
+
!DebugView class methodsFor:'cleanup'!
lowSpaceCleanup
@@ -173,6 +175,7 @@
"
! !
+
!DebugView class methodsFor:'defaults'!
defaultIcon
@@ -216,6 +219,7 @@
"Modified: / 17.11.2001 / 17:31:42 / cg"
! !
+
!DebugView class methodsFor:'ignoring halts'!
haltIgnoreInformationFor:haltingMethod atLineNr:lineNrInHaltingMethod
@@ -356,6 +360,7 @@
Smalltalk changed:#ignoredHalts.
! !
+
!DebugView class methodsFor:'instance creation / entering'!
enter
@@ -471,13 +476,13 @@
'DebugView [error]: cannot open debugger' errorPrintCR.
'DebugView [error]: Exception: ' errorPrint. aString errorPrintCR.
mayProceed ifTrue:[
- (Dialog confirm:'Error/Breakpoint cought.\\Press Continue or Abort.' withCRs
+ (Dialog confirm:'Error/Breakpoint caught.\\Press Continue or Abort.' withCRs
yesLabel:'Continue' noLabel:'Abort')
ifTrue:[
^ nil
].
] ifFalse:[
- self information:'Error cought.\\Press OK to abort the operation.' withCRs.
+ self information:'Error caught.\\Press OK to abort the operation.' withCRs.
].
AbortOperationRequest raise.
"not reached"
@@ -619,6 +624,7 @@
"Modified: 4.4.1997 / 16:22:36 / cg"
! !
+
!DebugView class methodsFor:'menu specs'!
menuSpec
@@ -1123,6 +1129,7 @@
)
! !
+
!DebugView class methodsFor:'misc'!
interestingContextFrom:aContext
@@ -1382,6 +1389,7 @@
"Modified: / 08-07-2011 / 13:15:49 / cg"
! !
+
!DebugView methodsFor:'basic'!
enableDisableActions
@@ -2155,6 +2163,7 @@
"Created: / 16.11.2001 / 17:36:18 / cg"
! !
+
!DebugView methodsFor:'help'!
flyByHelpDependsOnPositionIn:aView
@@ -2352,6 +2361,7 @@
"Modified: 4.3.1997 / 01:54:03 / cg"
! !
+
!DebugView methodsFor:'initialization & release'!
addToCurrentProject
@@ -3030,6 +3040,7 @@
"Modified: / 06-07-2006 / 12:43:19 / cg"
! !
+
!DebugView methodsFor:'interrupt handling'!
contextInterrupt
@@ -3689,6 +3700,7 @@
"Modified: / 20-07-2012 / 15:26:26 / cg"
! !
+
!DebugView methodsFor:'menu & button actions'!
addBrowserBookmark
@@ -5091,6 +5103,7 @@
"Modified: / 19-07-2012 / 11:53:30 / cg"
! !
+
!DebugView methodsFor:'menu & button actions-breakpoints'!
addBreakpoint
@@ -5325,6 +5338,7 @@
self class stopIgnoringHalts
! !
+
!DebugView methodsFor:'private'!
abortAllIsHandled
@@ -5777,6 +5791,7 @@
"Modified: / 18-01-2011 / 17:57:34 / cg"
! !
+
!DebugView methodsFor:'private queries'!
canBrowseClassHierarchy
@@ -5900,6 +5915,7 @@
setOfHiddenCallingSelectors := aCollectionOfSymbols
! !
+
!DebugView methodsFor:'private-breakpoints'!
addIgnoredHaltForCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey forAll:aBoolean
@@ -5981,6 +5997,7 @@
"Created: / 17.11.2001 / 18:20:16 / cg"
! !
+
!DebugView methodsFor:'private-cache handling'!
cacheMyself
@@ -6051,6 +6068,7 @@
"Modified: 31.7.1997 / 21:20:11 / cg"
! !
+
!DebugView methodsFor:'private-code view'!
codeAspect
@@ -6060,6 +6078,7 @@
"Modified: / 27-07-2012 / 22:20:27 / cg"
! !
+
!DebugView methodsFor:'private-context handling'!
contextListEntryFor:aContext
@@ -6834,6 +6853,7 @@
"Modified: / 27-07-2012 / 17:26:54 / cg"
! !
+
!DebugView methodsFor:'private-control loop'!
controlLoop
@@ -6945,7 +6965,7 @@
"/ ignore exceptions which say they explicitly have to be ignored
"/
ex catchInDebugger ifTrue:[
- 'DebugView [info]: ',signal printString,'-signal in debugger cought for close' infoPrintCR.
+ 'DebugView [info]: ',signal printString,'-signal in debugger caught for close' infoPrintCR.
self destroy.
ex reject
].
@@ -7012,7 +7032,7 @@
default:#cancel.
].
answer == #debug ifTrue:[
- 'DebugView [info]: cought exception - debugging' infoPrintCR.
+ 'DebugView [info]: caught exception - debugging' infoPrintCR.
Debugger
enterUnconditional:(ex suspendedContext)
withMessage:'Error in debugger: ' , eMsg
@@ -7023,7 +7043,7 @@
'DebugView [info]: ignored exception - proceeding' infoPrintCR.
ex proceed.
].
- 'DebugView [info]: cought exception - returning' infoPrintCR.
+ 'DebugView [info]: caught exception - returning' infoPrintCR.
ex return.
] do:[
"/ make certain that sub-debuggers, inspectors etc.
@@ -7043,6 +7063,7 @@
"Modified: / 26-09-2012 / 15:03:39 / cg"
! !
+
!DebugView methodsFor:'user interaction'!
checkIfCodeIsReallyModified
@@ -7338,6 +7359,8 @@
"filter keyboard events for popUp variable value display.
Return true, if I have eaten the event"
+ <resource: #keyboard (#CodeCompletion )>
+
|evView focusView key rawKey inCodeView|
evView := anEvent view.
@@ -7892,6 +7915,7 @@
"Modified: / 23-07-2012 / 12:23:49 / cg"
! !
+
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'accessing'!
ignoreCount:something
@@ -7908,6 +7932,7 @@
"Created: / 27-01-2012 / 11:35:23 / cg"
! !
+
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'misc'!
decrementIgnoreCount
@@ -7918,6 +7943,7 @@
]
! !
+
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'!
printConditionOn:aStream
@@ -7945,6 +7971,7 @@
"Created: / 06-03-2012 / 12:41:10 / cg"
! !
+
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'queries'!
haltIgnoredInfoString
@@ -8021,6 +8048,7 @@
"Modified: / 27-01-2012 / 11:36:01 / cg"
! !
+
!DebugView::IgnoredHalt methodsFor:'accessing'!
method
@@ -8056,6 +8084,7 @@
"Modified: / 08-05-2011 / 10:28:41 / cg"
! !
+
!DebugView::IgnoredHalt methodsFor:'printing'!
printOn:aStream
@@ -8077,6 +8106,7 @@
"Modified: / 27-07-2012 / 23:04:42 / cg"
! !
+
!DebugView::IgnoredHalt methodsFor:'queries'!
isActive
@@ -8106,6 +8136,7 @@
^ self isHaltIgnored
! !
+
!DebugView::IgnoredBreakpoint methodsFor:'accessing'!
parameter
@@ -8116,6 +8147,7 @@
parameter := something.
! !
+
!DebugView::IgnoredBreakpoint methodsFor:'printing'!
printOn:aStream
@@ -8125,6 +8157,7 @@
"Created: / 06-03-2012 / 12:42:10 / cg"
! !
+
!DebugView::IgnoredBreakpoint methodsFor:'queries'!
isForBreakpointWithParameter
@@ -8139,18 +8172,20 @@
"Created: / 06-03-2012 / 14:36:21 / cg"
! !
+
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.569 2012/12/12 14:47:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.571 2013-01-24 15:23:31 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/DebugView.st,v 1.569 2012/12/12 14:47:19 cg Exp §'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.571 2013-01-24 15:23:31 cg Exp $'
!
version_SVN
- ^ '$Id: DebugView.st 8083 2013-01-14 11:48:37Z vranyj1 $'
+ ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §'
! !
+
DebugView initialize!