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

Diff of /mcclim/frames.lisp

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

revision 1.60 by mikemac, Fri Mar 21 21:36:58 2003 UTC revision 1.61 by mikemac, Fri Mar 21 22:07:05 2003 UTC
# Line 505  FRAME-EXIT condition.")) Line 505  FRAME-EXIT condition."))
505                                                     (first form))                                                     (first form))
506                                                    ((keywordp (first form))                                                    ((keywordp (first form))
507                                                     (let ((maker (intern (concatenate 'string                                                     (let ((maker (intern (concatenate 'string
508                                                                            "MAKE-CLIM-"                                                                            (symbol-name #:make-clim-)
509                                                                            (symbol-name (first form))                                                                            (symbol-name (first form))
510                                                                            "-PANE") :clim)))                                                                            (symbol-name #:-pane))
511                                                                            :clim)))
512                                                       (if (fboundp maker)                                                       (if (fboundp maker)
513                                                           `(,maker :name ',name ,@(cdr form))                                                           `(,maker :name ',name ,@(cdr form))
514                                                         `(make-pane ',(first form)                                                         `(make-pane ',(first form)
# Line 561  FRAME-EXIT condition.")) Line 562  FRAME-EXIT condition."))
562          (command-definer t)          (command-definer t)
563          (top-level '(default-frame-top-level))          (top-level '(default-frame-top-level))
564          (others nil)          (others nil)
565          (command-name (intern (concatenate 'string "DEFINE-" (symbol-name name)          (command-name (intern (concatenate 'string
566                                             "-COMMAND")))                                  (symbol-name #:define-)
567                                    (symbol-name name)
568                                    (symbol-name #:-command))))
569          (pointer-documentation nil))          (pointer-documentation nil))
570      (loop for (prop . values) in options      (loop for (prop . values) in options
571          do (case prop          do (case prop

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

  ViewVC Help
Powered by ViewVC 1.1.5