Changeset 15346

Timestamp:

Apr 27, 2012, 2:54:32 PM (13 years ago)

Author:

R. Matthew Emerson

Message:

Revert this.

Location:

trunk/source/cocoa-ide

Files:

• cocoa-editor.lisp (modified) (1 diff)
• cocoa-window.lisp (modified) (5 diffs)

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

@@ -2185 +2185 @@
       echo-area)))
                
-(defclass hemlock-frame (ide-window)
+(defclass hemlock-frame (ns:ns-window)
     ((echo-area-view :foreign-type :id)
      (pane :foreign-type :id)

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

@@ -346 +346 @@
                         #@"") ))
 
-(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 +387 @@
   (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 +419 @@
     (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 +436 @@
 
 
-(defmethod initialize-instance :after ((view ide-view)
+(defmethod initialize-instance :after ((view ns:ns-view)
                                        &key
                                        (horizontally-resizable nil hrp)
@@ -489 +482 @@
 
 (defun new-cocoa-window (&key
-                         (class (find-class 'ide-window))
+                         (class (find-class 'ns:ns-window))
                          (title nil)
                          (x 200.0)