Changeset 15346


Ignore:
Timestamp:
Apr 27, 2012, 9:54:32 PM (7 years ago)
Author:
rme
Message:

Revert this.

Location:
trunk/source/cocoa-ide
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-editor.lisp

    r15345 r15346  
    21852185      echo-area)))
    21862186               
    2187 (defclass hemlock-frame (ide-window)
     2187(defclass hemlock-frame (ns:ns-window)
    21882188    ((echo-area-view :foreign-type :id)
    21892189     (pane :foreign-type :id)
  • trunk/source/cocoa-ide/cocoa-window.lisp

    r15345 r15346  
    346346                        #@"") ))
    347347
    348 (defclass ide-window (ns:ns-window)
    349   ()
    350   (:metaclass ns:+ns-object))
    351 
    352 (defmethod allocate-instance ((class +ide-window)
     348(defmethod allocate-instance ((class ns:+ns-window)
    353349                              &rest initargs
    354350                              &key
     
    391387  (apply #'call-next-method class initargs))
    392388
    393 (defmethod initialize-instance :after ((w ide-window)
     389(defmethod initialize-instance :after ((w ns:ns-window)
    394390                                       &key
    395391                                       (title nil)
     
    423419    (activate-window w)))
    424420
    425 (defclass ide-view (ns:ns-view)
    426   ()
    427   (:metaclass ns:+ns-object))
    428 
    429 (defmethod allocate-instance ((class +ide-view)
     421
     422(defmethod allocate-instance ((class ns:+ns-view)
    430423                              &rest initargs
    431424                              &key
     
    443436
    444437
    445 (defmethod initialize-instance :after ((view ide-view)
     438(defmethod initialize-instance :after ((view ns:ns-view)
    446439                                       &key
    447440                                       (horizontally-resizable nil hrp)
     
    489482
    490483(defun new-cocoa-window (&key
    491                          (class (find-class 'ide-window))
     484                         (class (find-class 'ns:ns-window))
    492485                         (title nil)
    493486                         (x 200.0)
Note: See TracChangeset for help on using the changeset viewer.