Changeset 11897

Timestamp:

Apr 4, 2009, 11:48:52 PM (11 years ago)

Author:

rme

Message:

Add :button-string keyword arg to COCOA-CHOOSE-NEW-FILE-DIALOG.

File:

• trunk/source/cocoa-ide/file-dialogs.lisp (modified) (4 diffs)

trunk/source/cocoa-ide/file-dialogs.lisp

@@ -3 +3 @@
 ;;;; MCL-ish file dialogs
 
-(defun %cocoa-choose-file-dialog (directory file-types file)
+(defun %cocoa-choose-file-dialog (directory file-types file button-string)
   (assume-cocoa-thread)
   (let* ((open-panel (#/openPanel ns:ns-open-panel))
@@ -20 +20 @@
           (#/release s)))
       (#/autorelease types-array))
+    (when button-string
+      (#/setPrompt: open-panel (#/autorelease (%make-nsstring button-string))))
     (let ((result (#/runModalForDirectory:file:types: open-panel directory
                                                       file types-array)))
@@ -29 +31 @@
              (error "couldn't run the open panel: error code ~d" result))))))
         
-(defun cocoa-choose-file-dialog (&key directory file-types file)
+(defun cocoa-choose-file-dialog (&key directory file-types file button-string)
   (when (and directory (not (directoryp directory)))
     (error "~s doesn't designate a directory." directory))
@@ -38 +40 @@
   (when (and file (not (probe-file file)))
     (error "~s doesn't designate a file." file))
-  (execute-in-gui #'(lambda () (%cocoa-choose-file-dialog directory file-types file))))
+  (execute-in-gui #'(lambda () (%cocoa-choose-file-dialog directory file-types file button-string))))
 
 (defun %cocoa-choose-new-file-dialog (directory file-types file)