Changeset 604


Ignore:
Timestamp:
Mar 1, 2004, 5:06:39 PM (16 years ago)
Author:
gb
Message:

APPLICATION-UI-OBJECT stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-readloop.lisp

    r569 r604  
    245245    ((command-line-arguments
    246246      :initform
    247       (list *standard-help-argument* *standard-version-argument*))))
     247      (list *standard-help-argument* *standard-version-argument*))
     248     (ui-object :initform nil :initarg :ui-object :accessor application-ui-object)))
    248249       
    249                              
     250(defclass ui-object ()
     251    ())
     252
     253;;; It's intended that this be specialized ...
     254(defmethod ui-object-do-operation ((u ui-object) operation &rest args)
     255  (declare (ignore operation args)))
     256
     257
    250258(defun %usage-exit (banner exit-status other-args)
    251259  (with-cstrs ((banner banner)
     
    351359            *openmcl-revision*)
    352360          *openmcl-suffix*))
     361
     362(defmethod application-ui-operation ((a application) operation &rest args)
     363  (let* ((ui-object (application-ui-object a)))
     364    (when ui-object
     365      (apply #'ui-object-do-operation ui-object operation args))))
     366
     367
     368
    353369
    354370
Note: See TracChangeset for help on using the changeset viewer.