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

Diff of /mcclim/frames.lisp

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

revision 1.85 by moore, Thu Nov 13 22:54:07 2003 UTC revision 1.86 by hefner1, Fri Nov 21 18:40:25 2003 UTC
# Line 663  input focus. This is a McCLIM extension. Line 663  input focus. This is a McCLIM extension.
663          (disabled-commands nil)          (disabled-commands nil)
664          (command-definer t)          (command-definer t)
665          (top-level '(default-frame-top-level))          (top-level '(default-frame-top-level))
666          (others nil)          (others nil)
         (command-name (intern (concatenate 'string  
                                 (symbol-name '#:define-)  
                                 (symbol-name name)  
                                 (symbol-name '#:-command))))  
667          (pointer-documentation nil)          (pointer-documentation nil)
668          (geometry nil))          (geometry nil))
669      (loop for (prop . values) in options      (loop for (prop . values) in options
# Line 685  input focus. This is a McCLIM extension. Line 681  input focus. This is a McCLIM extension.
681               (:pointer-documentation (setq pointer-documentation (car values)))               (:pointer-documentation (setq pointer-documentation (car values)))
682               (:geometry (setq geometry values))               (:geometry (setq geometry values))
683               (t (push (cons prop values) others))))               (t (push (cons prop values) others))))
684        (when (eq command-definer t)
685          (setf command-definer
686                (intern (concatenate 'string
687                                     (symbol-name '#:define-)
688                                     (symbol-name name)
689                                     (symbol-name '#:-command)))))
690      (if (or (and pane panes)      (if (or (and pane panes)
691              (and pane layouts))              (and pane layouts))
692          (error ":pane cannot be specified along with either :panes or :layouts"))          (error ":pane cannot be specified along with either :panes or :layouts"))
# Line 715  input focus. This is a McCLIM extension. Line 717  input focus. This is a McCLIM extension.
717         ,@(if command-table         ,@(if command-table
718               `((define-command-table ,@command-table)))               `((define-command-table ,@command-table)))
719         ,@(if command-definer         ,@(if command-definer
720               `((defmacro ,command-name (name-and-options arguements &rest body)               `((defmacro ,command-definer (name-and-options arguements &rest body)
721                   (let ((name (if (listp name-and-options) (first name-and-options) name-and-options))                   (let ((name (if (listp name-and-options) (first name-and-options) name-and-options))
722                         (options (if (listp name-and-options) (cdr name-and-options) nil))                         (options (if (listp name-and-options) (cdr name-and-options) nil))
723                         (command-table ',(first command-table)))                         (command-table ',(first command-table)))

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86

  ViewVC Help
Powered by ViewVC 1.1.5