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

Diff of /mcclim/frames.lisp

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

revision 1.79 by hefner1, Wed Nov 5 11:31:38 2003 UTC revision 1.80 by hefner1, Sat Nov 8 01:06:51 2003 UTC
# Line 476  input focus. This is a McCLIM extension. Line 476  input focus. This is a McCLIM extension.
476                               :name 'top-level-sheet                               :name 'top-level-sheet
477                               ;; enabling should be left to enable-frame                               ;; enabling should be left to enable-frame
478                               :enabled-p nil))                               :enabled-p nil))
479           (event-queue (sheet-event-queue t-l-s)))           #+clim-mp (event-queue (sheet-event-queue t-l-s)))
480      (setf (slot-value frame 'top-level-sheet) t-l-s)      (setf (slot-value frame 'top-level-sheet) t-l-s)
481      (generate-panes fm frame)      (generate-panes fm frame)
482      (setf (slot-value frame 'state)  :disabled)      (setf (slot-value frame 'state)  :disabled)
483        #+clim-mp
484      (when (typep event-queue 'port-event-queue)      (when (typep event-queue 'port-event-queue)
485        (setf (event-queue-port event-queue)        (setf (event-queue-port event-queue)
486              (frame-manager-port fm)))              (frame-manager-port fm)))

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

  ViewVC Help
Powered by ViewVC 1.1.5