Ignore:
Timestamp:
Mar 28, 2012, 9:21:34 PM (7 years ago)
Author:
rme
Message:

Restarts window fix from trunk.

Location:
release/1.8/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.8/source

  • release/1.8/source/cocoa-ide/cocoa-listener.lisp

    r15263 r15284  
    603603    (make-instance 'sequence-window-controller
    604604      :sequence (cdr (ccl::bt.restarts context))
     605      :before-close-function #'(lambda (wc)
     606                                 (declare (ignore wc))
     607                                 (setf (car (ccl::bt.restarts context)) nil))
    605608      :result-callback #'(lambda (r)
     609                           (execute-in-gui #'(lambda ()
     610                                               (#/close (car (ccl::bt.restarts context)))))
    606611                           (process-interrupt
    607612                            process
Note: See TracChangeset for help on using the changeset viewer.