Changeset 14894


Ignore:
Timestamp:
Jul 20, 2011, 10:38:58 PM (8 years ago)
Author:
gb
Message:

nuke command-line args when loading, or try to

File:
1 edited

Legend:

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

    r14749 r14894  
    7373
    7474(objc:defmethod (#/dealloc :void) ((self sequence-window-controller))
    75   (call-next-method))
     75  (let* ((table-view (slot-value self 'table-view))
     76         (title (slot-value self 'title)))
     77    (unless (%null-ptr-p table-view)
     78      (setf (slot-value self 'table-view) (%null-ptr))
     79      (#/release table-view))
     80    (unless (%null-ptr-p title)
     81      (setf (slot-value self 'title) (%null-ptr))
     82      (#/release title))
     83    (objc:remove-lisp-slots self)
     84    (call-next-method)))
    7685
    7786(objc:defmethod (#/windowWillClose: :void) ((self sequence-window-controller)
Note: See TracChangeset for help on using the changeset viewer.