Changeset 11898


Ignore:
Timestamp:
Apr 4, 2009, 11:51:28 PM (10 years ago)
Author:
rme
Message:

Add Load File... and Compile File... menu items, handled by
#/loadFile: and #/compileFile:. These are simple-minded, and
could be a lot cleverer.

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

Legend:

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

    r11214 r11898  
    152152    (#/newListener: self app)
    153153    t))
     154
     155(objc:defmethod (#/loadFile: :void) ((self lisp-application-delegate) sender)
     156  (declare (ignore sender))
     157  (let ((filename (cocoa-choose-file-dialog
     158                   :button-string "Load"
     159                   :file-types (list (pathname-type *.lisp-pathname*)
     160                                     (pathname-type *.fasl-pathname*)))))
     161    (when filename
     162      (#/ensureListener: self nil)
     163      (let* ((doc (#/topListener hemlock-listener-document))
     164             (process (hemlock-document-process doc)))
     165        (process-interrupt process #'(lambda ()
     166                                       (load filename)
     167                                       (fresh-line)))))))
     168
     169(objc:defmethod (#/compileFile: :void) ((self lisp-application-delegate) sender)
     170  (declare (ignore sender))
     171  (let ((filename (cocoa-choose-file-dialog
     172                   :button-string "Compile"
     173                   :file-types (list (pathname-type *.lisp-pathname*)))))
     174    (when filename
     175      (#/ensureListener: self nil)
     176      (let* ((doc (#/topListener hemlock-listener-document))
     177             (process (hemlock-document-process doc)))
     178        (process-interrupt process #'(lambda ()
     179                                       (compile-file filename)
     180                                       (fresh-line)))))))
     181
  • trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/MainMenu.nib/classes.nib

    r9636 r11898  
    2929                                <key>compileBuffer</key>
    3030                                <string>id</string>
     31                                <key>compileFile</key>
     32                                <string>id</string>
    3133                                <key>continue</key>
    3234                                <string>id</string>
     
    4244                                <string>id</string>
    4345                                <key>loadBuffer</key>
     46                                <string>id</string>
     47                                <key>loadFile</key>
    4448                                <string>id</string>
    4549                                <key>newListener</key>
  • trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/MainMenu.nib/info.nib

    r9772 r11898  
    44<dict>
    55        <key>IBFramework Version</key>
    6         <string>629</string>
     6        <string>677</string>
    77        <key>IBOldestOS</key>
    88        <integer>5</integer>
    99        <key>IBOpenObjects</key>
    1010        <array>
    11                 <integer>24</integer>
     11                <integer>29</integer>
    1212        </array>
    1313        <key>IBSystem Version</key>
    14         <string>9D34</string>
     14        <string>9G55</string>
    1515        <key>targetFramework</key>
    1616        <string>IBCocoaFramework</string>
Note: See TracChangeset for help on using the changeset viewer.