/[mcclim]/mcclim/frames.lisp
ViewVC logotype

Diff of /mcclim/frames.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.83 by moore, Mon Nov 10 21:56:07 2003 UTC revision 1.84 by hefner1, Mon Nov 10 22:57:57 2003 UTC
# Line 499  input focus. This is a McCLIM extension. Line 499  input focus. This is a McCLIM extension.
499      frame))      frame))
500    
501  (defmethod disown-frame ((fm frame-manager) (frame application-frame))  (defmethod disown-frame ((fm frame-manager) (frame application-frame))
502      #+CLIM-MP
503    (let* ((t-l-s (frame-top-level-sheet frame))    (let* ((t-l-s (frame-top-level-sheet frame))
504           (queue (sheet-event-queue t-l-s)))           (queue (sheet-event-queue t-l-s)))
505      (when (typep queue 'port-event-queue)      (when (typep queue 'port-event-queue)

Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84

  ViewVC Help
Powered by ViewVC 1.1.5