`DebugView`: when overriding a method, use the same protocol as overidden method jv
authorJan Vrany <jan.vrany@labware.com>
Tue, 15 Nov 2022 18:32:52 +0000
branchjv
changeset 19641 536881930470
parent 19640 9001c87bacbe
child 19642 cba345697a7d
`DebugView`: when overriding a method, use the same protocol as overidden method
DebugView.st
--- a/DebugView.st	Wed Sep 07 15:27:34 2022 +0100
+++ b/DebugView.st	Tue Nov 15 18:32:52 2022 +0000
@@ -2,7 +2,7 @@
  COPYRIGHT (c) 1989 by Claus Gittinger
  COPYRIGHT (c) 2015-2017 Jan Vrany
  COPYRIGHT (c) 2017 Patrik Svestka
- COPYRIGHT (c) 2021 LabWare
+ COPYRIGHT (c) 2021-2022 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -93,7 +93,7 @@
  COPYRIGHT (c) 1989 by Claus Gittinger
  COPYRIGHT (c) 2015-2017 Jan Vrany
  COPYRIGHT (c) 2017 Patrik Svestka
- COPYRIGHT (c) 2021 LabWare
+ COPYRIGHT (c) 2021-2022 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -5337,6 +5337,13 @@
         code := '%1\' , haltStmtDef
     ].
 
+    "/ If we're overriding existing method (subclass responsibility), take
+    "/ method protocol from it
+    implClass notNil ifTrue: [ 
+        cat := (implClass compiledMethodAt: selector) category
+    ].
+
+
     self
         codeAccept:(code bindWith:proto with:selector with:varName with:argName) withCRs
         inClass:receiversClass
@@ -5350,6 +5357,7 @@
     ]
 
     "Modified: / 23-03-2012 / 09:49:31 / cg"
+    "Modified: / 15-11-2022 / 14:54:51 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 doGotoApplicationActionMethod