Index: /trunk/source/cocoa-ide/cocoa-editor.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 15345)
+++ /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 15346)
@@ -2185,5 +2185,5 @@
       echo-area)))
                
-(defclass hemlock-frame (ide-window)
+(defclass hemlock-frame (ns:ns-window)
     ((echo-area-view :foreign-type :id)
      (pane :foreign-type :id)
Index: /trunk/source/cocoa-ide/cocoa-window.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-window.lisp	(revision 15345)
+++ /trunk/source/cocoa-ide/cocoa-window.lisp	(revision 15346)
@@ -346,9 +346,5 @@
                         #@"") ))
 
-(defclass ide-window (ns:ns-window)
-  ()
-  (:metaclass ns:+ns-object))
-
-(defmethod allocate-instance ((class +ide-window)
+(defmethod allocate-instance ((class ns:+ns-window)
                               &rest initargs
                               &key
@@ -391,5 +387,5 @@
   (apply #'call-next-method class initargs))
 
-(defmethod initialize-instance :after ((w ide-window)
+(defmethod initialize-instance :after ((w ns:ns-window)
                                        &key
                                        (title nil)
@@ -423,9 +419,6 @@
     (activate-window w)))
 
-(defclass ide-view (ns:ns-view)
-  ()
-  (:metaclass ns:+ns-object))
-
-(defmethod allocate-instance ((class +ide-view)
+
+(defmethod allocate-instance ((class ns:+ns-view)
                               &rest initargs
                               &key
@@ -443,5 +436,5 @@
 
 
-(defmethod initialize-instance :after ((view ide-view)
+(defmethod initialize-instance :after ((view ns:ns-view)
                                        &key
                                        (horizontally-resizable nil hrp)
@@ -489,5 +482,5 @@
 
 (defun new-cocoa-window (&key
-                         (class (find-class 'ide-window))
+                         (class (find-class 'ns:ns-window))
                          (title nil)
                          (x 200.0)