Ignore:
Timestamp:
Jan 25, 2012, 8:40:17 PM (8 years ago)
Author:
rme
Message:

Add Help menu item to show local copy of CCL manual.

File:
1 edited

Legend:

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

    r15166 r15182  
    259259          (t t))))
    260260
    261 
     261(objc:defmethod (#/showManual: :void) ((self lisp-application-delegate) sender)
     262  (declare (ignore sender))
     263  (let* ((p (merge-pathnames "doc/ccl-documentation.html" #p"ccl:"))
     264         (workspace (#/sharedWorkspace ns:ns-workspace)))
     265    (with-cfstring (s (native-translated-namestring p))
     266      (#/openFile: workspace s))))
     267
     268
Note: See TracChangeset for help on using the changeset viewer.