in on-debugger-event we are only interested in main frame events

Author: darwin

resources/unpacked/devtools/front_end/dirac/dirac.js

@@ -215,6 +215,10 @@ Object.assign(window.dirac, (function () {
     return loadLazyDirac().then(() => window.dirac.hasDefaultContext());
   }
 
+  function getMainDebuggerModel(...args) {
+    return loadLazyDirac().then(() => window.dirac.getMainDebuggerModel(...args));
+  }
+
   function subscribeDebuggerEvents(...args) {
     return loadLazyDirac().then(() => window.dirac.subscribeDebuggerEvents(...args));
   }
@@ -277,6 +281,7 @@ Object.assign(window.dirac, (function () {
     hasCurrentContext: hasCurrentContext,
     evalInDefaultContext: evalInDefaultContext,
     hasDefaultContext: hasDefaultContext,
+    getMainDebuggerModel: getMainDebuggerModel,
     subscribeDebuggerEvents: subscribeDebuggerEvents,
     unsubscribeDebuggerEvents: unsubscribeDebuggerEvents,
     addConsoleMessageToMainTarget: addConsoleMessageToMainTarget,

resources/unpacked/devtools/front_end/dirac_lazy/dirac_lazy.js

@@ -128,6 +128,10 @@ Object.assign(window.dirac, (function() {
     evalInContext(lookupDefaultContext(), code, silent, callback);
   }
 
+  function getMainDebuggerModel() {
+    return SDK.targetManager.mainTarget().model(SDK.DebuggerModel);
+  }
+
   let debuggerEventsUnsubscribers = new Map();
 
   /**
@@ -911,6 +915,7 @@ Object.assign(window.dirac, (function() {
     hasCurrentContext: hasCurrentContext,
     evalInDefaultContext: evalInDefaultContext,
     hasDefaultContext: hasDefaultContext,
+    getMainDebuggerModel: getMainDebuggerModel,
     subscribeDebuggerEvents: subscribeDebuggerEvents,
     unsubscribeDebuggerEvents: unsubscribeDebuggerEvents,
     addConsoleMessageToMainTarget: addConsoleMessageToMainTarget,

resources/unpacked/devtools/front_end/externs.js

@@ -420,6 +420,10 @@ var dirac = {
     */
     hasDefaultContext: function() {},
 
+    /**
+     * @return {?SDK.DebuggerModel}
+     */
+    getMainDebuggerModel: function() {},
     /**
      * @param {?} callback
      * @return {boolean}

src/implant/dirac/implant/eval.cljs

@@ -64,6 +64,9 @@
     (eval-fn code)
     (error "window.dirac.codeAsString not found")))
 
+(defn get-main-debugger-model []
+  (ocall (get-dirac) "getMainDebuggerModel"))
+
 (defn subscribe-debugger-events! [f]
   (ocall (get-dirac) "subscribeDebuggerEvents" f))
 

src/implant/dirac/implant/intercom.cljs

@@ -314,11 +314,16 @@
 (declare go-react-on-global-object-cleared!)
 
 (defn on-debugger-event [type & args]
-  (log "on-debugger-event" type)
-  (case type
-    "GlobalObjectCleared" (let [handle-global-object-cleared (gfns/debounce go-react-on-global-object-cleared! 500)]
-                            (apply handle-global-object-cleared args))
-    true))
+  (let [event (first args)
+        debugger-model (oget event "data")
+        main-debugger-model (eval/get-main-debugger-model)]
+    ; we are only interested in main frame debugger events
+    (when (= debugger-model main-debugger-model)
+      (log "on-debugger-event" type args)
+      (case type
+        "GlobalObjectCleared" (let [handle-global-object-cleared (gfns/debounce go-react-on-global-object-cleared! 500)]
+                                (apply handle-global-object-cleared args))
+        true))))
 
 (defn subscribe-debugger-events! []
   (when-not *debugger-events-subscribed*