Changeset 6707

Timestamp:

Jun 12, 2007, 12:50:33 PM (17 years ago)

Author:

Gary Byers

Message:

Close restarts window when exiting break loop.

File:

• branches/ide-1.0/ccl/examples/cocoa-backtrace.lisp (modified) (1 diff)

branches/ide-1.0/ccl/examples/cocoa-backtrace.lisp

@@ -233 +233 @@
         (setf (cocoa-listener-process-backtrace-contexts proc)
               (cdr (cocoa-listener-process-backtrace-contexts proc)))
-        (let* ((window (bt.dialog context)))
-          (when window
-            (#/performSelectorOnMainThread:withObject:waitUntilDone: window (@selector #/close)  +null-ptr+ t)))))))
+        (let* ((btwindow (prog1 (bt.dialog context)
+                           (setf (bt.dialog context) nil)))
+               (restartswindow
+                (prog1 (car (bt.restarts context))
+                           (setf (bt.restarts context) nil))))
+          (when btwindow
+            (#/performSelectorOnMainThread:withObject:waitUntilDone: btwindow (@selector #/close)  +null-ptr+ t))
+          (when restartswindow
+            (#/performSelectorOnMainThread:withObject:waitUntilDone: restartswindow (@selector #/close)  +null-ptr+ t)))))))