Changeset 7560


Ignore:
Timestamp:
Oct 31, 2007, 2:44:33 AM (12 years ago)
Author:
rme
Message:

Comment out old showPreferences: action. Correct a couple of Cocoa
memory leaks.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/cocoa-window.lisp

    r7534 r7560  
    168168    (call-next-method e)))
    169169
    170 
     170#+nil
    171171(objc:defmethod (#/showPreferences: :void) ((self lisp-application) sender)
    172172  (declare (ignore sender))
     
    264264          (let* ((fontname (#/stringWithCString: ns:ns-string name))
    265265                 (font (#/fontWithName:matrix: ns:ns-font fontname matrix))
    266                  
     266               
    267267                 (implemented-attributes ()))
    268268            (if (or (%null-ptr-p font)
     
    305305                                    (obliqueness nil)
    306306                                    (stroke-width nil))
    307   (let* ((dict (#/retain (make-instance 'ns:ns-mutable-dictionary :with-capacity 5))))
    308     (#/setObject:forKey: dict (create-paragraph-style font line-break-mode) #&NSParagraphStyleAttributeName)
     307  (let* ((dict (make-instance 'ns:ns-mutable-dictionary :with-capacity 5)))
     308    (#/setObject:forKey: dict (create-paragraph-style font line-break-mode)
     309                         #&NSParagraphStyleAttributeName)
    309310    (#/setObject:forKey: dict font #&NSFontAttributeName)
    310311    (when color
    311312      (#/setObject:forKey: dict color #&NSForegroundColorAttributeName))
    312313    (when stroke-width
    313       (#/setObject:forKey: dict (make-instance 'ns:ns-number
    314                                                :with-float (float stroke-width)) #&NSStrokeWidthAttributeName))
     314      (#/setObject:forKey: dict (#/numberWithFloat: ns:ns-number stroke-width)
     315                          #&NSStrokeWidthAttributeName))
    315316    (when obliqueness
    316       (#/setObject:forKey:  dict (make-instance 'ns:ns-number
    317                                                 :with-float (float obliqueness)) #&NSObliquenessAttributeName))
     317      (#/setObject:forKey: dict (#/numberWithFloat: ns:ns-number obliqueness)
     318                          #&NSObliquenessAttributeName))
    318319    dict))
    319320
Note: See TracChangeset for help on using the changeset viewer.