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

Diff of /mcclim/frames.lisp

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

revision 1.124 by ahefner, Mon Feb 5 02:55:29 2007 UTC revision 1.125 by crhodes, Wed Feb 7 12:44:16 2007 UTC
# Line 129  input focus. This is a McCLIM extension. Line 129  input focus. This is a McCLIM extension.
129     (manager :initform nil     (manager :initform nil
130              :reader frame-manager              :reader frame-manager
131              :accessor %frame-manager)              :accessor %frame-manager)
    (keyboard-input-focus :initform nil  
                          :accessor keyboard-input-focus)  
132     (properties :accessor %frame-properties     (properties :accessor %frame-properties
133                 :initarg :properties                 :initarg :properties
134                 :initform nil)                 :initform nil)
# Line 1329  documentation produced by presentations. Line 1327  documentation produced by presentations.
1327    `(let ((,frame *application-frame*))    `(let ((,frame *application-frame*))
1328       ,@body))       ,@body))
1329    
   
1330  (defmethod note-input-focus-changed (pane state)  (defmethod note-input-focus-changed (pane state)
1331    (declare (ignore pane state)))    (declare (ignore pane state)))
1332    
 (defmethod (setf keyboard-input-focus) :after (focus frame)  
   (%set-port-keyboard-focus (port frame) focus))  
   
1333  (defmethod (setf client-setting) (value frame setting)  (defmethod (setf client-setting) (value frame setting)
1334    (setf (getf (client-settings frame) setting) value))    (setf (getf (client-settings frame) setting) value))
1335    

Legend:
Removed from v.1.124  
changed lines
  Added in v.1.125

  ViewVC Help
Powered by ViewVC 1.1.5