Changeset 604

Timestamp:

Mar 1, 2004, 9:06:39 AM (21 years ago)

Author:

Gary Byers

Message:

APPLICATION-UI-OBJECT stuff.

File:

• trunk/ccl/level-1/l1-readloop.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-readloop.lisp

@@ -245 +245 @@
     ((command-line-arguments
       :initform
-      (list *standard-help-argument* *standard-version-argument*))))
+      (list *standard-help-argument* *standard-version-argument*))
+     (ui-object :initform nil :initarg :ui-object :accessor application-ui-object)))
        
-                             
+(defclass ui-object ()
+    ())
+
+;;; It's intended that this be specialized ...
+(defmethod ui-object-do-operation ((u ui-object) operation &rest args)
+  (declare (ignore operation args)))
+
+
 (defun %usage-exit (banner exit-status other-args)
   (with-cstrs ((banner banner)
@@ -351 +359 @@
             *openmcl-revision*)
           *openmcl-suffix*))
+
+(defmethod application-ui-operation ((a application) operation &rest args)
+  (let* ((ui-object (application-ui-object a)))
+    (when ui-object
+      (apply #'ui-object-do-operation ui-object operation args))))
+
+
+