Changeset 8455

Timestamp:

Feb 10, 2008, 10:47:41 PM (17 years ago)

Author:

Gary Byers

Message:

LISP-APPLICATION has a console slot.

File:

• trunk/source/cocoa-ide/cocoa-utils.lisp (modified) (2 diffs)

trunk/source/cocoa-ide/cocoa-utils.lisp

@@ -1 @@
-; -*- Mode: Lisp; Package: GUI; -*-
+; -*- Mode: Lisp; Package: GUI -*-
 
 (in-package "GUI")
@@ -192 +192 @@
 
 (defclass lisp-application (ns:ns-application)
-    ((termp :foreign-type :<BOOL>))
+    ((termp :foreign-type :<BOOL>)
+     (console :foreign-type :id :accessor console))
   (:metaclass ns:+ns-object))