Changeset 12737


Ignore:
Timestamp:
Sep 2, 2009, 2:14:07 PM (10 years ago)
Author:
gfoy
Message:

Changed encoding to UTF-8

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/contrib/foy/source-comparison/source-compare-dialog.lisp

    r12731 r12737  
    55;;;      source-compare-dialog.lisp, version 0.1b1
    66;;;
    7 ;;;      copyright © 2009 Glen Foy
     7;;;      copyright © 2009 Glen Foy
    88;;;      (Permission is granted to Clozure Associates to distribute this file.)
    99;;;
     
    290290  (cond ((and (path-1 w) (path-2 w))
    291291         (unless (probe-file (path-1 w))
    292            (format t "~%; ¥ File: ~A does not exist." (path-1 w))
     292           (format t "~%; File: ~A does not exist." (path-1 w))
    293293           (return-from compare))
    294294         (unless (probe-file (path-2 w))
    295            (format t "~%; ¥ File: ~A does not exist." (path-2 w))
     295           (format t "~%; File: ~A does not exist." (path-2 w))
    296296           (return-from compare))
    297297
     
    445445  (#/submenu (#/itemWithTitle: (#/mainMenu (ccl::application-ui-object ccl::*application*)) #@"Tools")))
    446446
    447 (let ((item (#/itemWithTitle: *tools-menu* #@"Source CompareÉ")))
     447(let ((item (#/itemWithTitle: *tools-menu* #@"Source Compare...")))
    448448  (unless (%null-ptr-p item) (#/removeItem: *tools-menu* item))
    449449  (#/addItem: *tools-menu* (#/separatorItem ns:ns-menu-item))
    450450  (setf item (#/initWithTitle:action:keyEquivalent: (#/alloc ns:ns-menu-item)
    451                                                     #@"Source CompareÉ"
     451                                                    #@"Source Compare..."
    452452                                                    (ccl::@selector "interfaceAction:")
    453453                                                    #@""))
Note: See TracChangeset for help on using the changeset viewer.