DebugView.st
branchjv
changeset 12401 4714b9640528
parent 12314 0cbf76168690
parent 12333 a2387c6089f4
child 12431 9f0c59c742d5
--- 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!