Changeset 12006


Ignore:
Timestamp:
May 7, 2009, 3:42:22 AM (10 years ago)
Author:
rme
Message:

Checkpoint work-in-progress.

Location:
trunk/source/cocoa-ide
Files:
4 added
1 edited

Legend:

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

    r11991 r12006  
    3131  (let ((self (#/initWithWindowNibName: wc #@"xapropos")))
    3232    (unless (%null-ptr-p self)
    33       (setf (slot-value self 'row-objects) (make-instance'ns:ns-mutable-array)))
     33      (setf (slot-value self 'row-objects) (make-instance 'ns:ns-mutable-array)))
    3434    self))
    3535
     
    6262    (setf v (sort v #'string-lessp))
    6363    (#/removeAllObjects array)
    64     (dotimes (i (length v))
    65       (let ((n (#/null ns:ns-null)))
     64    (let ((n (#/null ns:ns-null)))
     65      (dotimes (i (length v))
    6666        (#/addObject: array n))))
    6767  (#/reloadData (table-view wc)))
     
    127127    (when (eql (#/objectAtIndex: array row) (#/null ns:ns-null))
    128128      (let ((name (%make-nsstring (prin1-to-string (aref syms row)))))
    129         (#/replaceObjectAtIndex:withObject: array row name)
     129            (#/replaceObjectAtIndex:withObject: array row name)
    130130        (#/release name)))
    131131    (#/objectAtIndex: array row)))
Note: See TracChangeset for help on using the changeset viewer.