Changeset 456

Timestamp:

Feb 1, 2004, 11:38:21 AM (21 years ago)

Author:

beer

Message:

Use DEFCLASS and MAKE-INSTANCE

File:

• trunk/ccl/examples/tiny.lisp (modified) (3 diffs)

trunk/ccl/examples/tiny.lisp

@@ -26 +26 @@
 
 ;;; Define the DemoView class 
-;;; NOTE: This will be replaced by a DEFCLASS once ObjC objects have been
-;;;       integrated into CLOS
 
-(def-objc-class demo-view ns-view)
+(defclass demo-view (ns:ns-view)
+  ()
+  (:metaclass ns:+ns-object))
 
 
@@ -74 +74 @@
   (with-autorelease-pool
    (slet ((r (ns-make-rect 100.0 350.0 400.0 400.0)))
-         (let ((w (make-objc-instance 
-                   'ns-window
+         (let ((w (make-instance 
+                   'ns:ns-window
                    :with-content-rect r
                    :style-mask (logior #$NSTitledWindowMask 
@@ -83 +83 @@
                    :defer nil)))
            (send w :set-title #@"Tiny Window Application")
-           (let ((my-view (make-objc-instance 'demo-view :with-frame r)))
+           (let ((my-view (make-instance 'demo-view :with-frame r)))
              (send w :set-content-view my-view)
              (send w :set-delegate my-view))