Changeset 12232


Ignore:
Timestamp:
Jun 8, 2009, 8:13:14 AM (10 years ago)
Author:
gb
Message:

app delegate validates/implements listener break loop commands, forwards
to top listener. (ticket:151).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/app-delegate.lisp

    r12133 r12232  
    202202                                       (fresh-line)))))))
    203203
     204(objc:defmethod (#/exitBreak: :void) ((self lisp-application-delegate) sender)
     205  (let* ((top-listener (#/topListener hemlock-listener-document)))
     206    (unless (%null-ptr-p top-listener)
     207      (#/exitBreak: top-listener sender))))
     208
     209(objc:defmethod (#/continue: :void) ((self lisp-application-delegate) sender)
     210  (let* ((top-listener (#/topListener hemlock-listener-document)))
     211    (unless (%null-ptr-p top-listener)
     212      (#/continue: top-listener sender))))
     213
     214(objc:defmethod (#/restarts: :void) ((self lisp-application-delegate) sender)
     215  (let* ((top-listener (#/topListener hemlock-listener-document)))
     216    (unless (%null-ptr-p top-listener)
     217      (#/restarts: top-listener sender))))
     218
     219(objc:defmethod (#/backtrace: :void) ((self lisp-application-delegate) sender)
     220  (let* ((top-listener (#/topListener hemlock-listener-document)))
     221    (unless (%null-ptr-p top-listener)
     222      (#/backtrace: top-listener sender))))
     223
     224(objc:defmethod (#/validateMenuItem: #>BOOL) ((self lisp-application-delegate) item)
     225  (let* ((action (#/action item))
     226         (top-listener (#/topListener hemlock-listener-document)))
     227    (unless (%null-ptr-p top-listener)     
     228      (cond ((or (eql action (@selector "exitBreak:"))
     229                 (eql action (@selector "continue:"))
     230                 (eql action (@selector "restarts:"))
     231                 (eql action (@selector "backtrace:")))
     232             (#/validateMenuItem: top-listener item))))))
     233
     234
Note: See TracChangeset for help on using the changeset viewer.