DebugView.st
changeset 19132 e87d9411a94b
parent 19119 95b0262e78b4
child 19137 eae7930e1b9f
--- a/DebugView.st	Sun Sep 08 15:50:48 2019 +0200
+++ b/DebugView.st	Sun Sep 08 16:04:01 2019 +0200
@@ -5777,7 +5777,7 @@
     ].
 
     "/ code for a setter
-    (selector numArgs == 1
+    (selector argumentCount == 1
     and:[(selector endsWith:':')
     and:[receiversClass instVarNames includes:(selector copyButLast:1)]])
     ifTrue:[
@@ -5788,7 +5788,7 @@
     ].
 
     "/ code for a tester
-    (selector numArgs == 0
+    (selector argumentCount == 0
     and:[(selector startsWith:'is')
     and:[(Smalltalk classNamed:(selector copyFrom:3)) notNil ]])
     ifTrue:[
@@ -8486,7 +8486,7 @@
                 and:[ (actualContext lineNumber
                             between:definingNode firstLineNumber
                             and:definingNode lastLineNumber)
-                and:[ varIdx <= actualContext numArgs ] ]])
+                and:[ varIdx <= actualContext argumentCount ] ]])
                 ifTrue:[
                     aBlock value:(actualContext argAt:varIdx) value:'blockArg ',nmBold .
                     ^ self
@@ -9254,7 +9254,7 @@
             recIsException := (rec isExceptionCreator and:[recIsExceptionHandler])
         ].    
     ].
-    aContext numArgs > 0 ifTrue:[
+    aContext argumentCount > 0 ifTrue:[
         arg1 := aContext argAt:1.
         "/ to avoid firing/waiting lazys or futures,
         "/ and to avoid forwarding to bridges...