Changeset 12182


Ignore:
Timestamp:
Jun 1, 2009, 6:57:05 PM (10 years ago)
Author:
rme
Message:

Avoid Leopard-only method in maybe-fixup-application-menu.

File:
1 edited

Legend:

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

    r12181 r12182  
    29352935                 (title (#/title item)))
    29362936            (when (#/hasSuffix: title targetname)
    2937               (#/setTitle: item (#/stringByReplacingOccurrencesOfString:withString: title targetname cfbundlename)))))))))
     2937              (let ((new-title (#/mutableCopy title)))
     2938                (ns:with-ns-range (r 0 (#/length new-title))
     2939                  (#/replaceOccurrencesOfString:withString:options:range:
     2940                   new-title targetname cfbundlename #$NSLiteralSearch r))
     2941                (#/setTitle: item new-title)
     2942                (#/release new-title)))))))))
    29382943             
    29392944(defun initialize-user-interface ()
Note: See TracChangeset for help on using the changeset viewer.